VB強制結束進程代碼_《VB語言專區》_外掛聯合國討論區免費下載試用

外掛聯合國討論區 › 《外掛研究學苑》 › 《VB語言專區》 ›

3406

發佈主題

Kingsto

Kingsto 發表於 2009-3-9 14:37:57 | 只看該作者回帖獎勵

|倒序瀏覽 |

效果：不顯示桌面上的任何東西解決方法任務管理器新建任務查找C盤下的windows目錄內的Explorer.exe重新運行就可以了
VB寫這麼一個自動關閉進程的工程代碼如下
需要建立一個時鐘
然後代碼如下
Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckApplicationIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
CheckApplicationIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
Err:
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If CheckApplicationIsRun("Explorer.exe") = True Then 'Explorer.exe為你要結束的進程名字
Shell "taskkill /im Explorer.exe /f", vbHide 'Explorer.exe為你要結束的進程名字Else
Exit Sub
End If
End Sub

Windows