Profiles

[pianka]

I'm almost positive this has been asked before, I can request profiles, thats no problem, but how would you set a label as the keyvalue? Can't figure it out for some reason...I'm just not sure where it sets it as...

[Kp]

Use message 0x27.

[ILurker]

Code Select Expand


Case &H26
Dim X As Integer
Dim ProfileEnd As String
Dim SplitProfile() As String
Dim splta() As String, splts() As String, spltl() As String, spltd() As String
ProfileEnd = Mid(data, 17, Len(data))
SplitProfile = Split(ProfileEnd, Chr(0))
With Form3
.sex.text = SplitProfile(0)
.age.text = SplitProfile(1)
.location1.text = SplitProfile(2)
rtbAddDescription SplitProfile(3), vbBage
.Show
End With

Don't know if this is what you want, but it works.

[pianka]

Use message 0x27.

...How would that SET it...

[Mesiah / haiseM]

0x26 is the used to request specified profile keys, and 0x27 sets them. Use it like this:

Code Select Expand

   
   PacketBuf.InsertDWORD 1
   PacketBuf.InsertDWORD 4 'Number of keys you wish to set
   PacketBuf.InsertBYTE 0
   PacketBuf.InsertNTString "profile\age"               ]
   PacketBuf.InsertNTString "profile\sex"                ]__ Keys your setting
   PacketBuf.InsertNTString "profile\location"         ]
   PacketBuf.InsertNTString "profile\description"    ]

   PacketBuf.InsertNTString "im 12"                        }
   PacketBuf.InsertNTString "i hate sex"                  }__Key text values in the same order you are setting them
   PacketBuf.InsertNTString "in a land far away"     }
   PacketBuf.InsertNTString "descriptionblah"        }


sorry so sloppy, hope you get the idea.