Atak Başlat-Char Gizle-Char Sabitle

Admin Mesaj Sayısı : 132 Kayıt tarihi : 10/01/10 Yaş : 34

Atak Başlat :

Kod:: If Check12.Value = 1 Then
CS = 1
Timer9.Enabled = True
Check12.Caption = "Atak Durdur"
Else
CS = 0
Timer9.Enabled = False
Check12.Caption = "Atak Başlat"
End If
End Sub

Timer :

İnvertal = 1200
Enabled = False

Timer kodları :
If Check13.Value = 0 Then
Tuş yolla("z")
SendKeys (DIK_Z)
Else

End If
Atak1
End Sub

Char Gizle :

Kod:: Private Sub Check1_Click()

If Check1.Value = 1 Then

WriteLong KO_ADR_CHR + KO_OFF_HD, "0"

Else

WriteLong KO_ADR_CHR + KO_OFF_HD, "1"

End If

End Sub

Char Sabitle :

Kod:: If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, 1
Else
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, 16256
End If
End Sub

alıntıdır