My Biggest Inspiration

Baguskusumajaya
Bukan seorang member?

Jika Anda bukan member dan belum mendaftar, hanya membutuhkan waktu beberapa menit untuk mendaftar! Menjadi member mendapatkan banyak manfaat dan banyak lagi!.


-Mulai topik baru dan membalas pesan kepada orang lain.
-Berlangganan topik dan forum untuk mendapatkan update otomatis.
-Dapatkan profil Anda sendiri dan membuat teman baru.
-Menyesuaikan diri dari pengalaman Anda di sini dan berbagi.
Daftar Sekarang.
By: Baguskusumajaya

Mohon Maaf Bila ada Kesalah Kami

Team Baguskusumajaya

Selamat Datang Di Forum Baguskusumajaya


    Membuat Task Manager Dengan Notepad

    Share

    Admin
    Admin
    Admin

    Jumlah posting : 269
    Points : 100001821
    Reputation : -1
    Join date : 13.03.11
    Age : 19
    Lokasi : Palembang

    Membuat Task Manager Dengan Notepad

    Post  Admin on Fri Mar 16, 2012 3:05 pm

    ini om Gw kasih Bocoran membuat Task Manager dengan Notepad ....

    <html><head><title>captbbx TaskMgr</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 PROCESS:</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>KILL"
    datanya = datanya & "</b></td></tr>"
    Next
    data.innerhtml = datanya
    end sub
    sub BUNUH(PID)
    dim objService,Process,colProcess,t,vv
    t = msgbox("Anda yakin KILL PID " & pid & "?",36,"CAPTBBX")
    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>

    Cara nya :
    1. Buka Notepad
    2. Copas Kode di Atas
    3. Save ,, Contoh = TerserahMau Apa Kek.hta

    ingat Belakang nya .hta

      Waktu sekarang Tue Dec 06, 2016 5:10 pm