Visual Basic 6 8 li ok

sa arkadaslar usko 8 li ok kodlarını vericem gayet güzel calısmakta ....

Not : Tarja.dll ye göre ayarlıdır ...
Bi Teşekkür ü Esirgemeyin
SS :




Gerekenler ...

1 adet timer adı timer17 olucak interval : 2000 Enabled = False olucak timer e

Kod:

sekizliok

yazıyoruz
1 adet check adı check25 olucak
içine ..

Kod:

If Check25.Value = 1 Then
Timer17.Enabled = True
Else
Timer17.Enabled = False
End If

yazıyoruz

Modül e

Kod:

Public Function sekizliok()
If MobID = "FFFF" Then
Else
PacketSend "3101" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000000000000000000000000000D00"
PacketSend "3102" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000000000000000400000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000000000000000400000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000000000000000500000000000000"
Bekle (50)
PacketSend "3101" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000000000000000000F00"
PacketSend "3102" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001500000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001500000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001600000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001700000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001800000000000000"
End If
End Function

Kod:

Public Sub Bekle(seconds As Integer, Optional sn As Boolean = False)
On Error Resume Next
If sn = True Then
        dTimer = Second(Time)
          Do Until dTimer = Second(Time) - seconds
Sleep (1)
         DoEvents
          Loop
Else
            
            Dim dTimer2 As Double
          dTimer2 = Timer
          Do While Timer < dTimer2 + seconds / 1000
Sleep (1)
         DoEvents
          Loop
End If
End Sub

Kod:

Function CharID() As String
    On Error Resume Next: Cinfo = CharInfo(): CharID = Mid(AlignDWORD(Cinfo.MEID), 1, 4)
End Function

Kod:

Function MobID() As String
    On Error Resume Next: Cinfo = CharInfo(): MobID = Mid(AlignDWORD(Cinfo.TID), 1, 4)
End Function

ekliyoruz işlem tamamdır k.g