VisualBasic中的MSWinsock.Winsock事件处理

Question

我正在尝试使用以下代码来处理Winsock_Connect事件（实际上我在Excel宏中需要它）：

Dim Winsock1 As Winsock 'Object type definition

Sub Init()
    Set Winsock1 = CreateObject("MSWinsock.Winsock") 'Object initialization
    Winsock1.RemoteHost = "MyHost"
    Winsock1.RemotePort = "22"
    Winsock1.Connect

    Do While (Winsock1.State <> sckConnected)
        Sleep 200
    Loop
End Sub

'Callback handler
Private Sub Winsock1_Connect()
    MsgBox "Winsock1::Connect"
End Sub

但是，尽管Winsock1.State为“已连接”，但它从未进入Winsock1_Connect子例程。我想使用标准的MS库，因为我在PC上没有管理权限，并且无法注册某些自定义库。谁能告诉我，我哪里错了？

Answer 1

您是否使用MSWinsock感到困惑？Here是使用自定义winsock对象的站点/教程。

Answer 2

有关

Winsock控件]的文档：http://msdn.microsoft.com/en-us/library/aa228119%28v=vs.60%29.aspx这里的例子：http://support.microsoft.com/kb/163999/en-us