Jumat, 18 Januari 2013

Trik VB Menutup Semua Program

Posted by 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