mohon bantuan nich..saya sdg mencoba membuat program chating..saya
membuat contoh 1 server 2 client..ketika client 1 mengirim data ke
server, data diterima, selanjutnya client 2 mengirim data,datapun
diterima juga o/ server.. masalah muncul ketika saya mencoba
mengirim data kembali dari client 1,server tidak bereaksi.Hubungan
seperti terputus tp pd list client yg ada semua dlm keadaan
terkoneksi..source code program sbb..mohon pencerahan...
server:
Sub Form_Load()
mscknum = 0
With Winsockserver(0)
.LocalPort = 200
.Listen
End With
End Sub
Sub Winsockserver_Close(Index As Integer)
Winsockserver(mscknum).Close
Winsockserver(mscknum).Listen
List1.RemoveItem (RemoteHostIP)
List1.Refresh
End Sub
Sub Winsockserver_ConnectionRequest(Index As Integer, ByVal
requestID As Long)
If Index = 0 Then
mscknum = mscknum + 1
Load Winsockserver(mscknum)
With Winsockserver(mscknum)
.LocalPort = 0
.Accept (requestID)
End With
End If
List1.AddItem Winsockserver(mscknum).RemoteHostIP
End Sub
Sub Winsockserver_DataArrival(Index As Integer, ByVal bytesTotal As
Long)
Winsockserver(mscknum).GetData datainput
text1.text=datainput
End Sub
client:
Private Sub Form_Load()
Winsock1.RemoteHost = 10.10.10.10
Winsock1.RemotePort = 200
Winsock1.LocalPort = 200
End Sub
Private Sub Command3_Click()
Dim pesan As String
pesan = text2.text
Winsock1.SendData pesan
End Sub
Private Sub login_Click(Index As Integer)
Winsock1.Connect 10.10.10.10, 200
Label1.Caption = "sending"
End Sub
Private Sub Winsock1_Connect()
Label1.Caption = "LOG IN SERVER"
End Sub
Private Sub Logout_Click(Index As Integer)
Winsock1.Close
Label1.Caption = "LOG OUT SERVER"
End Sub
Private Sub Winsock1_Close()
Label1.Caption = "KONEKSI PUTUS"
End Sub
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
