this is what i am sending
pbuffer.InsertDWORD &H0
pbuffer.SendPacket &H46
just wont get the news :-/
0x46 should be sent after entering chat, and will only return news currently on WAR3/W3XP and D2DV/D2XP only. But, you'll recieve the Message of the Day (on all products), which looks like:
Quote
[11:59:49] Welcome to Battle.net!
[11:59:49] This server is hosted by Dacom.
[11:59:49] There are currently 1255 users playing 133 games of Warcraft II, and 215766 users playing 72655 games on Battle.net.
[11:59:49] Last logon: Mon Dec 22 10:44 PM
i want to get message of the day but nerver get it
Quote from: botmaster on December 24, 2003, 12:34 AM
i want to get message of the day but nerver get it
Are you correctly parsing 0x46 when you recieve it? Or, do you even handle 0x46?
Case &H46
Dim tmpnews As Long
Dim spltns() As String
spltns() = Split(StrToHex(Mid(Data, 22)), "0A")
For tmpnews = 0 To UBound(spltns) - 1
rtbAdd "News: " & HexToStr(spltns(tmpnews)) & vbNewLine, vbYellow
Next tmpnews
Exit Sub
Erase spltns()
Not my code found it on the net somwhere.
Quote from: UserLoser. on December 23, 2003, 12:01 PM
0x46 should be sent after entering chat, and will only return news currently on WAR3/W3XP and D2DV/D2XP only.
Quote from: botmaster on December 24, 2003, 12:54 AM
spltns() = Split(StrToHex(Mid(Data, 22)), "0A")
I don't agree with how you're processing that message, but regardless, you could just do
spltns = Split(Mid(Data, 22), vbLf) here, you know.
is enter chat 0x0C or 0x09?
nm 0C is join channel
this ok for enterchat?
p.InsertNTString varUsername
p.InsertBYTE 0
p.SendPacket frmMain.WSbnet, &HA
Looks good, assuming you're emulating a recent product.