代码如下:=============================================================Option ExplicitDim prce, chk As String 'prce记录进程名,chk检测Private Sub Command1_Click()Dim a As StringDim i As Integerprce = Trim(Tx1.Text) '文本框名称更改为TX1'prce = "QQ.exe"Shell "cmd /c tasklist /fi ""imagename eq " &prce &""" >c:\1.txt" '用tasklist筛选Open "C:\1.txt" For Input As #1 '获得信息While EOF(1) = Falsea = ""Line Input #1, chk For i = 1 To Len(prce)a = a &Mid(chk, i, 1) NextIf a = prce Then'检测到MsgBox "进程存在", vbOKOnly, "找到啦``"Close #1Kill ("C:\1.txt") '删除临时文件Exit SubEnd IfWendClose #1MsgBox "进程未找到,请注意进程名的大小激枯写"Kill ("C:\1.txt")'删除临时文件End Sub====================================================经调试,检测可以成功, 记住,在文本框中输入进程名时一定要注意进程名的大小写。。。。
有! Procmon.exe----------EXE程序的注册表运宏碰行监控 Diskmon.exe----------EXE程序的磁乎颂盘运行岁绝郑监控 地址: http://technet.microsoft.com/zh-cn/sysinternals欢迎分享,转载请注明来源:内存溢出
评论列表(0条)