bepar moshkele source wlc bot ro tashkhis bede bodo :@ :-|

salam harki midoone javab bede aya kojaye in source moshkel dare?

Code:: If InStr(getdata, "<presence from='" & room1.Text & "@conference.nimbuzz.com/") <> 0 Then
If InStr(getdata, "</presence>") <> 0 Then
getdata = Replace(getdata, "<presence from='" & room1.Text & "@conference.nimbuzz.com/", "")
welcome1 = Split(getdata, "' to='" & id1.Text & "@nimbuzz.com/" & res1.Text & "'><x xmlns='http://jabber.org/protocol/muc#user'><item")
win1.SendData "<message to='" + room1.Text + "@conference.nimbuzz.com' type='groupchat'><body>" & welcome1(i) & ": " & wlc1.Text & "</body></message>"
End If
End If

in source e wlc dadan be user has ke join mishan ama vaghti ke yeki join mide bot wlc mide vaghti ke taraf left dad bot ham dc mishe moshkelesho harki midoone bege lotfan tnx Wink

khodetam ye search mizadi tu forum peyda mikardi javabeto .
split arraye saze to inja kardbord nadare chun vaghti ke left mide nemtuni id az injai ke gofti begiri khenggggggggggggggggggggg
code zir raveshe sahihe

Code:: If InStr(getdata, "<x
xmlns='http://jabber.org/protocol/muc#user'>") <> 0 Then ' in xml ham vase left hast ham join
Dim id As String
id = Mid(getdata, InStr(getdata, "@conference.nimbuzz.com/") + 24) ' mid argomanash injurian => mid(stringi ke azash mikhaym substring begirim, starte substring ke integer hast masalan dim s as string s="ehem" s=mid(s,+3) alan natije mishe "em" tu xmla daghigh nemidunim starte substring chand charachtere vase hamin ye instr midim va az un string ke tu stringe be bad ro migim khodet hesab kon ta starte string ke integere ro bdast biari
id = Left(id, InStr(id, "'") - 1)' left ham mse mide vali entehaye substring ro moshakhas mikone

' ta inja fahmidim yeki ya join shode ya left va idsh ro gereftim hala mikhaym daghigh moshakhas konim ke left dade ya join

if InStr(getdata, "type='unavailable'") <> 0 Then
' yani taraf left dade

win1.SendData "<message to='" + room1.Text +
"@conference.nimbuzz.com' type='groupchat'><body>" & id & ": " by by kale ehem :(
"</body></message>" ' behesh bye midim
else ' ghyre un surat yani taraf join dade
win1.SendData "<message to='" + room1.Text +
"@conference.nimbuzz.com' type='groupchat'><body>" & id & ": " & wlc1.Text &
"</body></message>" ' behesh wlc midim

end if
end if

[You must be registered and logged in to see this link.] injam sar bezan

» hale moshkele bodo bia 2
» Help > Vb6 > Source WINSOCK ya shabihesh > kesi dare bede
» nahveye tashkhis ke ye file t.r.o.j.a.n dare ya na!
» tashkhis asl budan gushi az tarighe net
» vb.net baladi bepar toooo