S0al baraye baraye use kardan az id hai ke be ro0m join mishan (for vb6)

Salam d0stan ye s0al vasam pish umade . Ke masalan har useri ke varede ro0m sh0d felan kar ro rush anjam bde. C0di mikham ke shamele hame user ha bashe , na yeki az textbox ke harki varede ro0m sh0d az esme idsh estefade k0nim

Pas bakhshe programming support ro bara chi zadin? Jaye k0mak kardanete?

Mahdi Bro az freebuzz :-(

Man mage be khatere u umadam ke az freebuzz beram. Man umadam az reza programming yad begiram, pas to kare me dekhalat nak0n va b0z0rgtar az dahanet harf nazan. Reza ina ro jamesh k0n hey man nemikham be kasi tohin beshe baqie tohin mik0nan . Hichk0d0met0n marame reza ro nadarid . Adam bayad say k0ne ba hame d0st bashe , nimbuzz arzeshe tohmat o0 d0shmani nadare yadeton bashe .

support vase javab dadan be soalayie ke tekrari nistan na inke to harchi bekhay kamel loghmash konim bezarim dahanet
vali in soalet chandja javab dade shode dg sareto haminjuri nandaz topice tekrari nade aval ye search bzan bad
[You must be registered and logged in to see this link.]
va inhame projecte dg

aqa man in code ro peyda nakardam . ye code mikham ke esme id dar room va pmi ke to room mifreste ro faqat namayesh bde . harki balade plz help kone shayad in mored vase baqie ham soal bashe . mrc read

baw un projeha yani alaki budan ? mix

chizi nafahmidi azashun? mix

ok shoste rofte tahvile to . chun nemikhay yad begiri .

vase gereftane har id ke be room join mide age az winsock use mikoni

Code:: If InStr(getdata, "<x xmlns='http://jabber.org/protocol/muc#user'>") <> 0 And Not InStr(getdata, "type='unavailable'") <> 0 Then
Dim id As String
id = Mid(getdata, InStr(getdata, "@conference.nimbuzz.com/") + 24)
id = Left(id, InStr(id, "'") - 1)
MsgBox id ' kho alan inja ide join dade be room ro behet mide

Dim jid As String ' hala mikhaym jide farde join dade ro begirimm(id o servero resource

jid = Mid(getdata, InStr(getdata, "jid='") + 5)
jid = Left(jid, InStr(jid, "'") - 1)
MsgBox jid 'inam jid dg
End If

kho in vase join . age tozihe bishtar darbare tavab va agomanaye mid o left mikhay be un topica ke bala goftam boro

haala message i ke room dade mishe

Code:: If InStr(getdata, "type='groupchat'") <> 0 And Instr(getdata, "<body>") <> 0 Then
Dim id As String
id = Mid(getdata, InStr(getdata, "@conference.nimbuzz.com/") + 24)
id = Left(id, InStr(id, "'") - 1)
Dim pm As String ' hala mikhaym pme farde pm dade ro begirimm

pm = Mid(getdata, InStr(getdata, "<body>") + 6)
pm = Left(pm, InStr(pm, "</body>") - 1)
MsgBox "id: " & id & vbnewline & "pm: " & pm ' bade pm dadan be room ye msgbox id va pmesho neshun mide dg . to beja msgbox harja ke dust dari az id va pm use kon dg .

End If

lol aqa un pm avali kare man naBud Very Happy

pakidam pm o

kare khodam bud chera pakidish pas guguli Very Happy

TarSidam dava beshe forum be ham berize Very Happy

» siti baraye obur kardan az h!tler
» raveshi sade baraye peyda kardan ip ghorbani
» cod add baraye c# k vaghti kesi join mishe to room add kone tarafo
» Source Daryaft Pm farsi And Join Room Ba pejiDecoderskt Va FrbSkt baraye VB6 by pejman nikravan
» LOL-RAR baraye android ( baraye baz kardane file haye feshorde )