Posted by imin at Wednesday, October 19, 2011
Trik VB Menutup Semua Program
- Yang instant memang yang banyak disukai orang. Sama halnya dengan
komputer. Jika kita membuka beberapa program di windows, tentu harus
satu per satu menutupnya. Tapi dengan trik vb berikut kalian bisa
menutup semua program hanya mengklik tombol khusus. Bagaimana caranya?
Buat dulu sebuah form dan tambahkan 1 command button namailah dengan "Tutup Semua Program"
Untuk Declaration
Private Declare Function BroadcastSystemMessage _
Lib "user32" (ByVal dw As Long, pdw As Long, _
ByVal un As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Pendeklarasian variabel yang diperlukan
Const BSF_POSTMESSAGE = &H10
Const BSM_APPLICATIONS = &H8
Const WM_SYSCOMMAnd = &H112
Menutup aplikasi ketika Command1 di klik
Private Sub Command1_Click()
BroadcastSystemMessage BSF_POSTMESSAGE, _
BSM_APPLICATIONS, WM_SYSCOMMAnd, &HF060&, ByVal 0&
End Sub
Tidak ada komentar:
Posting Komentar