ByTrient
Admin
Ruh Hali : 
Mesaj Sayısı : 144
Konu Sayısı : 331
Kayıt tarihi : 13/08/09
Yaş : 34
Nerden : samsun
 |  Konu: LEGAL TS KODLARI SADECE burada Cuma Haz. 04, 2010 1:16 pm | |
| 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 | |
|
