Otomatik bilgisayar kapatma

[AcimasiZz-]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Girilen Zaman Da Bilgisayar Kapatma


Formumuza 1 Tane Label , 1 Tane Text Box , 2 Tane Command , 1 Tane Timer ( İnterval özelliği 1000 Olacak ) Ekleyelim.

Command 1 Caption Özelliğine Başla Yazalım
Command 2 Caption Özelliğine Çıkış Yazalım

Vereceğim Kodlarım Tamamını Forma Yapıştıralım Kolay Gelsin.

Private Sub Command1_Click()
Form1.WindowState = 1 'Formu simge durumuna küçült
Timer1.Enabled = True 'Zamanlayıcıyı başlat
End Sub


Private Sub Command2_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End

End Sub


Private Sub Form_Load()
Show
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub



Private Sub Label1_Click()
End Sub



Private Sub Timer1_Timer()
saat = Format(Time, "hh:mm")
If saat = Text1.Text Then
Beep
Shell ("shutdown -s -t 1")
Timer1.Enabled = False
Form1.WindowState = 0 'Formu tekrar görüntüle
End If
End Sub

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .