Valhalla Legends Archive

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

Code Select Expand


               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.