Ok so I'm new and I've never done this before. But after i send &H1 and &H50 i get &H37 and &H80 back. ?!?!? Did i send something wrong before?
Private Sub Command1_Click()
wskBNET.SendData Chr(&H1)
Call Send0x50
End Sub
Public Sub Send0x50()
buff.InsertDWORD &H0
buff.InsertDWORD IX86
buff.InsertDWORD STAR
buff.InsertDWORD &H1
buff.InsertDWORD &H0
buff.InsertDWORD &H0
buff.InsertDWORD &H0
buff.InsertDWORD &H0
buff.InsertDWORD &H0
buff.InsertNTString "USA"
buff.InsertNTString "United States"
buff.SendPacket &H50
End Sub
The variables are correct i hope
Public Const IX86 As Long = &H49583836
Public Const STAR As Long = &H53544152
Quote from: FrostWraith on April 05, 2006, 01:03 AM
Ok so I'm new and I've never done this before. But after i send &H1 and &H50 i get &H37 and &H80 back. ?!?!? Did i send something wrong before?
I'll bet you're confusing hex and decimal. 0x50 (or in VB terms, &H50) is 80 in base 10 and 0x25 (or &H25) is 37 in base 10.
That would be it. Thx!
i hope you realize your verbyte is incorrect, for STAR/SEXP it is 0xCF not 0x01.
Quote from: l2k-Shadow on April 05, 2006, 01:12 AM
i hope you realize your verbyte is incorrect, for STAR/SEXP it is 0xCF not 0x01.
He'd've realized it as soon as he got "Invalid version" back. ;)
Quote from: l2k-Shadow on April 05, 2006, 01:12 AM
i hope you realize your verbyte is incorrect, for STAR/SEXP it is 0xCF not 0x01.
0xCD not 0xCF
~-~(HDX)~-~