pasti kesel dan sebel kan kalo ke warnet trus ketemu AntiEXE atau AppsManager yang menghalangi penginstalan aplikasi atau running aplikasi EXE?
hehehe.. sekarang tidak lagi (semoga...)
Ada aplikasi khusus, sebenernya ini bahasa mesin banget, dari dari vbscript..
cuman basisnya aplikasi yang jalan lewat HTML..
atau bisa dibilang Aplikasi basis web..
.HTA (HTML Application) bisa dijalankan di server windows atau setidaknya yang bisa mengeksekusi exe file..
btw, sebenernya ini tutorial copas an tapi yang penting bisa bermanfaat dan
semoga berkenan bagi anda semua..
Seep.. sekarang buka Notepad lo..
dan pastekan kode berikut :
Code:
<html><head><title>NEWBIE_KILLER</title>
<HTA:APPLICATION
APPLICATIONNAME="NEWBIE_Killer" 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:KILL("
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 KILL(PID)
dim objService,Process,colProcess,t,vv
t = msgbox("Anda yakin KILL PID " & pid & "?",36,"NEWBIE_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>
okeh, simpannya ke desktop coba, biar gampang nyarinya..
nah, kalo dah disimpan, sekarang lo ke desktop dan klik 2x file yang tadi..
sekarang lo bakal liha penampakan berikut di browser andalan lo..
Nah, silahkan matikan aplikasi yang menurut lo mengganggu aktifitas lo..
ini sebenernya dibuat lebih pas buat mengkill aktifitas yang membunuh TaskManager dan beberapa program managemen Windows..
misalnya virus..
Soalnya, kebanyakan virus kan mematikan kerja .exe
okeh, selamat mencoba.. kegagalan bukan akhir dari segalanya!
belajar dong kalo masih gagal ok..
No comments:
Post a Comment