vb.net检测指定进程 vb判断进程是否存在

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

求大神指点vb.net怎么获取指定进程的状态

Process.GetProcessesByName("进程名")‘不带扩展名

找不到就是没有在运行，但不知道能不能判断已暂停状态。

相关问答

Q1: vb 检测某个进程是否运行

'检查进程是否运行，根据进程名

Private

Function

CheckExeIsRun(exeName

String)

Boolean

Error

GoTo

Err

Dim

WMI

Dim

Obj

Dim

Objs

CheckExeIsRun

False

Set

WMI

GetObject("WinMgmts:")

Set

Objs

WMI.InstancesOf("Win32_Process")

For

Each

Obj

Objs

(InStr(UCase(exeName),

UCase(Obj.Description))

Then

CheckExeIsRun

True

Not

Objs

Nothing

Then

Set

Objs

Nothing

Not

WMI

Nothing

Then

Set

WMI

Nothing

Exit

Function

End

Not

Objs

Nothing

Then

Set

Objs

Nothing

Not

WMI

Nothing

Then

Set

WMI

Nothing

Exit

Function

Err:

Not

Objs

Nothing

Then

Set

Objs

Nothing

Not

WMI

Nothing

Then

Set

WMI

Nothing

End

Function

'测试代码

Private

Sub

Command1_Click()

CheckExeIsRun("A.exe")

Then

MsgBox

"运行了啊"

Else

MsgBox

"没有运行"

End

Sub

Q2: vb 如何快速检测某进程是否正在运行？并且获得这个进程所在的路径呢？谢啦！

方法一：系统任务栏上鼠标右键启动任务管理器---进程选项中可查到vb.net检测指定进程你要的！

方法二：键盘按Ctrl+Alt+Delete 直接启动任务管理器

错了你说的是VB中 vb.net检测指定进程我看错了呵呵 vb.net检测指定进程我查查再回答哈

Private Sub Form_Load()

If App.PrevInstance Then

End

End If

End Sub

用DDE实现窗体防止运行多个实例并传递命令

上网的朋友一定都用过网络蚂蚁（Net Ants）的吧vb.net检测指定进程？不知你在使用过程中有没有注意过，那就是如果你想调动两个“蚂蚁”为您效力是不可能的——它总会把新运行的关闭。这点在VB中很容易实现：

Private Sub Form_Load()

If App.PrevInstance Then

MsgBox "你已经运行这个应用程序了"

End ' 退出新运行的程序

End If

End Sub

这样如果你运行这个程序后在运行它，它会弹出一个消息框并拒绝再次运行。这非常容易。而“蚂蚁”程序的妙处就在于：在重复运行“蚂蚁”时它不仅拒绝运行，而且能把已经运行的“蚂蚁”激活，这样用上面的程序就无能为力了。但事实上实现拒绝运行并激活已运行的

程序有多种方法：

1、用FindWindow函数得到已经运行窗体的句柄（HWND），然后用SetActiveWindow等API函数将其激活。其缺点也很明显，那就是没法传递参数。

2、用FindWindow函数得到已运行窗体的句柄后用SendMessage的方法给窗体传送一个自定义消息（附带参数），然后在窗体中拦截并进行处理，但这样做要修改窗体的标准消息处理程序，用在VC，BC或DELPHI编写的程序中还行，但在VB中工作量太大，并且容易发生“一般保护行错误”使VB崩溃，不太可取（当然，如果你有足够的信心和不怕崩溃的精神，也可以试一下 ^_^ ）。

3、使用DDE技术。

所谓DDE技术，就是动态数据交换技术。也许你很奇怪，这与本文所讨论的内容有什么相干的？

且听我慢慢讲来。

为了实现拒绝运行并把已经运行的程序激活并实现各种功能，我们可以先用本文开头提到的方法，检测一下程序有没有被运行过，如果没有，就正常运行，如果已经被运行过，就打通与它的DDE通道，传给它一个（或一些）数据，然后由已经运行的程序对数据进行处理，再去实现各种“意想不到”的功能，这时也许就有人对这你的程序喊：“酷、酷……” ^_^

好了，耳听为虚，眼见为实，下面让我们动点真格的。

打开VB，新建一个工程，选择菜单中的“工程-工程1 属性”，把工程名称改为“P1”（我爱偷懒，能短则短 ^_^ ），把已有的一个窗体的“LinkTopic”属性改为“FormDDE”，把“LinkMode”属性改为“1 - Source”，添加一个PictureBox控件作为DDE执行控件，命名为picDDE。然后添加一个TextBox控件，命名为“txtInfo”，并把“MultiLine”属性设置为“True”，以便显示多行文本，作为消息显示控件。

最后在窗体代码区输入以下代码：

Const COMMANDLINE = "CommandLine=" ' 还是为了省事，定义一个常量

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)

Static lngCount As Long

Dim Info As String

Info = txtInfo.Text ' 保留原有信息

Select Case CmdStr ' CmdStr 是DDE程序传送过来的参数

Case "Max"

Me.WindowState = 2

Info = Info + vbNewLine + "窗体已被最大化"

Case "ShowTime"

Info = Info + vbNewLine + "最后一次运行这个程序的时间是：" + Str(Now)

Case "Count"

lngCount = lngCount + 1

Info = Info + vbNewLine + "你已经第" + Str(lngCount) + "次重复调用这个程序。" _

+ vbNewLine + "但怕您不多给工资，所以只运行了一个 ^_^"

End Select

If Left(CmdStr, Len(COMMANDLINE)) = COMMANDLINE Then

Info = Info + vbNewLine + "新程序曾以命令行形式运行" + vbNewLine + "命令行为：" _

+ vbNewLine + Right(CmdStr, Len(CmdStr) - Len(COMMANDLINE))

End If

txtInfo.Text = Info ' 把信息显示出来

Cancel = False

End Sub

Private Sub LinkAndSendMessage(ByVal Msg As String)

Dim t As Long

picDDE.LinkMode = 0 '--

picDDE.LinkTopic = "P1|FormDDE" ' |______连接DDE程序并发送数据/参数

picDDE.LinkMode = 2 ' | “|”为管道符，是“退格键”旁边的竖线，

picDDE.LinkExecute Msg '-- 不是字母或数字！

t = picDDE.LinkTimeout '--

picDDE.LinkTimeout = 1 ' |______终止DDE通道。当然，也可以用别的方法

picDDE.LinkMode = 0 ' | 这里用的是超时强制终止的方法

picDDE.LinkTimeout = t '--

End Sub

Private Sub Form_Load()

If App.PrevInstance Then ' 程序是否已经运行

Me.LinkTopic = "" ' 这两行用于清除新运行的程序的DDE服务器属性，

Me.LinkMode = 0 ' 否则在连接DDE程序时会出乱子的

LinkAndSendMessage "Max" '--

LinkAndSendMessage "Count" ' |-----连接DDE接受程序并传送数据/参数

LinkAndSendMessage "ShowTime" '--

If Command "" Then ' 如果有命令行参数，就传递过去

LinkAndSendMessage COMMANDLINE + Command

End If

End ' 结束新程序的运行

End If

End Sub

测试一下：

把工程“P1”编译成EXE文件（设名称为 P1.EXE ）

1、打开“我的电脑”，找到 P1.EXE 并执行。可以看到程序正常运行了。

2、再运行一次，这次新程序没有运行成功，而原来运行的程序却被最大化了，而且文本框中有以下

字符：

窗体已被最大化

你已经第 1次重复调用这个程序。

但怕您不多给工资，所以只运行了一个 ^_^

最后一次运行这个程序的时间是：00-2-6 7:11:01

3、打开 MS-DOS方式，用命令行方式再次运行程序，如 “P1 How Are You?”

这时原来运行的程序文本框中又多了几行字：

窗体已被最大化

你已经第 2次重复调用这个程序。

但怕您不多给工资，所以只运行了一个 ^_^

最后一次运行这个程序的时间是：00-2-6 7:14:32

新程序曾以命令行形式运行

命令行为：

How Are You?

OK，运行完全正确，然后你就可以把它应用的你的程序中了。

Q3: VB.net在Windows7下检测进程是否存在

VB.net（VS2008）里面比C#还好弄vb.net检测指定进程，不需要自己加manifestvb.net检测指定进程，直接在项目属性的“应用程序”里面点击“查看UAC设置”vb.net检测指定进程，在新打开的app.manifest里面把 requestedExecutionLevel level="asInvoker" uiAccess="false" / 替换成 requestedExecutionLevel level="requireAdministrator" uiAccess="false" / 再编译就行vb.net检测指定进程了。

Q4: vb.net 如何监视进程，并在进程结束时触发事件？

Dim p As Process = Nothing

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

p = Process.Start("notepad")

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

If p IsNot Nothing AndAlso p.HasExited Then

p = Nothing

MsgBox("程序已退出！")

End If

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Timer1.Interval = 100

Timer1.Enabled = True

End Sub

Q5: vb net 怎么样判断 Windows任务管理器进程，比如excel.exe存在侧button1

button1.visible=false

For Each i In Process.GetProcessesByName("excel")

button1.visible=true

关于vb.net检测指定进程和vb判断进程是否存在的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

正文

求大神指点vb.net怎么获取指定进程的状态

相关问答

相关阅读

c语言追查车号程序，c语言查找指定字符

病毒程序算法C语言，病毒程序算法c语言代码

js抽奖代码抽奖统计，javascript抽奖小程序

使用js编写一个简单的算法，javascript编写程序

电气及程序架构设计，电气架构设计工程师

面向对象工程方法缺点，面向对象程序的三大特征

HTML5手环程序，手环软件

macos10.13已损坏，mac程序已损坏或不完整

目录[+]