Valhalla Legends Archive


Public m_PacketLengths() As Variant
m_PacketLengths = Array(&H1, &H8, &H1, &HC, &H1, &H1, &H1, &H6, &H6, &HB, &H6, &H6, &H9, &HD, &HC, &H10, _
                                         &H10, &H8, &H1A, &HE, &H12, &HB, &H0, &H0, &HF, &H2, &H2, &H3, &H5, &H3, &H4, &H6, _
                                         &HA, &HC, &HC, &HD, &H5A, &H5A, &H0, &H28, &H67, &H61, &HF, &H0, &H8, &H0, &H0, _
                                         &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H22, _
                                         &H8, &HD, &H0, &H6, &H0, &H0, &HD, &H0, &HB, &HB, &H0, &H0, &H0, &H10, &H11, _
                                         &H7, &H1, &HF, &HE, &H2A, &HA, &H3, &H0, &H0, &HE, &H7, &H1A, &H28, &H0, _
                                         &H5, &H6, &H26, &H5, &H7, &H2, &H7, &H15, &H0, &H7, &H7, &H10, &H15, &HC, _
                                         &HC, &H10, &H10, &HA, &H1, &H1, &H1, &H1, &H1, &H20, &HA, &HD, &H6, &H2, _
                                         &H15, &H6, &HD, &H8, &H6, &H12, &H5, &HA, &H4, &H14, &H1D, &H0, &H0, &H0, _
                                         &H0, &H0, &H0, &H2, &H6, &H6, &HB, &H7, &HA, &H21, &HD, &H1A, &H6, &H8, &H0, _
                                         &HD, &H9, &H1, &H7, &H10, &H11, &H7, &H0, &H0, &H7, &H8, &HA, &H7, &H8, &H18, _
                                         &H3, &H8, &H0, &H7, &H0, &H7, &H0, &H7, &H0, &H0, &H0, &H0, &H1)

Public Function GetSize(ByVal id As Byte, ByVal Data As String) As Integer
Dim interimVal As Integer


If id > 179 Then
GetSize = -2: Exit Function
End If

interimVal = m_PacketLengths(id)


If interimVal = 0 Then
 

  Select Case id
   Case &H9C
    GetSize = Asc(Mid$(Data, 3, 1)): Exit Function
   Case &H9D
    GetSize = Asc(Mid$(Data, 3, 1)): Exit Function
   Case &H5B
    GetSize = Asc(Mid$(Data, 2, 1)): Exit Function
   Case &HA8
    GetSize = Asc(Mid$(Data, 7, 1)): Exit Function
   Case &HAA
    GetSize = Asc(Mid$(Data, 7, 1)): Exit Function
   Case &HAC
    GetSize = Asc(Mid$(Data, 13, 1)): Exit Function
   Case &HAE
    GetSize = GetDWORD2(Mid(data, 2, 2)) + 3: Exit Function
   Case &H26
    p_data = Mid$(Data, 2)
    GetSize = Parsechat: Exit Function
   Case &H94
    GetSize = 6 + (Asc(Mid$(Data, 1, 1)) * 3): Exit Function
  End Select

End If

GetSize = interimVal: Exit Function
End Function


Quote from: brew on February 13, 2009, 10:34 PM
Try using StrConv() instead.

ya, andy use this code.

Public Sub StrToByteArray(ByVal sStr As String, ByRef Ary() As Byte):Ary() = StrConv(sStr,vbFromUnicode):End Sub

Public Function ByteArrayToStr(ByRef Ary() As Byte) as String:ByteArrayToStr = StrConv(Ary(),vbUnicode):End Function

Quote
03 50 50 43 50           'you sent this?

50 5C - X (its 20560, incorrect)
43 50 - Y (its 17232, incorrect)

Quote
[21:44:04] location X : 5048
[21:44:04] location y : 5043

Use this code.
Call iClear
Call iWORD(5050) - no use hexi
Call iWORD(5043) - no use hexi
Call iHEADER(&H3, D2GS_HEADER)
Call iPacket(Form1.Winsock3.SocketHandle)

sorry poor english

Call iClear
Call iWORD(myx) - hexi & myx its incorrect.
Call iWORD(myY) - hexi & myy its incorrect.
Call iHEADER(&H3, D2GS_HEADER)
Call iPacket(Form1.Winsock3.SocketHandle)

Quote
[07:11:56 AM] <Ringo> you have to wait till dec 25th, and hope santa sends them to you
[07:12:13 AM] <mystical[@Northrend> ...
[07:12:18 AM] <mystical[@Northrend> can u give me sc keys
[07:12:20 AM] <mystical[@Northrend> Smiley
[07:12:22 AM] <Ringo> I got them from santa last xmas
[07:12:37 AM] <Ringo> you're boring me now
[07:12:42 AM] <Ringo> ,ban mystical[@Northrend be gone

lmao 

이 사이트는 EUB봇을 다루지 않습니다.

밑의 사이트로 들어가 질문하세요.

http://probots.cjb.net

그리고, 이 사이트의 회원님들한테 사과 하셔야겠습니다.

Thank you Yegg, PiaNKA! (Thank you very much for your kindness. Ringo.)
it does work!

i wanna connect with Socks4 Proxy

:My code:                    'FA0 - 4000
wsD2GS.Senddata Chr(&H4) & Chr(&H1) & Chr(&HFA) & Chr(&H0) & Host & "zero" & Chr(&H0)

:Recv:
00 5B FA 00 D3 E9 10 84

My code doesnt work.. 

Please help me

Thank you Ringo!   

I wanna Send 0x43 but i dunno Waypoint's ID.
it's Appears to be Random.
What is Waypoint's ID?

Please help me, i need your help.

Thank you Ringo , I2K-Shadow! 
My 0x03 does work!

i got current X/Y location from 0x15, 0x0D.
and i Sent 0x03

MyX = 31239 - 3
MyY = 3857

Sent:
03 04 7A 11 0F

It Doesn't Work....

Help me please Ringo.

Here my 0x03 code

x = 31
y = 12

D2GSP.InsertWORD X
D2GSP.InsertWORD Y
D2GSP.SendD2GSP &H3

Sent:
03 1F 00 0C 00

Help me please, i need your help.

Thank you FrostWraith!

Sorry User.
i need SendD2GSPacket Source Code.
Can you give me that??