filme amoozeshi sakhte wlc bot sade

First topic message reminder :

dorooood
mordam ta up shan!
khob
inam filme amoozeshie sakhte wlc bote sade bara mobtadi ha
tooye dota part
ba frb soket
+ ye amoozeshe koli ke too jalasate badi ham niaz darim beheshoon
hargoone soalo javabe vb6 too qesmatesh javab dade mishe
Q
linke part1 :
[You must be registered and logged in to see this link.]
26 meg
linke part 2:
[You must be registered and logged in to see this link.]
13 meg
inam filaye vabaste:
[You must be registered and logged in to see this link.]

0611hero wrote:

salam man hamin dastorat ro vared kardam ama na id login mikone na msgboxesh peygham mide mo be mo ham mesle khodeton anjam dadam moshkel chiye

plz codato bede

Private Sub Command1_Click()
sk.Connect Text1.Text, Text2.Text, Text3.Text
End Sub

Private Sub Command2_Click()
sk.CloseSck
End Sub


Private Sub Command3_Click()
sk.JoinRoom Text4.Text, Text5.Text
End Sub

Private Sub Command4_Click()
sk.LeftRoom Text4.Text
End Sub

Private Sub Form_Load()

End Sub

Private Sub sk_OnBanPresence(ByVal RoomName As String, ByVal Id As String, ByVal Actor As String)
sk.WriteRoomMessage Text4.Text
End Sub


Private Sub sk_OnLogin()
Label1.Caption = "id conect shod!"
End Sub
Private Sub sk_OnBind()
Label1.Caption = "binding..."
End Sub
Private Sub sk_OnWrongPassword()
MsgBox "password eshtebah ast"
End Sub
Private Sub sk_OnRoomMessage(ByVal RoomName As String, ByVal Id As String, ByVal Message As String)
If InStr(Message, " the right answer to start chatting.") <> 0 Then
sk.WriteRoomMessage Text4.Text, Answer(Message)
End If

Code:

Private Sub Form_Load()

End Sub

ino bayad pak k.o.n.i
bad bara run kardanesh start with ful compilo bezan

pak kardam ama bazam javab nemide fekr mikonid moshke az chiye inam ye aks az barname safheye tarahi shode va winsok freebuzz
[You must be registered and logged in to see this link.]

ye negah bendazid

cod ha doroste ? fek mikonid az windowsame ? ya moshkele digee mitone dashte bashe ?

[You must be registered and logged in to see this link.]
ino dl k.o.n

0611hero wrote:

cod ha doroste ? fek mikonid az windowsame ? ya moshkele digee mitone dashte bashe ?

Code:

Private Sub sk_OnBanPresence(ByVal RoomName As String, ByVal Id As String, ByVal Actor As String)
sk.WriteRoomMessage Text4.Text
End Sub

ino eshteb zadi bayad in painiaro mizashti

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)
sk.WriteRoomMessage Text4.Text, " khosh oomadi"

End Sub

dash mamnon onam ke dadi download kardam ama baz masgboxesh kar nemikone label1 ham ke bayad info id ro neshon bede neshon nemide moshke az chiye windows roye vb6 momkene tasir gozashte bashe ya inke winsock freebuz ro nemikhone chetoriye akhe

0611hero wrote:

dash mamnon onam ke dadi download kardam ama baz masgboxesh kar nemikone label1 ham ke bayad info id ro neshon bede neshon nemide moshke az chiye windows roye vb6 momkene tasir gozashte bashe ya inke winsock freebuz ro nemikhone chetoriye akhe

ooni ke man gozashtam
aval projectesho baz k.o.n
bad formo drag k.o.n toosh
bad run k.o.n
age kar nadad dge besporesh be khoda...

Zahmat keshidi
tnx

salam
tnx dada Q az amozeshet

dadash frb socket bara man javab nemide
hamash error mide
nemishe ba ye chize digei kar ka rd???

esi~ wrote:

salam
tnx dada Q az amozeshet

dadash frb socket bara man javab nemide
hamash error mide
nemishe ba ye chize digei kar ka rd???

az erori ke mide screen bem bede
ba winsock ham mitooni
osoole kare winsoke ine ke ye ye send dare o ye get ke bayad xml send k.o.n.i bad chizi ke mikhay ro az toosh dar biari
frb soket hame ina tarif shodast
eroreto begu