Admin
Admin
Mesaj Sayısı : 132
Kayıt tarihi : 10/01/10
Yaş : 34
 |  Konu: wolf kodu !!  Çarş. Mart 03, 2010 3:39 pm | |
| - Kod:
-
On Error Resume Next
Dim pBytess(1 To 28) As Byte
Dim pBytes(1 To 32) 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 & "030"
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) = &H30
pBytess(12) = &H2
pBytess(13) = &HC
pBytess(14) = &H0
pBytess(15) = &H3F
pBytess(16) = &H6
pBytess(17) = &H0
pBytess(18) = &H0
pBytess(19) = &H0
pBytess(20) = &H0
pBytess(21) = &H0
pBytess(22) = &H0
pBytess(23) = &H0
pBytess(24) = &H0
pBytess(25) = &H0
pBytess(26) = &H0
pBytess(27) = &H0
pBytess(28) = &H0
SendPackets pBytess eyer bu olmuyorsa - Kod:
-
On Error Resume Next
Dim pBytess(1 To 28) As Byte
Dim pBytes(1 To 32) 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 & "030"
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) = &H30
pBytess(12) = &H2
pBytess(13) = &HC
pBytess(14) = &H0
pBytess(15) = &H3F
pBytess(16) = &H6
pBytess(17) = &H0
pBytess(18) = &H0
pBytess(19) = &H0
pBytess(20) = &H0
pBytess(21) = &H0
pBytess(22) = &H0
pBytess(23) = &H0
pBytess(24) = &H0
pBytess(25) = &H0
pBytess(26) = &H0
pBytess(27) = &H0
pBytess(28) = &H0
SendPackets pBytess
pBytes(1) = &H31
pBytes(2) = &H1
pBytes(3) = "&H" & skillid1
pBytes(4) = "&H" & skillid2
pBytes(5) = "&H" & skillid3
pBytes(6) = &H0
pBytes(7) = "&H" & ID1
pBytes(8) = "&H" & ID2
pBytes(9) = "&H" & ID1
pBytes(10) = "&H" & ID2
pBytes(11) = &H61
pBytes(12) = &H2
pBytes(13) = &HB
pBytes(14) = &H0
pBytes(15) = &H4E
pBytes(16) = &H6
pBytes(17) = &H0
pBytes(18) = &H0
pBytes(19) = &H0
pBytes(20) = &H0
pBytes(21) = &H0
pBytes(22) = &H0
pBytes(23) = &H0
pBytes(24) = &H0
pBytes(25) = &H0
pBytes(26) = &H0
pBytes(27) = &H0
pBytes(28) = &H0
pBytes(29) = &H1
pBytes(30) = &H1
pBytes(31) = &H0
pBytes(32) = &H0 bunu yapıştırın buda olassa bir fikrim yoq:S | |
|
