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?
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.
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 from: rabbit on September 18, 2006, 06:55 PM
It will be a great day when Feanor's code finally dies.
It will be a great day when any stolen code finally dies.*
Hm. Wurd.
servers = Val("&h" & StrToHex(StrReverse(Mid(data, 9, 4))))
::)
enough said.