[ OTO TS modül +Kod ]USKO kendi KOXPUNU kendin yap VB6

İlk Önce Form`a 1 List ,1 Text box,2 Adet Label,1 Adet Timer Ekliyoruz.





Modül Açıp Su Kodları Ekliyoruz.



Public Sub ts() Dim pStr As String, pBytes() As Byte

If Form1.List2.ListIndex = 0 Then

Skilid = "FA2B07"

Else

If Form1.List2.ListIndex = 1 Then

Skilid = "042C07"

Else

If Form1.List2.ListIndex = 2 Then 'Bulture

Skilid = "182C07"

Else

If Form1.List2.ListIndex = 3 Then 'Zombie

Skilid = "222C07"

Else

If Form1.List2.ListIndex = 4 Then 'Lycan

Skilid = "362C07"

Else

If Form1.List2.ListIndex = 5 Then 'Stripter Scorpion

Skilid = "402C07"

Else

If Form1.List2.ListIndex = 6 Then 'Kobolt

Skilid = "4A2C07"

Else

If Form1.List2.ListIndex = 7 Then 'Death Knight

Skilid = "862C07"

Else

If Form1.List2.ListIndex = 8 Then 'Mastadon

Skilid = "722C07"

Else

If Form1.List2.ListIndex = 9 Then 'Black Window

Skilid = "742C07"

Else

If Form1.List2.ListIndex = 10 Then 'Sheriff

Skilid = "9A2C07"

Else

If Form1.List2.ListIndex = 11 Then 'Harunga

Skilid = "B82C07"

Else

If Form1.List2.ListIndex = 12 Then 'Burning Skeloton

Skilid = "BA2C07"

Else

If Form1.List2.ListIndex = 13 Then 'Raven Harpy

Skilid = "EA2C07"

Else

If Form1.List2.ListIndex = 14 Then 'Uruk Tron

Skilid = "F42C07"

Else

If Form1.List2.ListIndex = 15 Then 'Troll Warior

Skilid = "FE2C07"

Else

If Form1.List2.ListIndex = 16 Then 'Centaur

Skilid = "042D07"

Else

If Form1.List2.ListIndex = 17 Then 'Stone Golem

Skilid = "082D07"

Else

If Form1.List2.ListIndex = 18 Then 'Orc Bowman

Skilid = "262D07"

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

pStr = ("3101" + Skilid + "00" + Form1.CharID.Caption + Form1.CharID.Caption + "0000000000000000000000")

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

pStr = ("3102" + Skilid + "00" + Form1.CharID.Caption + Form1.CharID.Caption + "0000000000000000000000")

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

pStr = ("3103" + Skilid + "00" + Form1.CharID.Caption + Form1.CharID.Caption + "0000000000000000000000")

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

pStr = ("3104" + Skilid + "00" + Form1.CharID.Caption + Form1.CharID.Caption + "0000000000000000000000")

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

End Sub







----------------------------

Modül Kodlarımızı Ekledikden Sonra,Forma Eklediğimiz Timer Çift Tıklıyoruz Ve Kodları Ekliyoruz.





Dim TStime

Label1.Caption = Label1.Caption + 1

TStime = Text1.Text

If Label1.Caption = Text1.Text Then

ts

Text1.Text = 5400

End If

End Sub



Burdaki Label1 0 Dan 5400 Sayması İçindir text1 İse Sanie Yi Göstermesi İçindir text ve labelleri Kendinize Göre Düzenleyebilirsiniz.



Son Olarak Bir Checkbox ekleyip Buton Şekline Çeviriyoruz Ve Kodları Ekliyoruz



If Check1.Value = 1 Then

Label1.Caption = 0

ts

Timer1.Enabled = True

Check1.Caption = "Durdur"

Else

Label1.Caption = ""

Timer1.Enabled = False

Check1.Caption = "Başlat"

End If





List2 de Properties kısmından Liste tıklayıp Sırasıyla Modülde Yazdığım TS Kodlarına karşılık gelicek isimleri yazıyoruz. Örn1 Kecın