sourec+ amoozeshe auto joiner raveshe jadid Q vb6

dooroood!
aqa in bakhsh kheyli vaqte dare khaak mikhore a!!
iinam sourece room auto joiner ba raveshe jadid bad az block shodane xmlesh
khat be khatesh tozih dadam be darde mobtadi ha am mikhore
yadetoon nare freebuzzsoket.ocx ro too vb6 bezarid
too khode file zipam in filo gozashtam
man tooosh dota soket gozashtam
shoma bayad gostareshesh bedid..
hamin...
bedroood.
linke download:
[You must be registered and logged in to see this link.]

haroometoon beshe oon dah nafari ke dl kardido nazar nadadid

Mrc Dada , Lotf Kardi

tnx dash - vaqti run mizanam frror mide (compile error)

evin wrote:

tnx dash - vaqti run mizanam frror mide (compile error)

soketo pak k.o.n dobare bezare
dota soket rooshe
yeki sk va yeki sk1

bayad chkar konam ke in soft ro kamel konam man kheyli mobtadiam mishe qadam be qadam begi plss

bbin tosie mikonam aval be sourecaye sade tari ke too bakhshe vb6 hast
nega bendazi
baad agar motevajeh nashodi ke bayad chikar k.o.n.i man komaket mikonam
vase avalin softet in kheyli pichide mishe
[You must be registered and logged in to see this link.]
in kheyli too yad giri komaket mikone
harja moshkel dashti neda bede

linket hiltere dash

khob freebuzz hiltere dge!

pa bara chi lhnk filt midi de ehe

yeki bege in chera inghad too fahmidan moqavemat mikone!!!!!!!!!!!

ye soal migm vaqti ke soket haro ziyad kardi yani chandta bishtr frbsoket baz krdi bad bayad cod nevissho chetor rabt bdi dar in morded yekm tozi bd tnx

ghaz_ghaz90 wrote:

ye soal migm vaqti ke soket haro ziyad kardi yani chandta bishtr frbsoket baz krdi bad bayad cod nevissho chetor rabt bdi dar in morded yekm tozi bd tnx

Code:

Private Sub Command5_Click()
sk1.Connect Text6.Text, Text7.Text, Text8.Text ' inja mikhaym id floodio ke mikhad be taraf add bedaro on konim man inja ye doone gozashtam shoma mitoonid hezarta ba hezarta socket bezarid..
End Sub

too in sub id floode dovomo ba hamoon buttoni ke id flood avaliaro on mikardi on mikoni
in codo akharesh ezaf mikoni sk2.Connect id dovom.Text, psw id dovom .Text, rese id dovom.Text

Code:

Private Sub sk_OnJoinPresence(ByVal RoomName As String, ByVal id As String, ByVal Affiliation As String, ByVal Role As String, ByVal Jid As String, ByVal Resource As String) ' injam male zamanie ke ye id be room enter mide
If Option1 = True Then ' migim age optionemoon roo on bood baad
sk1.AddId id, Text8.Text ' id floodemoon besh add bede
End If
End Sub

tooo in qesmat sk2.addid id ,text8.text besh ezaf mikoni

Code:

Private Sub sk1_OnSubscribe(ByVal id As String, ByVal status As String) ' hala inja male zamanie ke taraf add ro accept karde(pazirofte)
sk1.DenyAdd id, "QQQ" ' migim aval addio ke qabool kardaro rad bede va baadesh
sk1.RemoveAdd id ' kolan oono az addlistemoon pak k.o.n in kar baes mishe hamoon id har bari ke yaroo miad too rooom besh add bede
End Sub

inja am sk2.DenyAdd id, "QQQ" va too khate baad sk2.RemoveAdd id
ezafe mikoni hamin

age bekhay idharo toye ye list box bezari va idharo namahdod k.o.n.i chetor dastor mishe