Private Sub Check9_Click()
If Check9.Value = 1 Then
Timer19.Enabled = True
Else
Timer19.Enabled = False
End If
End Sub
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..
Kodları :
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...
If Check9.Value = 1 Then
Timer19.Enabled = True
Else
Timer19.Enabled = False
End If
End Sub
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..
Kodları :
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...
