Profile Help

[OuTLawZGoSu]

Aight, I got this.

Code Select Expand


With PBuffer
    .InsertDWORD 1
    .InsertDWORD 4
    .InsertNTString Me.Caption
    .InsertNTString "profile\sex"
    .InsertNTString "profile\age"
    .InsertNTString "profile\location"
    .InsertNTString "profile\description"
    .InsertNTString txtSex.Text
    .InsertNTString txtAge.Text
    .InsertNTString txtLocation.Text
    .InsertNTString txtDescription.Text
    .sendPacket &H27
End With


Everything works fine. I just want to know this, I need to add only the Description and nothing else.
How can I do this?

I've tryed this:

Code Select Expand


With PBuffer
    .InsertDWORD 1
    .InsertDWORD 4
    .InsertNTString Me.Caption
    .InsertNTString "profile\description"
    .InsertNTString txtDescription.Text
    .sendPacket &H27
End With

'Results in an IP ban


[Eric]

The second DWORD in 0x26 is how many keys you wish to request, in your case, 1.

[OuTLawZGoSu]

Code Select Expand


Private Sub Command5_Click()
With PBuffer
    .InsertDWORD 1
    .InsertDWORD 1
    .InsertNTString Me.Caption
    .InsertNTString "profile\description"
    .InsertNTString txtDescription.Text
    .sendPacket &H27
End With
End Sub


Good shit LoRd. Thx a lot.

[iago]

Incidentally, storing the username in an object (and retrieving with .caption) isn't the best place, you should have a variable for it.  In my opinion, anyway

[MyndFyre]

Incidentally, storing the username in an object (and retrieving with .caption) isn't the best place, you should have a variable for it.  In my opinion, anyway

Very true.  What happens if, down the line, you want to say, "Profile Display -- {Name}" ?

[OuTLawZGoSu]

Incidentally, storing the username in an object (and retrieving with .caption) isn't the best place, you should have a variable for it.  In my opinion, anyway

Eh... Not sure wat you're talkin about. How can I store it in a variable?

[Eli_1]

Incidentally, storing the username in an object (and retrieving with .caption) isn't the best place, you should have a variable for it.  In my opinion, anyway

Eh... Not sure wat you're talkin about. How can I store it in a variable?

Code Select Expand

Dim x29z4 as String
x29z4 = "S0m3v4lu3"

Be sure to use cryptic variable names like that though, because it's ub3r leet!

[MyndFyre]

Code Select Expand

Dim x29z4 as String
x29z4 = "S0m3v4lu3"

Be sure to use cryptic variable names like that though, because it's ub3r leet!

How about:

Dim Sc33lV_lValVl3 as String
Sc33lV_lValVl3 = "u83rI33t"

?

Hrm, "Screen_Name" didn't quite come out right with code or quote...

[Eli_1]

How about:
Dim Sc33lV_lValVl3 as String
Sc33lV_lValVl3 = "u83rI33t"

Typo!
Scl233lV_lValVl3*

[MyndFyre]

How about:
Dim Sc33lV_lValVl3 as String
Sc33lV_lValVl3 = "u83rI33t"

Typo!
Scl233lV_lValVl3*

oh of course!  I guess I'm just not quite as leet as I thought.