Winsock tutorial

I was folowing the winsock tutorial and when i finished it I coppied the code and launched another instance of VB, then I changed the "Winsock1.LocalPort" to 202 instead of 201 like it said in the tutorial. It does not work, and i dont know why.

here is my code.


Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdSend_Click()
If Winsock1.State <> sckClosed Then
Winsock1.Close
Else
If MsgBox("You are not conected do you wish to connect" _
, vbYesNo + vbQuestion) = vbYes Then

'Connect to machene

Winsock1.RemoteHost = "127.0.0.1" 'txtAddress.Text
Winsock1.RemotePort = 202
Winsock1.Connect

'wait for connection

Do Until Winsock1.State = sckConnected
DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
If Winsock1.State = sckError Then
MsgBox "Problem Connecting"
Exit Sub
End If
Loop

'send data

Winsock1.SendData ("txtMessage.text")

Else
Call MsgBox("ok -not connected")
End If

End If

End Sub

Private Sub Form_Load()
On Error GoTo PortErr
Winsock1.LocalPort = 201
Winsock1.Listen
Me.Caption = "NCS - Network Chat Software " & "(" & Winsock1.LocalIP & ")"
Exit Sub
PortErr:
MsgBox "Another Program is using port 201"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

'Display incoming data

Dim strIncoming As String
Winsock1.GetData strIncoming
txtIncoming = strIncoming

End Sub

The port number for both the client and the server should be the same. So change the two values Winsock1.RemotePort and Winsock1.LocalPort to same value.

Well the port numbers should be different if you are using the application in a standalone computer. what you should do is after writing the codes(with localport =201 & remoteport=202), you should compile & make exe file of that code. Next make localport=202 & remoteport=201 & recompile & make exe file with a different name ( eg make winsck1.exe for the first & winsck2.exe for second).

Now You open both windows by double clicking on those exe files & test your application. Remember, you should compile & make exe & then test the application.

See if it works or mail me at [email protected] if you have any problem.

If everything goes fine, you will know why I said make localport=201 for first exe file & remoteport=201 for the second.

When connecting to a remote host with a winsock control, you must send the RemoteHostIP and RemoteHostPort values as parameters to the .Connect function. An example would be this:

Dim IP As String, Port As Integer
Winsock1.Connect IP, Port

The .Remote* variables are Read Only. This is how to change them.