Olunce Pc Kapat - Oyundan Cık Kodları

Olunce Pc Kapat İcin Gerekenler : 1 adet timer ve 1 adet check ekleyin ..
Sayıları sizin şeye göre ayarlayın ..


Check Kodu :

Kod:

Private Sub Check33_Click()
If Check33.Value = 1 Then
Timer20.Enabled = True
Else
Timer20.Enabled = False
End If
End Sub

Timer kodları :

Kod:

Private Sub Timer20_Timer()
If LabelHP.Caption = 0 Then
Shell ("shutdown.exe -s -t 7200")
Else
End If
End Sub

Olunce Oyundan Cık İcin Gerekenler : Timer ve check ekleyin bir adet . Timer ve checki kendi şeylerinize göre aayarlayın sayılarını.

Timer 100 invertal olacak ve true olacaktır..

Kod:

Private Sub Check9_Click()
If Check9.Value = 1 Then
Timer19.Enabled = True
Else
Timer19.Enabled = False
End If
End Sub

Timer Kodları :

Kod:

Private Sub Timer19_Timer()
If LabelHP.Caption = 0 Then
Shell "TaskKILL /F /IM KnightOnline.exe", shutdown - s
End If
End Sub

Label şeyi varya o hani hp ve mp ayarları olan yerdeki şuanki : yazan label olacak .. onun ismi neyse sizde ordaki LABELHP yi ona göre değiştirin. Yani bağlamış oluyoruz ölünce cıkma şeyini...