Sebelumnya pernahkan terlintas di benak anda untuk membuat sebuah Antivirus dengan memanfatkan sopware populer bawaan Ms Office, yaitu Ms. Exel. Yah mungkin sangat jarang orang yang memanfaatkanya.. namun buktinya bisa lho.. dari pada kita mengintal VB atau pemograman yang lainya kita bisa membuat pembunuh virus dengan sopware Ms. exel
Gak Percaya , mari kita buktikan !
Caranya :
1. Buka Microsoft Excel kemuadian save as menjadi excelkill.xls
2. Pada sheet1 insert rectangle atau sejenisnya “fungsinya hanya untuk melakukan exsekusi”
3. Kita tentukan lokasi kolom yang akan menjadi obyek eksekusi Misalkan “E9”
4. Klik “E9” kemudian klik define name kemudian muncul popup menu define name, pada kolom name isi dengan “bunuh” (tanpa tanda kutip”) trus klik OK
5. Perhatikan kolom cell “E9” jika diklik name boxnya akan berubah menjadi bunuh
6. Selanjutnya kilik kanan sheet1 kemudian klik view code
7.Pada VB editor buat modul seperti berikut :
————————————————————batas —————————————————
-Option Explicit
Private Declare Function GetWindow Lib “user32” _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetParent Lib “user32” (ByVal hwnd As Long) As Long
Private Declare Function GetWindowTextLength Lib “user32” _
Alias “GetWindowTextLengthA” (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib “user32” _
Alias “GetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib “user32” _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
‘————————————————————batas —————————————————
-‘fungsi kill proc
Sub killprocess()
Dim ProcessName
Dim objWMIService, colProcesses, objProcess
Dim strcomputer As String
strcomputer = “.”
ProcessName = “EXCEL”
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” _
& strcomputer & “\root\cimv2”)
Set colProcesses = objWMIService.ExecQuery _
(“Select * from Win32_Process”)
For Each objProcess In colProcesses
If InStr(objProcess.Name, ProcessName) 0 Then
Call objProcess.Terminate
End If
Next
End Sub
‘————————————————————batas —————————————————-
Sub killprocessPID(PID As Long) ‘ panggil pidnya
Dim objWMIService, colProcesses, objProcess, objprop
Dim strcomputer As String
strcomputer = “.”
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)
Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’
For Each objProcess In colProcesses
For Each objprop In objProcess.Properties_
If objprop.Name = “Handle” Then
If objprop.Value = PID Then
Call objProcess.Terminate
Exit Sub
Else
GoTo nextproc
End If
End If
Next objprop
nextproc:
Next
End Sub
‘————————————————————batas —————————————————-
Sub closeprocess()
Dim ProcessName
Dim objprop As Object
Dim objWMIService, colProcesses, objProcess
Dim strcomputer As String
Dim CurrWnd As Long
Dim ProcessId As Long
Dim blengos As Long
strcomputer = “.”
ProcessName = “EXCEL”
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)
Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’
Dim i As Integer
i = 0
For Each objProcess In colProcesses
If InStr(objProcess.Name, ProcessName) 0 Then
For Each objprop In objProcess.Properties_
i = i + 1
Cells(i, 6).FormulaR1C1 = objprop.Name
Cells(i, 7).FormulaR1C1 = objprop.Value
blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)
Next objprop
End If
Next
End Sub
‘————————————————————batas —————————————————-
Sub showprocess()
Dim ProcessName
Dim objprop As Object
Dim objWMIService, colProcesses, objProcess
Dim strcomputer As String
Dim CurrWnd As Long
Dim ProcessId As Long
Dim blengos As Long
strcomputer = “.”
ProcessName = “EXCEL”
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)
Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’
Dim i As Integer
i = 0
For Each objProcess In colProcesses
If InStr(objProcess.Name, ProcessName) 0 Then
For Each objprop In objProcess.Properties_
i = i + 1
Cells(i, 6).FormulaR1C1 = objprop.Name
Cells(i, 7).FormulaR1C1 = objprop.Value
blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)
Next objprop
End If
Next
End Sub
‘————————————————————batas —————————————————-
Sub processID_kalangkabut()
‘adapté d’une procedure de Benoit Marchand
Dim CurrWnd As Long, Length As Long, ProcessId As Long
Dim TaskName As String
Dim Parent As Long, hwnd As Long, blengos As Long
hwnd = FindWindow(“Shell_traywnd”, vbNullString)
CurrWnd = GetWindow(hwnd, 0)
If Range(“bunuh”).FormulaR1C1 “” Then
While CurrWnd 0
Length = GetWindowTextLength(CurrWnd)
TaskName = Space$(Length + 1)
Length = GetWindowText(CurrWnd, TaskName, Length + 1)
TaskName = Left$(TaskName, Len(TaskName) – 1)
If InStr(1, LCase(TaskName), Range(“bunuh”).FormulaR1C1, vbTextCompare) > 0 Then
blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)
CurrWnd = GetWindow(CurrWnd, 2)
If MsgBox(“Nama Process ” & TaskName & ” PID_Nya : ” & blengos, vbYesNo) = vbYes Then
killprocessPID (ProcessId)
End If
Else
CurrWnd = GetWindow(CurrWnd, 2)
End If
DoEvents
Wend
Else
MsgBox “Gak Bisa Di bunuh, Kenapa Yach !!! Liat Ndiri !!!”
End If
End Sub
‘————————————————————end —————————————————-
8. Kembali ke Excel pada cell “E9”
a. Ketik word = kill app word
b. Ketik nama applikasi = untk kill aplikasi
Waktuyangtertinggal's 