twitter

Cara Shutdown XP Pada Visual Basic

0 komentar
Posted in


Form1
Private Sub Command1_Click()
Module1.shutdown 0
End Sub

Private Sub Command2_Click()
MsgBox "Shutdown", vbInformation, "Info"
End Sub

Module1
Public Declare Function shutdown Lib "Shell32" Alias "#60" (ByVal sparam As Long) As Long


Pada saat program dijalankan akan tampil Form1. Klik Pesan Shutdown untuk menampilkan message box yang bertuliskan Shutdown. Klik Shutdown untuk memanggil system Shell32 yang ada pada module1 yang digunakan untuk proses mematikan komputer pada windows.


Dan akan tampil seperti ini.

0 komentar:

Posting Komentar