stmikbg-dot-com

gara-gara kemarin kena worm yg bikin sakit hati, mau kill prosesnya tp malah tools untuk pake kill kena kill duluan. Terus kenapa tidak kepikiran, kenapa tidak buat sendiri kode yang bisa ngekill proses. Kalo dipikir juga caranya bagaimana?. Setelah dipikir-pikir kemarin kan sempat bahas masalah WMI, kenapa tidak memanfaatkan WMI aja untuk melakukan kill proses.

Untuk kodenya bisa dilihat dibawah ini

Public Sub KillProcess(byval processName as string)
        On Error GoTo ErrHandler
         Dim oWMI
         Dim ret
         Dim sService
         Dim oWMIServices
         Dim oWMIService
         Dim oServices
         Dim oService
         Dim servicename
          Set oWMI = GetObject("winmgmts:")
          Set oServices = oWMI.InstancesOf("win32_process")
          For Each oService In oServices
                serviceame = LCase(Trim(CStr(oService.Name) & ""))
                 If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
                    ret = oService.Terminate
                 End If
          Next
          Set oServices = Nothing
          Set oWMI = Nothing
ErrHandler:
  Err.Clear
End Sub

Untuk menggunakannya cukup ketik command KillProcess “winamp”

Incoming search terms:

• kill process vb6
• kill proses
• vb kill process
• vb kill
• kill process with wmi vb6
• kill proses dengan vb
• wmi terminate process vb6
• proses VB
• vb 6 killl proses
• kill application from vb6