Source Disable Task Manager

FreeSource | Source Disable Task Manager

Selamat siang sobat FESO, untuk postingan ke-2 dari website ini, saya admin FESO akan membagikan SourceCode yang unik untuk mengerjai teman, ya walaupun code ini sudah basi tetapi saya akan tetap membagikannya kepada anda yang belum pernah tahu code ini, ya langsung saja kita ke TKP :

Alat-Alat yang dibutuhkan :

• Visual Basic 6 Full Version / Portable (sama saja)
• Komputer
• Mouse
• Keyboard
• Jaringan Internet
• Harddisk Space Yang Cukup
• Teh ataupun coffee

Ikuti dulu langkah di bawah ini ya :

• Buka Visual Basic 6 Full Version / Portable
• Tambahkan sebuah Form
• Tambahkan 1 Buah Command Button beri nama "cmd Disable"
• Lalu Tambahkan sebuah Module dan beri nama "modTask"
• Masukkan Code Dibawah ini di dalam Module "modTask"

Option Explicit 

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Private Type NOTIFYICONDATA 

    cbSize As Long 

    hWnd As Long

    uId As Long

    uFlags As Long

    ucallbackMessage As Long

    hIcon As Long

    szTip As String * 64

End Type 

Private Const NIM_DELETE = &H2 

Public Function DisableTaskManager() 

    Dim tskWin As Long, t As NOTIFYICONDATA 

    Shell "taskmgr.exe", vbHide 

    Do Until tskWin <> 0 

        tskWin = FindWindow("#32770", "Windows Task Manager") 

    Loop 

    t.hWnd = tskWin

    Shell_NotifyIcon NIM_DELETE, t 

End Function 

Setelah itu Masukkan Code Di bawah ini ke dalam Code Form1 :
Option Explicit

Private Sub cmdDisable_Click() 

    DisableTaskManager 

End Sub 

Nah Tinggal di Run kan saja.

Silahkan Download Source Nya Dibawah Ini | RAR Password : www.vb6-freesource.blogspot.com