Admin Admin
Mesaj Sayısı : 132 Kayıt tarihi : 10/01/10 Yaş : 34
| Konu: l By_SkyHigh l Evade Kodu Cuma Şub. 05, 2010 9:36 pm | |
| - Kod:
-
public sub evade On Error Resume Next Dim pBytess(1 To 18) As Byte
Dim ID As String Dim ID1 As String Dim ID2 As String Dim IDs As Long Dim Class As String Dim skillid1 Dim skillid2 Dim skillid3 Dim skillid Dim skillhex As String Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS) IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
skillid = Class & 710 skillhex = Hex(skillid) skillid1 = Mid$(skillhex, 4, 6) skillid2 = Mid$(skillhex, 2, 2) skillid3 = Mid$(skillhex, 1, 1)
ID = AlignDWORD(IDs) ID1 = Strings.Mid(ID, 3, 2) ID2 = Strings.Mid(ID, 5, 2)
pBytess(1) = &H31 pBytess(2) = &H3 pBytess(3) = "&H" & skillid1 pBytess(4) = "&H" & skillid2 pBytess(5) = "&H" & skillid3 pBytess(6) = &H0 pBytess(7) = "&H" & ID1 pBytess(8) = "&H" & ID2 pBytess(9) = "&H" & ID1 pBytess(10) = "&H" & ID2 pBytess(11) = &H5C pBytess(12) = &H3 pBytess(13) = &H4 pBytess(14) = &H0 pBytess(15) = &H18 pBytess(16) = &H2 pBytess(17) = &H0 pBytess(18) = &H0 SendPackets pBytess end sub
yukarıdakini ana odule ekleyin ve bir buton açın - Kod:
-
evade yazın | |
|