k, 2day i'll teach u how 2 make a chat program on VB
1st, ull need 2 make 1 lstBox, 1 txtBox, 1 cmdConnect, 1 cmdHost, and 1 cmdSend, and of course 1 winsock.
HOST'S PERSPECTIVE:
1st we "listen" for a connection:
to do this we double-click on the button named cmdHost, and under Private Sub cmdHost_Click(), we type:
'we close the connection 1st becuz winsock can only do 1 thing at a time, 'so if we decide to change our mind, and we dont want to listen, but want 'to connecte or vice-verca, we can do this safely
Winsock1.Close
'we tell winsock what port to use
Winsock1.LocalPort = (enter a port)
'winsock starts listening
Winsock1.Listen
'tells the user that winsock is waiting for a connection
lstBox.AddItem "----- Waiting for Connection -----"
End Sub
CLIENT'S PERSPECTIVE:
double-click on the cmdConnect button, and under Private Sub cmdConnect_Click() type:
Winsock1.Close
'winsock connects to the ip specified, and to the specified port
Winsock1.Connect (enter ip of the pc u want to connect to), (enter a port)
SENDING INFO BACK AND FORTH:
double-click on the cmdSend button, and under Private Sub cmdsend_Click() type:
'we check if winsock is connected
If Winsock1.State = sckConnected Then
'we send the following data using the .SendData command
Winsock1.SendData ("user 1 says: " + txtBox.text)
'the info u sent is added to the listbox
lstBox.AddItem ("user 1 says: " + txtBox.text)
End If
'we clear the textbox
txtBox.text = ""
End Sub
REQUESTING A CONNECTION:
double-click on the winsock icon on the form editor, and choose ConnectionRequest, then under Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) type the following:
Winsock1.Close
'we request the connection, and accept the other 1
Winsock1.Accept requestID
lstBox.AddItem "----- Connection Established -----"
ARRIVING DATA:
by double-clicking on the winsock icon again, we choose DataArrival, and under Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) we type:
'we declare a variable that lets us receive info being sent
Dim incoming As String
'we get the incoming data
Winsock1.GetData incoming
'we display the data on the listbox
lstBox.AddItem incoming
End Sub
CHECKING FOR CONNECTION:
by double-clicking on the winsock icon choose Connect, and under Private Sub Winsock1_Connect() type:
'start a loop
Do
'make sure that info get shown
DoEvents
'state when the loop has to end
Loop Until Winsock1.State = sckConnected Or Winsock1.State = sckError
'check if winsock is connected
If Winsock1.State = sckConnected Then
'tell user that connection has been made, and add it to the listbox
lstBox.AddItem "----- Connection Established -----"
Else
'tell that connection has failed
lstdisplay.AddItem "----- Connection Failed -----"
End If
End Sub
CHECKING FOR ERRORS:
double-click on the winsock icon, and choose Error, then under Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) type:
'we check if the connection not '0'
If Number <> 0 Then
'Tell user what the error is
lstdisplay.AddItem "----- Error [" & Description & "] -----"
End If
End Sub
thats all the basics to making a 2-way chat program, i hope this tutorial comes handy to some1 out there
