Notepad memang bukan hanya text-editor biasa. Kita bisa memanfaatkan notepad untuk fungsi-fungsi pada windows seperti VBScript (.vbs) dan JScript (.js). Script tersebut akan dieksekusi oleh sebuah aplikasi bernama wscript.exe pada windows. Jadi misalkan anda mengerti programming Javascript atau VBscript for Windows, maka anda dapat memanfaatkan fungsi - fungsi Windows yang tadi sudah saya sebutkan. Contoh nyata dari pemanfaatan wscript.exe adalah virus harry potter yang membuat shortcut-shortcut dari semua folder. Itu merupakan virus yg memanfaatkan wscript.exe.
Kembali lagi ke pembahasan dari judul, windows memiliki fungsi menjalankan ekstensi HTA (HTML Applications), sebuah aplikasi berbasiskan HTML dan Jscript maupun VBscript. Untuk sekedar informasi, dengan menggunakan HTA kita dapat menghasilkan sebuah aplikasi yang powerfull dan tanpa perlu melakukan COMPILE ke sebuah executable files agar dapat dijalankan. Jadi, seluruh script code aplikasi HTA ini cukup kita tulis menggunakan text-editor berupa notepad dan disimpan dengan ekstensi .hta. Untuk menjalankannya pun hanya perlu mengklik ganda file .hta tadi. Simple dan sangat berguna.
Kembali lagi ke pokok bahasan. Berikut ini adalah cara membuat pengganti Task Manager:
- Jalankan Notepad (Run - ketik: notepad - kemudian ENTER)
- copy-paste code berikut:
<html><head><title>Task Manager Buatan</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 RUNNING PROGRAM:</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>End Task "
datanya = datanya & "</b></td></tr>"
Next
data.innerhtml = datanya
end sub
sub BUNUH(PID)
dim objService,Process,colProcess,t,vv
t = msgbox("Anda yakin bunuh PID " & pid & "?",36,"Tenz!KILLER")
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>
<br/><table bgcolor=#FFCC00><tr><td onclick=vbscript:list>
<font face=verdana size=2pt><b> REFRESH </b></td></tr></table>
</body></html> - Kemudian simpan dengan nama TaskManager.HTA (bisa diganti dengan nama lain, asalkan dengan extensi format .hta)
- Setelah itu, silahkan jalankan file .hta tersebut hanya dengan double klik saja.
- Kemudian tekan tombol End Task untuk menghentikan proses.
Gimana? sudah selayaknya task manager-nya windows (Ctrl+Alt+Del) kan???
Nah, ini bisa dimanfaatkan jika task manager windows kita didisable oleh karena terinveksi virus.
Selamat Mencoba!!!
NB: Trik ini hanya bisa di pakai pada windows XP service pack 1, service pack 2, dan service pack 3
(sumber: http://judotenslab.blogspot.com/)
Tidak ada komentar:
Posting Komentar