01.30
Galih
untuk membuatnya copy paste semua script ini ke note pat
trus save as, dengan nama taskmanager.hta
script :
<html><head><title>'NthoenG Task Manager</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="fixed" WIDTH="1%">
</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 Program Sing Mlaku:</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>Programe</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=#ff1919> <b>Rampungi "
datanya = datanya & "</b></td></tr>"
Next
data.innerhtml = datanya
end sub
sub BUNUH(PID)
dim objService,Process,colProcess,t,vv
t = msgbox("Tenane Meh Ngrampungi PID " & pid & "?",36,"'NthoenG")
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>
kunjungi <a href='http://nthoeng.blogspot.com'>http://nthoeng.blogspot.com</a>
Semoga Berhasil !!
0komentar:
Posting Komentar