Mungkin ini udah banyak dibahas di banyak forum-forum hacking maupun prheaking, emang saya hanya copas alias copy paste aja kok, hehehe Aplikasi pengganti task manager yang akan kita buat kali ini tidak memerlukan compile seperti yang lain-lainnya, seperti jika kita menggunakan programming delphi, visual basic ataupun yang lainnya. Ini adalah sebuah aplikasi HTML atau lebih sering disebut html application (HTA). Kodenya pun tak asing lagi bagi kita yakni terdiri dari source code gabungan antara HTML, VB script, dan javascript. Daripada banyak penjelasan mari kita langsung praktekan saja. Langkah pertama(x) silakan buka notepad anda, bisa notepad bawaan Windows atau pun Notepad++, lalu copas code di bawah ini:
<html><head><title>Task Manager By www.istradaz.blogspot.com</title>
<HTA:APPLICATION
APPLICATIONNAME="KaskusKill" ID="oHTA" BORDER="thick"
BORDERSTYLE="normal" CAPTION="yes" CONTEXTMENU="yes"
INNERBORDER="no" MAXIMIZEBUTTON="no" MINIMIZEBUTTON="yes"
NAVIGABLE="yes"
ICON="TASKMGR.EXE" SCROLL="yes" SCROLLFLAT="yes"
SELECTION="no" SHOWINTASKBAR="yes" SINGLEINSTANCE="no"
SYSMENU="yes" VERSION="0.3" WINDOWSTATE="normal" WIDTH="3%">
</head>
<script language=vbscript>
sub LIST()
dim objService,Process,colProcess,datanya
dim return,isi
set objService = getobject("winmgmts:")
datanya = "<font face=verdana size=2pt color=white>"
datanya = datanya & "<b>DAFTAR PROCESS:</b><br><br>"
datanya = datanya & "<table cellspan=0 cellpadding=0 border=1"
datanya = datanya & " bordercolor=black><tr bgcolor=black><td>"
datanya = datanya & "<font face=verdana size=2pt color=white>"
datanya = datanya & "<b>PID</td><td><font face=verdana size=2pt"
datanya = datanya & " color=white><b>Nama Proses</td><td><font "
datanya = datanya & "face=verdana size=2pt color=white><b>Aksi</td></tr>"
for each Process in objService.InstancesOf("Win32_process")
Return = Process.GetOwner(isi)
datanya = datanya & "<tr bgcolor=#333333><td><font face=verdana "
datanya = datanya & "size=2pt color=white><b>"
datanya = datanya & Process.processid & "</b></td><td><font "
datanya = datanya & "face=verdana size=2pt color=white>"
datanya = datanya & process.name & "</td><td bgcolor=black "
datanya = datanya & "onclick=vbscript:BUNUH("
datanya = datanya & process.processid & ")><font face=verdana "
datanya = datanya & "size=2pt color=#FFCC00><b>KILL"
datanya = datanya & "</b></td></tr>"
Next
data.innerhtml = datanya
end sub
sub BUNUH(PID)
dim objService,Process,colProcess,t,vv
t = msgbox("Anda yakin KILL PID " & pid & "?",36,"CAPTBBX")
if t = 7 then exit sub
set objService = getobject("winmgmts:")
vv = "Select * from Win32_Process Where processID = " & PID
Set colProcess = objService.ExecQuery (vv)
For Each Process in colProcess
Process.Terminate()
Next
list
end sub
</script>
</head><body onload="vbscript:list" bgcolor=#666666>
<span id="data"></span>
<table bgcolor=#FFCC00><tr><td onclick=vbscript:list>
<font face=verdana size=2pt><b>REFRESH (by. Blog Istrada )</b></td></tr></table>
</body></html>Sekarang yang terpenting adalah simpan code tersebut tadi dengan namafile.hta. Ingat sekali lagi ekstensi filenya bukan *.txt atau *.html tetapi *.hta selanjutnya silakan double klik file yang telah anda buat tadi. Selamat mencoba
:D
Peraturan Berkomentar :
1. Berkomentarlah Sesuai Topik
2. Perhatikan Sopan santun
3. Untuk Berkomentar Gunakan Google+ / Open ID / Name URL
4. No SPAM
5. No Promosi
Sekian Terima Kasih
EmoticonEmoticon