+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Zamanlı Pc Kapatma (/konu-zamanli-pc-kapatma.html)
Sayfalar:
1
2
Zamanlı Pc Kapatma - |By|KiDnArUt| - 06/11/2010
Kolay Gelsin vb kullanımında yeniyim bir kısımda takıldım yardımcı olursanız sevinirim
Sub Timer2_Timer ()
If label2.Caption = text1.Text And k1.Value = True Then
MsgBox ("Bilgisayarınız Kapatılıyor"), (16), ("UYARI !!!")
End If
If label2.Caption = text1.Text And r1.Value = True Then
MsgBox (" Bİlgisayarınız Resetleniyor "), (16), ("UYARI !!!")
End If
Üstte pc kapatma komutunu eklemeden uygulama düzgün bir şekilde çalışıyor yalnız
pc kapatma yada reset kodunu eklediğimde shell komutunu kabul etmiyor nerde hata yapıyorum ?
Shell ("shutdown -s -t 1") Komutunu Nereye Eklemem Lazım Şimdiden Teşekkürler
Cvp: Zamanlı Pc Kapatma - ercansahin - 06/11/2010
Bu durumla ilgili oturumu kapat,bilgisayarı kapat,reset örneği konusunu inceleyebilirsiniz.
Cvp: Zamanlı Pc Kapatma - |By|KiDnArUt| - 06/11/2010
İlginiz İçin Teşekkür Ederim yalnız Ben Timer Kullanarak Bu İşlemi Gerçekleştiriyorum Bu Konuda Yardımcı Olursanız Sevinirim
Cvp: Zamanlı Pc Kapatma - ercansahin - 06/11/2010
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 SubBunları 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.Cvp: Zamanlı Pc Kapatma - |By|KiDnArUt| - 06/11/2010
Malesef Kodları Tanımıyor Ayrıca Yazım Hatası Veriyor ßirde Çok Özür Dilerim ßen Konuyu Yanlış Yere Açmışım
Çalışmam Visucal Basic Konuyu Taşıya ßilirmisiniz
Cvp: Zamanlı Pc Kapatma - ercansahin - 06/11/2010
O halde örneğinizi ekleyin bakılsın, başka türlü nerede ne olduğu bilinemez ki?