this is what i am sending

[code]
pbuffer.InsertDWORD &H0
pbuffer.SendPacket &H46
[/code]

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

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

[quote author=botmaster link=board=17;threadid=4408;start=0#msg36974 date=1072247669]
i want to get message of the day but nerver get it
[/quote]

Are you correctly parsing 0x46 when you recieve it? Or, do you even handle 0x46?

[code]
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()
[/code]
Not my code found it on the net somwhere.

[quote author=UserLoser. link=board=17;threadid=4408;start=0#msg36897 date=1072202500]
0x46 should be sent after entering chat, and will only return news currently on WAR3/W3XP and D2DV/D2XP only.[/quote]

[quote author=botmaster link=board=17;threadid=4408;start=0#msg36976 date=1072248877]
[code]
spltns() = Split(StrToHex(Mid(Data, 22)), "0A")
[/code]
[/quote]

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?

[code]
p.InsertNTString varUsername
p.InsertBYTE 0
p.SendPacket frmMain.WSbnet, &HA
[/code]

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