Profile Request

[QwertyMonster]

Hey, yeah im trying to add profile request to my bot.

At the moment, i first searched this website. and got
http://forum.valhallalegends.com/phpbbs/index.php?topic=5670.0

Now hes sending &H26 for request, and on bnetdocs its 0x35

And on bnetdocs
0x26 -> ReadUserData
0x27 -> WriteUserData

Hes using them, yet 0x35 is profile request? What should i do? 


Edit:

Oh nevermind, when looking around on 0x26 i found this

http://bnetdocs.valhallalegends.com/content.php?Section=m&Code=11

But i would like to know, why hasnt that "Sonic" person used 0x35 to request it?

[Warrior]

Maybe they changed it or he was stupid?

[QwertyMonster]

Lol ok, i think ive got it working now anyway. Thx All (..only Warrior )

[Blaze]

-.-

0x26 is what x-sha clients use for requesting profiles/ranks.
0x27 is for chaning the description/sex/location variables.

[QwertyMonster]

Hey. Im trying to request MY profile but it doesnt seem to be working :O

I have

Code Select Expand


Public Function GetProfile(Username As String)


Packet.InsertDWORD 1
Packet.InsertDWORD 4
Packet.InsertDWORD &H26
Packet.InsertNTString Username
Packet.InsertNTString "profile\sex"
Packet.InsertNTString "profile\location"
Packet.InsertNTString "profile\description"
Packet.SendPacket frmMain.bnetsocket, &H26

End Function


Ok thats getting it, now i know im not putting it anywhere, but what would i put for it?

Ok i have 2 questions

1.) What do i put to put a txtbox named "txtSex" as the sex
2.) I keep getting ipbanned when trying to get mine, why?

This is my 0x27

Code Select Expand



Private Sub Option1_Click()
Dim Username As String
   
   With Packet
   .InsertDWORD 1
   .InsertDWORD 4
   .InsertNTString Username
   .InsertNTString "profile\sex"
   .InsertNTString "profile\age"
   .InsertNTString "profile\location"
   .InsertNTString "profile\description"
   .InsertNTString frmProfile.TXTSex.Text 'Sex
  ' .InsertNTString frmProfile.txtAge.Text 'Age
   .InsertNTString frmProfile.txtLocation.Text 'Location
   .InsertNTString frmProfile.txtDesc.Text 'Description
   .SendPacket frmMain.bnetsocket, &H27

Me.Hide
End With
End Sub


Could some1 please help me? Ive got a really banging headache atm lol

[Arta]

In your 0x26:

You're setting key count to 4 (2nd DWORD) but only supplying 3 key names.

In your 0x27:

You've commented out the data for the second key (age) but you've still got it in your list and keycount is still 4.

[QwertyMonster]

Wow i edited my profile from my bot, sweet?! ^_^

I also did it with a BLUDDY BANGING HEADACHE 

*cuts his head off*


Anyway, back to topic, i can set it, but how to view it?

[CrAz3D]

Code Select Expand

Public Function GetProfile(Username As String)


Packet.InsertDWORD 1
Packet.InsertDWORD 4
Packet.InsertDWORD &H26
Packet.InsertNTString Username
Packet.InsertNTString "profile\sex"
Packet.InsertNTString "profile\age"
Packet.InsertNTString "profile\location"
Packet.InsertNTString "profile\description"
Packet.SendPacket frmMain.bnetsocket, &H26

End Function

[Soul Taker]

Just a note, to properly emulate the real client, you should also request an empty profile key after the other ones.

[QwertyMonster]

Code Select Expand

Public Function GetProfile(Username As String)


Packet.InsertDWORD 1
Packet.InsertDWORD 4
Packet.InsertDWORD &H26
Packet.InsertNTString Username
Packet.InsertNTString "profile\sex"
Packet.InsertNTString "profile\age"
Packet.InsertNTString "profile\location"
Packet.InsertNTString "profile\description"
Packet.SendPacket frmMain.bnetsocket, &H26

End Function

Ok thats getting the info, but how would i get it to a txt box, i know it sounds stupid,
Ok, i know how to send txt to a txt box, but what do i put for this case lol, if that made sense...

Code Select Expand


txtLocation.text = ???


[Warrior]

You parse the response.

It's an array of strings and I'm pretty sure you wont care about the three DWORD so find where the Array of strings begin and split that by the Null Terminator. (BYTE 0)

[Spilled]

When you send that packet the server will respond with the requested keys in an array, as he said split it by the null terminator and your keys will be in the order you requested them.

Anymore questions, ask away im happy to help


Edit:
Ex:
txtSex.text = thesplityouused(0)
txtLocation.text = thesplityouused(1)

[Blaze]

Code Select Expand

Public Function GetProfile(Username As String)
Packet.InsertDWORD 1
.....
Packet.SendPacket frmMain.bnetsocket, &H26
End Function

Why is this a function exactly?

[Warrior]

Good point, I tend to make Functions that dont return anything subs.