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]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[/code]

Any advice, gratefully received. Thanks.

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

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

[quote author=rabbit link=topic=15740.msg158412#msg158412 date=1158623731]
It will be a great day when Feanor's code finally dies.
[/quote]

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

Hm.  Wurd.

[code]
servers = Val("&h" & StrToHex(StrReverse(Mid(data, 9, 4))))
[/code]
::)
enough said.