pk.frm

u盘kill

VERSION 5.00
Begin VB.Form pk 
   Caption         =   "Form2"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "pk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
  ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
    
  Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
    
  Private Sub Form_Load()
          Dim objWMIService     As Object
          Dim colProcessList
          Dim objProcess     As Object
          On Error Resume Next
          Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
          Set colProcessList = objWMIService.ExecQuery("select   *   FROM   Win32_Process")
          Dim mProcID     As Long
          For Each objProcess In colProcessList
          '*****************************************************
          '关闭ravmon进程
                  If LCase(Trim(objProcess.name)) = "svchost.exe" Then
                            pro = 1
                          mProcID = OpenProcess(1&, -1&, objProcess.processid)
                          
                          TerminateProcess mProcID, 0&
                  End If
          '*****************************************************
          '关闭kill进程
                  If LCase(Trim(objProcess.name)) = "tel.xls.exe" Then
                            pro = 1
                          mProcID = OpenProcess(1&, -1&, objProcess.processid)
                          
                          TerminateProcess mProcID, 0&
                  End If
                  If LCase(Trim(objProcess.name)) = "SocksA.exe" Then
                          pro = 1
                          mProcID = OpenProcess(1&, -1&, objProcess.processid)
                        
                          TerminateProcess mProcID, 0&
                  End If
                  
         '*****************************************************
              
          Next
  End Sub