Winsock控件大问题，高手请进！

Question

可能要先close再connect吧。

Answer 1

程序代码如下，很简单的：
    On Error GoTo ErrHandle
    mRcvTotal = 0
    If Winsock1.state <> sckClosed Then
        Winsock1.Close
    End If
    Do While Winsock1.state <> sckClosed
        DoEvents
    Loop
    Winsock1.connect mServerIP, mServerPort
    
'    Timer1.Enabled = True
    Show vbModal
    Exit Sub
ErrHandle:
    MsgBox "Tcpip_Connect Error[" & str(err.number) & ":[" & Err.Description & "]"
    Me.Visible = False
    mResult = False
    exit sub
错误码：－2147417848

Answer 2

代码好象没什么问题。属于自动化错误，这样建议你把VB以及SP5重装一下，也许就行了。