以下方法关闭其他运行程序为什么失败vb

Question

Dim procname$, rtn&, strcomputer$
Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
    procname = "calc.exe"
End SubPrivate Sub Timer1_Timer()
    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
       Timer1.Enabled = False
       For Each objProcess In colProcessList
          rtn = MsgBox("运行中,您确定要终止 " & procname & " 吗？", vbYesNo, "强制关闭进程")
          If rtn = 6 Then objProcess.Terminate
       Next
    End If
End Sub试试这个...