Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Timer()
'Bilgisayarı Kapatmak için
If label2.Caption = text1.Text And k1.Value = True Then
MsgBox ("Bilgisayarınız Kapatılıyor"), (16), ("UYARI !!!")
ExitWindowsEx 1, 0
DoCmd.Quit acQuitSaveAll
End if
'Bilgisayarı resetlemek için
If label2.Caption = text1.Text And r1.Value = True Then
MsgBox (" Bİlgisayarınız Resetleniyor "), (16), ("UYARI !!!")
ExitWindowsEx 2, 0
DoCmd.Quit acQuitSaveAll
End If
End Sub
Bunları formun kod bölümüne yazdıktan sonra özelliklerinden Süre Ölçer Aralığını ayarlamalısınız. Bildiğiniz üzere bu alana yazacağınız 1000 rakamı 1 dk' a tesadüf edecektir.
Örnek olmaksınız afaki olarak hazırlanmıştır. Çalışıp çalışmayacağını kendi örneğiniz üzerinde deneyerek bilgi verirseniz seviniriz. Çünkü Örneğin: If label2.Caption = text1.Text And r1.Value = True Then satırının işlerliği hakkında fikir yürütemiyorum. Kolay gelsin.