İstenilen Zamanda Pc Kapatma(otomatik) Visual Basic

[azrail050]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

form1 kodları

Programın hazır exe halini

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Burdan indirebilirsiniz
--------------------------------
Dim kur As Byte
Dim dakika As Byte
Dim saat As Byte





Private Sub Command1_Click()
kur = Val(Combo1.List(Combo1.ListIndex))
dakika = Mid(Label1.Caption, 4, 2)
saat = Mid(Label1.Caption, 1, 2)

If Combo1.Text = "" Then
MsgBox "Lütfen Dakikayı giriniz...", vbOKOnly + 16, "Uyarı..."
Else
Label6.Caption = ":"
If kur + dakika >= 60 Then
Label2.Caption = kur + dakika - 60
Else
Label2.Caption >= kur + dakika
End If
If kur + dakika > 60 Then
Label3.Caption = saat + 1
Else
Label3.Caption = saat
End If
If Len(Label2.Caption) = 1 Then Label2.Caption = "0" & Label2.Caption
If Len(Label3.Caption) = 1 Then Label3.Caption = "0" & Label3.Caption


End If
End Sub


Private Sub Command2_Click()
Label3.Caption = ""
Label2.Caption = ""
Label6.Caption = ""
End Sub
Private Sub Timer1_Timer()
sistem = Time
Label1.Caption = Mid(sistem, 1, 5)
If Mid(Time, 1, 2) = Label3.Caption And Mid(Time, 4, 2) = Label2.Caption Then
Form2.Show


End If

End Sub
------------------


Form2 kodları
---------------
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label2.Caption = "20"
End Sub
Private Sub Timer1_Timer()

Label2.Caption = Val(Label2.Caption) - 1
If Label2.Caption = "0" Then
Shell ("c:/windows/system32/shutdown.exe -s -t 0")
End
End If

 

[HanDe*]

TeşekkürLer

 

[azrail050]

reca

 

[umit99]

Teşekkürler.

 

[Karcemackers]

Paylasım icin tesekkurler.