VB关闭指定程序

丫2雅 发表于 2012-1-2 20:11:57

Dim procname$, rtn&
Private Sub Command1_Click()
procname = "explorer.exe"
strcomputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & procname & "'")
If colProcessList.Count = 0 Then
MsgBox procname & " 没有运行"
Else
For Each objProcess In colProcessList
rtn = MsgBox("您确定要终止 " & procname & " 吗？", vbYesNo, "强制关闭进程")
If rtn = 6 Then objProcess.Terminate
Next
End If
End Sub

zdqwy19 发表于 2012-1-2 20:57:26

支持，我到现在没有搞清vb如何转换成lisp在cad中运行

1993063 发表于 2012-1-3 13:44:46

vb是vb.lsp是lsp两者有区别

liu_kunlun 发表于 2012-1-6 11:03:58

谢谢分享，这样也可以查询特定程序是否在运行

页: [1]

明经CAD社区's Archiver

VB关闭指定程序