get news?

[botmaster]

this is what i am sending

Code Select Expand


pbuffer.InsertDWORD &H0
pbuffer.SendPacket &H46


just wont get the news :-/

[UserLoser.]

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:

[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

[botmaster]

i want to get message of the day but nerver get it

[UserLoser.]

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?

[botmaster]

Code Select Expand


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.

[effect]

0x46 should be sent after entering chat, and will only return news currently on WAR3/W3XP and D2DV/D2XP only.

[Spht]

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.

[botmaster]

is enter chat 0x0C or 0x09?

[botmaster]

nm 0C is join channel

[botmaster]

this ok for enterchat?

Code Select Expand


p.InsertNTString varUsername
   p.InsertBYTE 0
   p.SendPacket frmMain.WSbnet, &HA


[Arta]

Looks good, assuming you're emulating a recent product.