Private Sub Command1_Click()
Kill ("F:\Program Files\腾讯游戏\地下城与勇士\DNF_CHINA.cfg")
End Sub
Private Sub Command2_Click()
procname = "DNF.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
Private Sub Command3_Click()
End
End Sub
自己改完了 配合自己的安装目录 就OK了
