VB6 Chat Program using Winsock

To create a simple chat program, create the following interface(see figure below).

A Simple Chat Server
A.1 Simple Chat Server interface


A.2 Simple Chat Server Code
Dim maxidx As Integer
Dim idx As Integer
Private Sub CMDSEND_Click()
If idx < enabled =" False" caption =" WSERVER(index).LocalIP" localport =" 5000" maxidx =" 0" idx =" lstConnected.Text" enabled =" False" a =" 0" index =" lstConnected.List(a)" index =" 0" maxidx =" maxidx" enabled =" True" onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/_4gpXHrXKkks/S5274WXUneI/AAAAAAAAAHk/u1ILg5vChTI/s1600-h/client.jpg">

B.2 Simple Chat Program Client Code

Private Sub CMDSEND_Click()
Call WCLIENT.SendData(txtMessage.Text)
List1.AddItem "You says:" & txtmessage.Text
End Sub

Private Sub Form_Load()
CMDSEND.Enabled = False
Label3.Caption = WCLIENT.LocalIP
WCLIENT.RemotePort = 5000
WCLIENT.RemoteHost = "ACERZ"
Call WCLIENT.Connect
End Sub

Private Sub WCLIENT_Close()
CMDSEND.Enabled = False
List1.AddItem "Server Closed"
Call WCLIENT.Close
End Sub

Private Sub WCLIENT_Connect()
'tinanggap ka na ng server
CMDSEND.Enabled = True
List1.AddItem "User connected from SERVER: " & WCLIENT.RemoteHostIP
End Sub

Private Sub WCLIENT_DataArrival(ByVal bytesTotal As Long)
Dim MESSAGE As String

Call WCLIENT.GetData(MESSAGE)
List1.AddItem "User from " & WCLIENT.RemoteHostIP & "says:" & MESSAGE
End Sub