Help Raftan B 10Room Vase Bot Tabliqati

Slm
Man Mikham Y Bot tabliq Besazam Ba FRB Socket mikham k b 10chatroom bere ba 2ta id pls y khrde tozih bedid k chejur bayad 10room bezar 1room mitunam ama 10ta na Bara Vb6 Mikham

Aqa Pls Help Foriye

Yeki Komak Bekune Be Man Aya Ta 10ta room mishe Ya Na ?
Pls Bedin b Man In Amuzesh Ro

SaRa Jan Ba # Har Chandta roomi k bekham mitune bre?
Pls Harki codeshu dare bezare

yani migi idha ro ham ba split# bzaram k age yki dc shud on yki connect beshe?nmishe hamunro reconnect kard?

ba split be binahayt room mitoni idto join bdi vali age mikhay 10ta room join bde tanha raho asun tarin rahesh inke aval boro text e room hato 10ta k.o.n bad vase join room esme text haro bezar tosh itor nga k.o.n

Code:

Private Sub Command3_Click()
sk.JoinRoom rom1.Text, rompsw.Text
sk.JoinRoom rom2.Text, rompsw.Text
sk.JoinRoom rom3.Text, rompsw.Text

'ta roome 10

End Sub

dg sade tare in nist ha:D 
vase split login id ham ikro k.o.n

Code:

Private Sub Command1_Click()
ids = Split(Text1.Text, "#")
For i = LBound(ids) To UBound(ids)
If ck(soket(i)) = False Then Load soket(i)
soket(i).Connect ids(i), Text2.Text, "resource"
Next
End Sub

Qurbune Dastet Gerftam
Thanks Grfty  

Macsoud wrote:

Qurbune Dastet Gerftam
Thanks Grfty  

 khahesh jigar mc tnx dadi az -1 shodam 0 lol mc*dance jaga*

azin auntar dg nemishe

Code:

Private Sub Command3_Click()
rooms = Split(Text1.Text, "#")
For i = LBound(rooms) To UBound(rooms)
sk1.JoinRoom rooms(i), rompsw.Text
sk2.JoinRoom rooms(i), rompsw.Text
next

End Sub

[b]rahe dge ei ham hast ke be harchand ta khasti

Code:

dim rm() as string 'to birun az sub ,bala bezar
dim i as integer 'to birun az sub  ,bala bezar

'ina ro bayad to sub bezari:
rm = split(room.text,"@") 'joda sazi id ha ba @
for i = lbound(rm) to ubound(rm)
sk.joinroom rm(i)
next

rahe dg ham hast

Code:

 
dim r = split(room.text,"*") 'joda sazi id ha ba *
for i = lbound(r) to ubound(r)
sk.joinroom r(i)
next

in ke man goftam aslan spam nist ha va aslanam shabihe code eshghi va dark nist *sigh*