Results 1 to 4 of 4

Thread: How to get winsock to connect??

  1. #1

    Thread Starter
    New Member
    Join Date
    Sep 2000
    Posts
    15

    Unhappy

    No matter what I do I can not get one winsock to connect to another. I have one application with a winsock called WinS on it and on another computer with a different IP address I have another application with a winsock on it called WinS. They are both set as TCP and one app is listining on port 7777 and the other one is trying to connect to the other one using the same port and the Ip address as the remote host. It never connects. I've got a status bar on it so I can tell what its doing and it says it's connecting then It just times out and gives an error. I ve got it set up to accept the requested ID on the one thats listening. I have my fire wall shut down so thats not it. Any one got a clue?

  2. #2
    Guest
    If you post those portions of your code, it would be much easier to find the problem.

    Sunny

  3. #3

    Thread Starter
    New Member
    Join Date
    Sep 2000
    Posts
    15

    ok here it is

    Private Sub Form_Load()
    On Error Resume Next
    WinS.LocalPort = 7777
    WinS.Listen


    End Sub

    Private Sub WinS_Connect()
    Form1.Text7.Text = "Connected"
    End Sub

    Private Sub WinS_ConnectionRequest(ByVal requestID As Long)

    If WinS.State <> sckClosed Then WinS.Close
    WinS.Accept requestID

    End Sub




    and the other winsock

    Private Sub Form_Load()

    WinS.Connect Form1.Text1.Text, 7777
    *// form1.text1.text is the IP# of the other winsock//

    End Sub
    Private Sub Timer2_Timer()

    Dim strState As String

    Select Case WinS.State
    Case sckClosed
    strState = "Closed"
    Case sckOpen
    strState = "Open"
    Case sckListening
    strState = "Listening"
    Case sckConnectionPending
    strState = "Connection pending"
    Case sckResolvingHost
    strState = "Resolving host"
    Case sckHostResolved
    strState = "Host resolved"
    Case sckConnecting
    strState = "Connecting"
    Case sckConnected
    strState = "Connected"
    Case sckClosing
    strState = "Peer is closing the connection"
    Case sckError
    strState = "Error"
    End Select

    Form1.StatusBar1.Panels(2).Text = strState

    End Sub
    when I try to connect I get "error"
    What am I doing wrong?


  4. #4
    Guest
    So it seems that the error occuring isn't one of the states of Winsock. Use this to get the exact error, it'll start to point you in the right direction.

    Code:
    Private Sub WinS_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)
        MsgBox Number & " " & Description
    End Sub
    Sunny

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width