Menonaktifkan Tombol Start menu dan Entask

Seperti yang pernah saya janjikan pada tulisan saya yang berjudul Trik Menuliskan Teks pada Form, dimana untuk menunjang kinerja program Mengunci Desktop dengan Printscreen harus disertai kode2 untuk Menonaktifkan Tombol Start agar Komputer benar2 terkunci, maka sekaranglah saatnya anda menambahkan kode2 tersebut, seperti dibawah ini :

Private Const VK_ESCAPE = &H1B
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call keybd_event(VK_ESCAPE, 0, 0, 0)
Call keybd_event(VK_ESCAPE, 0, _
KEYEVENTF_KEYUP, 0)
End Sub

Untuk pengetesan disarankan menggunakan Command Button, Klik Command2, lalu coba anda klik start menu, kalau start menu tidak muncul atau muncul cuma sedetik kemudian nutup lagi,Command2. gunanya untuk menjalankan Timer1. Dan setelah puas anda mengetes, buang Command Button nya. Timer1 diset ke Enabled true. setelah itu tambahkan kode berikut :

'tuliskan kode ini pada module
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

'tuliskan di form load
Private Sub Form_Load()
DisableTaskManager
End Sub

Setelah semua kode sudah anda tempatkan pada form dan modul, maka berarti Project program buatan anda sudah jadi, Tinggal jadikan project vb tersebut menjadi File exe.
Kalau anda malas menuliskan kode2nya, yang cukup banyak itu, anda bisa download di BOX.net. untuk alamat URLnya, kalau mau nanti akan saya berikan (gratis-tis).