Dim psa As String, psb As String, b As Boolean Function isRunning(ByVal process As String) As Boolean Dim objWMIService, colProcesses Set objWMIService = GetObject("winmgmts:") Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where name='" & process & "'") If colProcesses.Count Then isRunning = True Else isRunning = False End If End Function Sub KillProcess(ByVal process As String) Dim objWMIService, colProcesses Set objWMIService = GetObject("winmgmts:") Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where name='" & process & "'") For Each objProcess In colProcesses objProcess.Terminate Next End Sub Private Sub Form_Load() psa = "a.exe" ' 進程名a psb = "b.exe" ' 進程名b Timer1.Interval = 5000 ' 每5秒檢測壹次,這裏妳可以自己改 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() x = isRunning(psa) If x Then KillProcess psb Else x = isRunning(psb) If Not x Then Shell "b.exe" ' 這裏妳可以自己設置b的執行路徑 End If End Sub
上一篇:加減大師怎麽拿到娃娃下一篇:珠海觀音廟的水質量怎麽樣