I wonder if anyone could help

[Logitech]

Hello all,

I can see from recent posts that a lot of bots need updating to account for the changes logging in. I'd be grateful for any advice as to how I can implement the changes. Firstly, am I looking in the right place?

Code Select Expand

Public Sub parseBNET(ByVal data As String)
Dim PacketData As String
On Error Resume Next
Dim packetid As Integer
Dim usrindex As Integer
Dim tempb As String, rb As Long
packetid = Asc(Mid(data, 2, 1))
'AddPackets vbgreen, "&H" & packetid
If BNLS = True Then
    Select Case packetid
    Case &H50
                servers = Val("&h" & StrToHex(StrReverse(Mid(data, 9, 4))))
                mpqname = Mid(data, 25, 12)
                HASH = Mid(data, 38, Len(data) - 2)
                mpqname = Val(Mid(mpqname, 8, 1))
                InsertDWORD GetBNLSByte()
                InsertDWORD CLng(mpqname)
                InsertNTString HASH
                sendBNLSPacket &H9

Any advice, gratefully received. Thanks.

[Logitech]

Just so you know, this has been resolved thanks to the kind help of a member here.

[rabbit]

It will be a great day when Feanor's code finally dies.

[UserLoser]

It will be a great day when Feanor's code finally dies.

It will be a great day when any stolen code finally dies.*

[rabbit]

Hm.   Wurd.

[l2k-Shadow]

Code Select Expand


servers = Val("&h" & StrToHex(StrReverse(Mid(data, 9, 4))))


enough said.