Membuat Aplikasi Enable/Disable task-manager

Ok langsung saja

-Buka Vb.6.0 anda
-Pilih standar exe
-buatlah 2 buah command button

doble Klik bagian command1(Untuk Enable taskmanager) dan copas code ini

Code:

Private Sub Command1_Click()
    CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0
    MsgBox "Task manager has enabled.", vbInformation, "Success"
End Sub

untuk Mendisable taskmanager

Code:

Private Sub Command2_Click()
    CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1
    MsgBox "Task manager has disabled.", vbInformation, "Success"
End Sub

kemudian di bagian menu Project klik---->add module-->open
kemudian muncul buat isi code copas code di bawah ini

Code:

Public Sub CreateKey(folder As String, value As String)

Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.regwrite folder, value, "REG_DWORD"
End Sub

Public Sub DeleteKey(value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.regdelete value
End Sub

untuk mempercantik tampilan ganti caption command1=Enable dan
command2=Disable

Dan terakhir complier file menjadi file berekektensi exe(Klik File-->Make Project1.exe)
terserah kalian namakan apa
semoga berguna

Credit:ME+Buku Tutor

nice gan , meski liat ke buku tutor ..
lumayan buat iseng2 berhadiah di rumahh ....