如何点击命令按钮关闭某程序或文件?VB
2个回答
展开全部
Private Sub Command1_Click()
Dim oWMI, oProcs, oProc, strWQL
strWQL = "SELECT * FROM Win32_Process WHERE Name=""QQ.exe"伏肆""
Set oWMI = GetObject("winmgmts://./root/cimv2")
Set oProcs = oWMI.ExecQuery(strWQL)
For Each oProc In oProcs
oProc.Terminate
Next
Set oProc = Nothing
Set oProcs = Nothing
Set oWMI = Nothing
End
这是点击按钮灶侍关闭QQ程序缺辩轿,希望对你有帮助。
我在百度学到很多东西,前辈留下来的....
所以很乐意帮你,希望你也要帮助别人....
Dim oWMI, oProcs, oProc, strWQL
strWQL = "SELECT * FROM Win32_Process WHERE Name=""QQ.exe"伏肆""
Set oWMI = GetObject("winmgmts://./root/cimv2")
Set oProcs = oWMI.ExecQuery(strWQL)
For Each oProc In oProcs
oProc.Terminate
Next
Set oProc = Nothing
Set oProcs = Nothing
Set oWMI = Nothing
End
这是点击按钮灶侍关闭QQ程序缺辩轿,希望对你有帮助。
我在百度学到很多东西,前辈留下来的....
所以很乐意帮你,希望你也要帮助别人....
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询