程序中需要检查一个可执行文件是否运行,请问各位大哥怎么办?
解决方案 »
- (急)一个关于数据库两层开发效率的问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- MDI左边怎么加面板??谢谢,高分相送
- 哇,写入数据库这样错了啊!真奇怪啊,大家帮帮我好吗?
- MSFlexGrid与MSHFlexGrid的区别
- 新手发问,怎样改变ICON图标????
- 时间型字段在MSHFlexGrid控件里怎么显示成:1899-12-30 00:38:10啊??
- 急!怎末用代码控制DataGrid控件的添加删除和编辑呀!!
- 请问图象锐化除了高通滤波外还有什么好的算法?
- 电子邮件客户端程序的SMTP认证如何写?
- 一个非编程问题,有兴趣的进来看看,可能对多数人有用
- 不理解这个SQL语句,帮忙解释
- 哪位老大精通WORD VBA?小弟虔诚拜师!
Private Sub Command1_Click()
procname = "qq.exe"
strcomputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & procname & "'")
If colProcessList.Count > 0 Then
MsgBox "QQ 运行中"
Else
MsgBox "QQ 没运行"
End If
End Sub'可以再参考这个
【CBM666 的木马EXE专杀】
http://download.csdn.net/source/358139