Koxp,Koxp 1828,1828 koxp,PatronusKoxp 1828,Patronus Koxp 1828,Knight Online , ChaosKoxp - 1828 Koxp indir Exp Bug Dupe Knight Online Koxp Kosp Koxp,1828 ...
 
AnasayfaTakvimGiriş yapKayıt Ol

Paylaş | 
 

 Seri 1HP Yapımı.

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
safakturk
Möderatör
Möderatör
avatar

National Point : 98
Leader Point : 5598
Mesaj Sayısı : 44
Kayıt tarihi : 07/09/09

MesajKonu: Seri 1HP Yapımı.   Ptsi Eyl. 07, 2009 10:13 pm

Gerekenler

  • 1 Adet CheckBox
  • 1 Adet Timer
Yapılışı:
Timerin Enabledini "False" Intervalını "500" Yapın. Aşagıdaki Kodlar CheckBoxda ve Timere Ekleyin.
CheckBoxun Kodu

Kod:

If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

Timerin Kodu

Kod:

Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim IDs As Long
Dim skillid1
Dim skillid2
Dim skillid3
Dim skillhex As String


skillid = 491038
skillhex = Hex(skillid)
skillid1 = Mid$(skillhex, 4, 6)
skillid2 = Mid$(skillhex, 2, 2)
skillid3 = Mid$(skillhex, 1, 1)

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)
Dim pBytes(1 To 18) As Byte
pBytes(1) = &H31
pBytes(2) = &H3
pBytes(3) = "&H" & skillid1
pBytes(4) = "&H" & skillid2
pBytes(5) = "&H" & skillid3
pBytes(6) = &H0
pBytes(7) = "&H" & ID1
pBytes(Cool = "&H" & ID2
pBytes(9) = "&H" & ID1
pBytes(10) = "&H" & ID2
pBytes(11) = &H0
pBytes(12) = &H0
pBytes(13) = &H0
pBytes(14) = &H0
pBytes(15) = &H0
pBytes(16) = &H0
pBytes(17) = &H0
pBytes(18) = &H0
SendPackets pBytes

Timer1 ve Check1 Kendi Timer ve Checkinize Göre EDitleyin.
Sayfa başına dön Aşağa gitmek
 
Seri 1HP Yapımı.
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» VB 6 ile Basit Koxp Yapımı
» İnsan Yapımı UFO'lar ve Dünya Dışı Teknolojinin Ele Geçirilişi
» Kart satarken bug yapılıomu ????
» Seri Skill 1299 TbL '
» 1299 SeRi Skilll TBL'si ( Prist , Mage , Warrior , Rogue )

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Koxp 1828,PatronusKoxp 1828,Patronus Koxp 1828,Rmy Koxp 1828 ... :: Knight Online |Usko| :: Koxp Yapım Dersi ve Source Paylaşımı-
Buraya geçin: