7492
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cbm6666 2008-03-10
If App.PrevInstance Then Call MsgBox("对不起本程序已在运行中, 不得重复加载!!", vbCritical, "菜鸟多媒体制作系统")
嗷嗷叫的老马 2008-03-09
http://topic.csdn.net/u/20080214/18/d54bdf3c-426c-4b24-b7eb-53b46265016d.html?seed=819290565
参考7楼.
那又是个不结帖的,害我找好久.
BS一下.
参考7楼.
那又是个不结帖的,害我找好久.
BS一下.
cbm6666 2008-03-09
'例如你是监测 QQ 的运行, 便提示
'添加 Command1
Dim procname$, rtn&, strcomputer$
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
'添加 Command1
Dim procname$, rtn&, strcomputer$
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
龙口市兰高镇六年级数学上册第二章有理数及其计算习题归类五（有理数的乘方计算）同步测试试题（无答案）鲁教版五四制.docx 龙口市兰高镇六年级数学上册第二章有理数及其计算习题归类五（有理数的乘方计算）同步测试试题（无答案）鲁教版五四制.docx
九年级数学上册 第23章 图形的相似 23.1 成比例线段 23.1.2 平行线分线段成比例导学案（无答案）.docx 九年级数学上册 第23章 图形的相似 23.1 成比例线段 23.1.2 平行线分线段成比例导学案（无答案）.docx
九年级数学上册 第22章 一元二次方程 22.2 一元二次方程的解法 22.2.2 配方法同步练习3 .docx 九年级数学上册 第22章 一元二次方程 22.2 一元二次方程的解法 22.2.2 配方法同步练习3 .docx
龙口市兰高镇六年级数学上册第二章有理数及其运算计算能力提升训练题六（有理数混合运算）（无答案）鲁教版五四制.docx 龙口市兰高镇六年级数学上册第二章有理数及其运算计算能力提升训练题六（有理数混合运算）（无答案）鲁教版五四制.docx
