Chat Client Help

[HaggardSmurf]

Alright well I had a question before when i was a noob and posted here and got such a great response this has become my main vb site. Anyways I have a comp that cant run msn due to it being a piece of crap :P so I decided to make a chat client with winsock and direct ip's.

Basically what it does is gives you the option of connecting to the ip or listening for incomming connections from an ip. The problem is i cant get winsock to send a connection request to the ip. I made it go through port 2 since ive never encountered anything using port 2 and its a default port so I figured I would be avoiding an error there. So I used a port scanner and scanned to see if port 2 was open and not realising port scanners send connection requests to the specified ports. Once it scanned port 2 I got a message on my main form saying "my ip" has requested a connection do you accept? (I made a msgbox under Winsock1_Connection request so that was supposed to happen) So I guess nothing is wrong with that part is just the sending of the connection request that wont work.

Screenshot of the forms so you can see what im talking about:

Also theyre on two different forms the Menu is the main form and once your connected then Menu hides and Chat comes up.

Heres my code so you can understand what im doing and where i went wrong

 
Private Sub cmdConnect_Click()
On Error Resume Next
        If txtIp.Text = W1.LocalIP Then
            MsgBox "You cannot connect to yourself."
            txtIp.SetFocus
            txtIp.Text = ""
        End If
    W1.RemoteHost = txtIp.Text 'tells the winsock which IP we should connect to.
    W1.RemotePort = 2 'tells the winsock which port we should connect to.
    W1.Connect
End Sub
 
 
Private Sub cmdExit_Click()
    Unload Me
End Sub
 
Private Sub cmdListen_Click()
    W1.RemoteHostIP = txtIp.Text
    W1.LocalPort = 2
    W1.Listen
End Sub
 
Private Sub Form_Load()
    Label3.Caption = " Your IP: " & W1.LocalIP
End Sub
 
Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
End Sub
 
Private Sub lblBackground_Click()
 
End Sub
 
Private Sub W1_Connect() 'When someone Connects to your server
MsgBox W1.RemoteHostIP & " Connected!" 'Show an MSGbox with the remoteIP
Me.Hide
frmChat.Show
End Sub
 
 
Private Sub W1_ConnectionRequest(ByVal requestID As Long)
Dim Message As String
 
Message = MsgBox(W1.RemoteHostIP & " Has requested a connection with you." & vbCrLf & "Do you accept?", vbYesNo + vbInformation, "Connection Request")
    If Message = vbYes Then
        Me.Hide
        frmChat.Show
    End If
End Sub
 

Also This is my chat part code (Doesnt matter as much as the connecting part.)

Private strDisplayName As String
 
Private Sub cmdClose_Click()
    Unload Me
    frmMenu.Show
End Sub
 
Private Sub cmdExit_Click()
    Unload Me
    frmMenu.Show
End Sub
 
Private Sub cmdSend_Click()
    txtChat.AddItem strDisplayName & ": " & txtMessage.Text
    txtMessage.Text = ""
End Sub
 
Private Sub Form_Load()
    strDisplayName = InputBox("Please enter your display name", "Display name")
    txtChat.Clear
    txtChat.AddItem "Welcome to HaggardSmurf's direct IP chat client. "
    txtChat.AddItem "Your connected with: " & W1.RemoteHostIP
    Label1.Caption = "  Direct Chat"
End Sub
 
Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
End Sub
 
Private Sub Timer1_Timer()
    If txtChat.AddItem Then
        frmChat.SetFocus
        txtMessage.SetFocus
    End If
End Sub
 
Private Sub txtMessage_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyReturn) Then
        cmdSend_Click
    End If
End Sub
 

Any help on how to make them connect would be appreciated. :P