Semua orang juga tau, notepad itu cuma text-editor standard bawaan Windows. Ups, maksud saya setidaknya itulah pemikiran kebanyakan orang yang menggunakan Windows.
Notepad memang sebuah text-editor. Tapi jangan salah, karena dengan Notepad kalian bisa memanfaatkan fungsi - fungsi tak langsung Windows.
Misalnya, ada yang namanya Windows Scripting, yaitu penggunaan script Javascript dan VBscript untuk memudahkan berbagai proses.
Biasanya file tersebut berekstensi .js (jscript) dan .vbs (vbscript).
Script tersebut kemudina akan dieksekusi oleh sebuah aplikasi yang bernama wscript.exe. Jadi misalkan anda mengerti programming Javascript atau VBscript for Windows, maka anda dapat memanfaatkan fungsi - fungsi Windows yang tadi sudah saya sebutkan.
Windows memiliki fungsi menjalankan ekstensi HTA (HTML Applications), sebuah aplikasi berbasiskan HTML dan Jscript maupun VBscript. HTA sendiri tampaknya jarang sekali dibahas diberbagai blog tutorial yang pernah saya kunjungi. 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 (baca: notepad) dan disimpan dengan ekstensi .hta, selesai lah pekerjaan kita. Untuk menjalankannya pun hanya perlu mengklik ganda file tadi. Simple dan sangat berguna bukan? Hehehehe
Oke, kembali ke garis pokok postingan kali ini. Saya akan mencoba memberikan sedikit kode yang akan berfungsi sebagai sebuah aplikasi Task Manager, menggantikan WINDOWS TASK MANAGER yang seringkali aksesnya diblokir oleh admin. *devil mode_on xP*
Spoiler:
- Klik START -> RUN -> ketik NOTEPAD, kemudian ENTER
- Kopi kode berikut :
<html><head><title>TENZ!KILLER</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>BUNUHÂ "
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>
<table bgcolor=#FFCC00><tr><td onclick=vbscript:list>
<font face=verdana size=2pt><b>Â REFRESHÂ </b></td></tr></table>
</body></html>
- Save di desktop anda dengan nama :
"TENZKILLER.hta" -> INGAT, MENGGUNAKAN TANDA PETIK.
Kemudian carilah file TENZKILLER.hta di desktop anda, dan kemudian dobel klik.
Sekarang aplikasi HTA pertama anda sudah jadi, silahkan klik tombol BUNUH untuk mematikan proses yang anda inginkan. SIMPEL bukan? xP
NB: Trik ini hanya saya test di Windows XP Service Pack 1 & 2
4 komentar:
hebat si judo !!
terimakasih untuk support teman =)
Salam kenal,
q bhowman yg newbie abir n mash awam bgt about script.
Q dah nyoba di xp2 service pack 3 g jadi knapa ya?debuging nya eror mulu. Keterangannya eror di bodynya (vbscript:list)
apa yg kurang?tlg dibantu.
Kalo bisa dikirim ke email saya mondolx@gmail.com
bang kalo fungsi RUn yang diblokir bagemana bukanya hehehe help me plaease!!!
Posting Komentar