Bilgisayarı Kapatmak

'Projenize 1 adet buton ekleyin

Private Sub Command1_Click()
Dim MsgRes As Long
MsgRes = MsgBox("Windows'unuzu kapatmak istiyor musunuz?", vbYesNo Or vbQuestion)

If MsgRes = vbNo Then Exit Sub

Call ExitWindowsEx(Kapat, 0)
Unload Me
End Sub

 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

bilgisayarı kapatmak