Yuk Cari Tahu Disini !

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>

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>"

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()

list

end sub

</script>

</head><body onload="vbscript:list" bgcolor=#666666>

<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

Hay Guys ..
Sekedar mau share nih,sekaligus berbagi ilmu buat semuanya.Emang sih bukan sesuatu yang menarik tapi insya allah sangat berguna.
Saya ingin mengshare taskmanager buataan sendiri .
Taskmanager buatan saya ini ,tidak sperti taskmanager pada umunya (asli dari komputer ),jadi banyak keterbatasanya .
Kalo anda penasaran sperti apa taskmanagernya ..
Silahkan langsung klik saja gambar di bawah ini !

Taskmanager buatan saya ini dapat digunakan jika pada komputer atau laptop anda tidak terdeteksi atau disable,karna biasanya di warnet-warnet taskmanager sering didisable oleh pemiliknya.
Selain keuntungan yg diatas ,taskmanager ini juga dapat anda simpan di dalam flashdisk ..
Sehingga dapat digunakan dimanapun dan kapanpun kalian membutuhkannya.
Dan disamping saya sudah memberitahu aplikasi ini untuk di download ,saya juga ingin memberi tahu cara membuatnya.
Ok ,silahkan klik ajah gan "Cara Membuat Task Manager Buatan"

Semoga Bermanfaat yahh !! ^^

Minggu, 28 Oktober 2012

Cara Membuat Task Manager dengan code HTML

Minggu, 21 Oktober 2012

Task Manager Buatan