amuzeshe joda kardane xml kheylia ino balad nistan
ye string tarif mikonim ye tike az xmlo var midarim in qesmat ke vardashtam to xml asli ham hast
ye tike az xml ke mikhaym az unja target ya harchizi begirim joda mikonim bebinid jid=' qable id e to xml asli
- Code:
<presence xmlns='jabber:client' from='iran.iranian.esmi@conference.nimbuzz.com/**iiman' to='**iiman@nimbuzz.com/messenger'><x xmlns='http://jabber.org/protocol/muc#user'><item role='participant' jid='**iiman@nimbuzz.com/messenger' affiliation='member' /></x></presence>
ye string tarif mikonim ye tike az xmlo var midarim in qesmat ke vardashtam to xml asli ham hast
- Code:
Dim a As String
If (InStr(a, "<x xmlns='http://jabber.org/protocol/muc#user'") <> 0) Then ' ye tike az xmlo joda mikonam vase gereftane usera room
ye tike az xml ke mikhaym az unja target ya harchizi begirim joda mikonim bebinid jid=' qable id e to xml asli
- Code:
a = a.Substring(a.IndexOf("jid='") + 5) ' jid to xml hast age nega konid xml aslio mibinid 5 vase che neveshtim? jid=' chant harfe? migim az inja begir
- Code:
a = a.Substring(0, a.IndexOf("affiliation=") - 2) 'migim az jid=' xmlo begir ta affiliation= hala chera 2e?xml asl ro nega k.o.n az affiliation= ta messenger ke recame 2ta khat faselast man ba in 2 un 2ta khat faselero pak kardam
- Code:
ListBox1.Items.Add(a) 'inam vase add kardan to listbox
End If