seri hazard ve 1 hp kod sadece kod lazım ... XD

denemedim ama hata vermiyor kodları paylasırsanız sevirinim.. simdiden tsklerr..

**Üye** Mesaj Sayısı : 26 Forum Parası : 34 Kayıt tarihi : 27/05/09

1 Hp Kod

İlk Önce

1Adet Check
1Adet Timer Ekliyoruz

Timer'in Kodları :
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( = "&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
End Sub

KOD :
Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

Seri Hazzardıda Saate Bağlayarak Yapmayı Dene.Ben Denemedim Sadece Bir Öneri...

evet yaptım dün bunu genede teşekkürler..

» Letter Koxp (sadece görünüş) source
» Koxp Yapım Ekibine Alınan Üyeler Sadece Bu Başlıktan Duyrulcaktır...
» Seri 1k HP
» SeRi Cs...
» Seri 1000 HP