Oke guys ..simaklah thread saya yang baru ini !
Kali ini saya ingin memberi tahu ,bagaimana carannya membuat taskmanager dengan menggunakan code HTML ?
Taskmanager buatan ini ,di gunakan ketika taskmanager pada komputer anda tidak terdeteksi atau disable.
Caranya sangat mudah, anda hanya mengcopy-paste code HTML yang telah saya buat kedalam Notepad atau mungkin sebelum anda menyimpannya bisa anda edit sesuai selera anda ..
Code HTMLnya :
<html><head><title>'Bhuzielz Task Manager</title>
<HTA:APPLICATION
APPLICATIONNAME="Killerman" ID="Bhuzielz" 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=yellow>"
datanya = datanya & "<b>Daftar Program yang aktif:</b><br><br>"
datanya = datanya & "<table cellspan=0 cellpadding=0 border=1"
datanya = datanya & " bordercolor=yellow><tr bgcolor=black><td>"
datanya = datanya & "<font face=verdana size=2pt color=yellow>"
datanya = datanya & "<b>PID</td><td><font face=verdana size=2pt"
datanya = datanya & " color=yellow><b>Program</td><td><font "
datanya = datanya & "face=verdana size=2pt color=yellow><b>Action</td></tr>"
for each Process in objService.InstancesOf("Win32_process")
Return = Process.GetOwner(isi)
datanya = datanya & "<tr bgcolor=#000000><td><font face=verdana "
datanya = datanya & "size=2pt color=yellow><b>"
datanya = datanya & Process.processid & "</b></td><td><font "
datanya = datanya & "face=verdana size=2pt color=yellow>"
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>Hapus "
datanya = datanya & "</b></td></tr>"
Next
data.innerhtml = datanya
end sub
sub BUNUH(PID)
dim objService,Process,colProcess,t,vv
t = msgbox("anda yakin ingin menghapus PID " & pid & "?",36,"'Bhuzielz")
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>
lalu di save dengan
menggunakan extensi hta .
contoh :
taskmanager.hta
Setelah di save, anda tinggal menjalankannya dengan cara mengklik 2x aplikasi tersebut lalu akan munculah tampilan seperti gambar dibawah ini :
Silahkan di coba !
Semoga bermanfaat .. XD