Help me with this???

[ChR0NiC]

Code Select Expand


   pBuffer.InsertDWORD 1
   pBuffer.InsertDWORD 4
   pBuffer.InsertDWORD GetTickCount()
   pBuffer.InsertNTString UserToProfile
   pBuffer.InsertNTString "Profile\Sex"
   pBuffer.InsertNTString "Profile\Age"
   pBuffer.InsertNTString "Profile\Location"
   pBuffer.InsertNTString "Profile\Description"
   pBuffer.InsertNTString "Record\PXES\0\wins"
   pBuffer.InsertNTString "Record\PXES\0\losses"
   pBuffer.InsertNTString "Record\PXES\0\disconnects"
   pBuffer.InsertNTString "Record\PXES\0\last PXES"
   pBuffer.InsertNTString "Record\PXES\0\last PXES result"
   pBuffer.InsertNTString "Record\PXES\1\wins"
   pBuffer.InsertNTString "Record\PXES\1\losses"
   pBuffer.InsertNTString "Record\PXES\1\disconnects"
   pBuffer.InsertNTString "Record\PXES\1\last game"
   pBuffer.InsertNTString "Record\PXES\1\last game result"
   pBuffer.InsertNTString "Record\PXES\1\rating"
   pBuffer.InsertNTString "Record\PXES\1\high rating"
   pBuffer.InsertNTString "Record\PXES\1\rank"
   pBuffer.InsertNTString "Record\PXES\1\high rank"
   pBuffer.SendPacket frmMain.sckBnet, &H26

Anyone know why I might be getting IP Banned???

[o.OV]

Code Select Expand


   pBuffer.InsertDWORD 1
   pBuffer.InsertDWORD 4
   pBuffer.InsertDWORD GetTickCount()
   pBuffer.InsertNTString UserToProfile
   pBuffer.InsertNTString "Profile\Sex"
   pBuffer.InsertNTString "Profile\Age"
   pBuffer.InsertNTString "Profile\Location"
   pBuffer.InsertNTString "Profile\Description"
   pBuffer.InsertNTString "Record\PXES\0\wins"
   pBuffer.InsertNTString "Record\PXES\0\losses"
   pBuffer.InsertNTString "Record\PXES\0\disconnects"
   pBuffer.InsertNTString "Record\PXES\0\last PXES"
   pBuffer.InsertNTString "Record\PXES\0\last PXES result"
   pBuffer.InsertNTString "Record\PXES\1\wins"
   pBuffer.InsertNTString "Record\PXES\1\losses"
   pBuffer.InsertNTString "Record\PXES\1\disconnects"
   pBuffer.InsertNTString "Record\PXES\1\last game"
   pBuffer.InsertNTString "Record\PXES\1\last game result"
   pBuffer.InsertNTString "Record\PXES\1\rating"
   pBuffer.InsertNTString "Record\PXES\1\high rating"
   pBuffer.InsertNTString "Record\PXES\1\rank"
   pBuffer.InsertNTString "Record\PXES\1\high rank"
   pBuffer.SendPacket frmMain.sckBnet, &H26

Anyone know why I might be getting IP Banned???

Code Select Expand


Public Sub RequestProfile(ByVal strUser As String)
InsertDWORD 1
InsertDWORD 4
InsertDWORD &H26 'anyhing you want i never had
                                'trouble with it
InsertNTString strUser
InsertNTString "Profile\Sex"
InsertNTString "Profile\Age"
InsertNTString "Profile\Location"
InsertNTString "Profile\Description"
sendPacket &H26
End Sub


(DWORD)       Number of Accounts
(DWORD)       Number of Keys
(DWORD)       Request ID
(STRING[])    Requested Accounts
(STRING[])    Requested Keys
(STRING)       Unknown (Empty)

Silly guess.. but maybe you need to change 4 to 14.

[UserLoser.]

As far as I know, these don't exist:


Record\PXES\0\last PXES
Record\PXES\0\last PXES result
Record\PXES\1\rank - Try DynKey\PXES\1\rank

[ChR0NiC]

-_- ? So what should I do then.....

[hismajesty]

Try DynKey\PXES\1\rank

[iago]

Silly guess.. but maybe you need to change 4 to 14.

Goddamn I'm an idiot. I went and closed the window while I was typing a reply.  The phone distracted me!

Anyway, he's right.  You have to tell it how many fields you're going to be sending it.

I have some other comments, too, but they're going to have to wait

[edit] I should also note that you don't get banned for requesting invalid keys.  You just get back a blank field.  Most game clients (at least, they used to, not sure anymore) request age.