Dalam program Visual Basic, Anda dapat menggunakan fungsi Windows API untuk memulai ulang sistem komputer. Teks ini menjelaskan cara keluar dari Windows 95 dan mematikan sistem komputer.
#Matikan sistem komputer
Anda dapat menggunakan fungsi ExitWindowsEx pada Windows API untuk memulai ulang sistem komputer dari program Visual Basic. Untuk menggunakan fungsi ini, sertakan pernyataan deklarasi berikut di bagian deklarasi normal pada formulir:
PRivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
Fungsi ExitWindowsEx memerlukan 2 parameter. Anda dapat menggunakan satu atau lebih kombinasi tanda berikut untuk memberi tahu fungsi ExitWindowsEx bahwa Anda ingin melakukan proses pematian.
EWX_FORCE Semua proses dihentikan secara paksa.
EWX_LOGOFF Semua proses dihentikan secara paksa dan pengguna dikeluarkan (logedoff).
EWX_POWEROFF Sistem komputer dimatikan, dan jika fitur hemat daya didukung, komputer akan dimatikan secara fisik.
EWX_REBOOTSistem komputer dimatikan dan dihidupkan ulang.
EWX_SHUTDOWN Komputer dimatikan secara fisik dan aman.
Contoh program berikut menggunakan kombinasi ketiga flag di atas. Kombinasi flag (EWX_LOGOFF, EWX_FORCE, dan EWX_REBOOT) memberitahu Windows95 untuk keluar dari semua kondisi normal.
Selama proses eksekusi, pengguna keluar dari jaringan dan menempatkan sistem komputer dalam keadaan siap untuk dimatikan oleh pengguna.
#Contoh program
Contoh program ini menunjukkan cara mematikan sistem komputer.
1. Mulai proyek baru dalam Visual Basic dan gunakan metode default untuk membuat Form1.
2. Tambahkan konstanta dan pernyataan deklarasi berikut ke bagian deklarasi normal di Form1 (perhatikan bahwa pernyataan deklarasi perlu ditulis dalam satu baris):
PrivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
KonstEWX_LOGOFF=0
KonstEWX_SHUTDOWN=1
KonstEWX_REBOOT=2
KonstEWX_FORCE=4
KonstEWX_POWEROFF=8
ConstEWX_RESET=EWX_LOGOFF EWX_FORCE EWX_REBOOT
3. Tambahkan kontrol tombol perintah ke Form1 dan gunakan metode default untuk membuat Command1. Setel properti Caption ke "Restart komputer".
4. Tambahkan kode berikut ke event klik Command1:
PrivateSubCommand1_Klik()
DimXAsLong
X=Keluar dari WindowsEx(EWX_RESET,dwReserved)
Sub Akhir
Tekan F5 untuk menjalankan contoh program di atas dan klik tombol perintah untuk me-restart sistem komputer. ->