Lebih baiknya pake salah satu komputer sebagai servernya.
Jadi diserver chat mesti buat array winsock
anggap ada 2 winsock diserver
sckListen : sebagai pendengar koneksi
sckCommand (array): sebagai establisher chat-nya
sampel sederhana:
Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
Dim ada As Boolean
ada = False
For i = 0 To sckCommand.UBound
'cari sock yg gak aktif
'maksudnya kalo sock yang sudah tertutup /tak terpakai (closed)
If sckCommand(i).State = vbclose Then
sckCommand(i).Accept requestID 'terima request
Call ConnectEstablished(sckCommand(i))
ada = True
Exit For
End If
Next
If Not ada Then 'kalo aktif semua maka kita load sock yang
baru
Dim jumlahSock As Integer
jumlahSock = sckCommand.UBound
Load sckCommand(jumlahSock + 1) 'load sock
sckCommand(jumlahSock + 1).Accept requestID 'terima request
Call ConnectEstablished(sckCommand(jumlahSock + 1))
End If
sckListen.Close
sckListen.Listen 'dengerin lagi
End Sub
'-------------------------
Sub ConnectEstablished(sock As Winsock)
' lakukan apa aja disini
' misal menambah portRemote di listview atau treeview
End Sub
bestRegards
Ipinz
----- Original Message -----
From: August sudana
dear all master..
mendesak, ada yg bisa bantu saya utk mencari contoh aplikasi atau tutorial
chat utk smua yg konek ke jaringan LAN?
saya sukses buat progrm chat (tapi hanya antar 2 CPU). jd, klo mau chat dgn
yg laen,harus diskonek dl baru input IP tujuan.
thanx a lot..
-agus-
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income homes are not online. Make a difference this holiday season!
http://us.click.yahoo.com/5UeCyC/BWHMAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
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/
