Oto Heal Source

saol

Gerekenler:
1 adet Checkbox
1 adet Timer
1 adet Combobox
2 adet Label
Not: Label2 Captionu: "Kalan dakika:" olsun

Checkbox İçine:

Kod:
Private Sub Check1_Click()
If Check1.Value = 1 Then
UseTS
Label1.Caption = "61"
Timer1.Enabled = True
Else
Label1.Caption = "?"
Timer1.Enabled = False
End If
End Sub



Timer İçine ( Enabled=False Interval=60000 )
Kod:
Private Sub Timer1_Timer()
If Val(Label1.Caption) > 0 Then
Label1.Caption = Val(Label1.Caption) - 1
Else
UseTS
Label1.Caption = "61"
End If
End Sub


Combobox List İçine:

Kod:
Orc Bowman
Kecoon
Bulture
Zombie
Lycan
Scorpion
Kobold
Mastodon
Black Widow
Death Knight
Sheriff
Harunga
Burning Skeleton
Raven Harpy
Uruk Tron
Centaur
Stone Golem
Troll Captain


Formun Boş Kod Kısmına:
Alıntı:
Public Sub UseTS()
Select Case Combo1.ListIndex
Case 0
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103F6340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 1
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103D4330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 2
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103E8330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 3
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103F2330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 4
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "310306340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 5
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "310310340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 6
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "31031A340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 7
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "310342340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 8
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "310344340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 9
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "310356340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 10
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "310360340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 11
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "310388340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 12
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "31038A340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 13
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103BA340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 14
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103C4340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 15
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103D4340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 16
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103D8340700" & KarakterID & KarakterID & "0000000000000000000000000000"
Case 17
Paket "3103C1330700" & KarakterID & KarakterID & "0000000000000000000000000000"
Paket "3103E2340700" & KarakterID & KarakterID & "0000000000000000000000000000"
End Select
End Sub

++++++++++++