[ Seri CS ] USKO kendi KOXPUNU kendin yap VB6

If Check32.Value = 1 Then

Timer8.Enabled = True

Else

Timer8.Enabled = False

End If

End Sub



bir adet check ve bir adet timer ekleyelim check kodları üstte .



Timer invertal : 1200 ve Enabled False olacak

Timer kodları :

Private Sub Timer8_Timer()

If CS = 1 Then

On Error Resume Next

Dim pStr As String

Dim pBytes() As Byte

Dim skillid As String



Dim AttackID1 As String

Dim AttackID2 As String

Dim AttackID3 As String

Dim IDs As Long

Dim ID As String

Dim ID1 As String

Dim ID2 As String

Dim MobXIDs As String

Dim MobXID As String

Dim MobXID1 As String

Dim MobXID2 As String

Dim attackskill As String

Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)



attackid = Class & 552



IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)

MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)







ID = AlignDWORD(IDs)

ID1 = Strings.Mid(ID, 3, 2)

ID2 = Strings.Mid(ID, 5, 2)







MobXID = Hex(MobXIDs)

MobXID1 = Strings.Right(MobXID, 2)

MobXID2 = Strings.Left(MobXID, 2)





attackskill = Hex(attackid)

AttackID1 = Strings.Right(attackskill, 2)

AttackID2 = Strings.Mid(attackskill, 2, 2)

AttackID3 = Strings.Left(attackskill, 1)

Tuş yolla("z")

SendKeys (DIK_Z)

pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")



ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes



pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")



ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes





pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0000000000000000000000000000")



ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

Else



End If

End Sub