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... :-\
Use message 0x27.
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.
Quote from: Kp on April 11, 2003, 03:48 PM
Use message 0x27.
...How would that SET it...
0x26 is the used to request specified profile keys, and 0x27 sets them. Use it like this:
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.