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>captbbx TaskMgr</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</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… 
Tulisan Terkait:
Keyword Pencarian Populer:
makasih ya, berguna banget nih triknya