6

我正在尝试使用以下代码处理 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_Connect 子例程，尽管 Winsock1.State 是“已连接”。我想使用标准 MS 库，因为我在我的 PC 上没有管理权限，而且我无法注册一些自定义库。谁能告诉我，我错在哪里？

4

2 回答 2

3

你还在使用 MSWinsock 吗？
这是一个使用自定义 winsock 对象的站点/教程。

另外...您需要在“类”模块中声明 Winsock1 WithEvents ：

Private WithEvents Winsock1 As Winsock

最后，确保您引用了 winsock ocx 控件。
工具 -> 参考 -> 浏览 -> %SYSEM%\MSWINSCK.OCX

于 2008-09-24T08:12:01.197 回答
0

有关Winsock 控制的文档：http :
//msdn.microsoft.com/en-us/library/aa228119%28v=vs.60%29.aspx
此处示例：http:
//support.microsoft.com/kb/163999/en -我们

我在 VBscript 中进行事件处理的简短示例：

Dim sock
Set sock = WScript.CreateObject("MSWinsock.Winsock","sock_")
sock.RemoteHost = "www.yandex.com"
sock.RemotePort = "80"
sock.Connect

Dim received
received = 0

Sub sock_Connect()
    WScript.Echo "[sock] Connection Successful!"
    sock.SendData "GET / HTTP/1.1"& vbCrLf & "Host: " & sock.RemoteHost  & vbCrLf & vbCrLf
End Sub

Sub sock_Close()
    WScript.Echo "[sock] Connection closed!"
End Sub

Sub sock_DataArrival(Byval b)
    Dim data
    sock.GetData data, vbString
    received = received + b
    WScript.Echo "---------------------------------------"
    WScript.Echo " Bytes received: " & b  & " ( Total: " & received & " )"
    WScript.Echo "---------------------------------------"
    WScript.Echo data
End Sub

'Wait for server close connection
Do While sock.State <> 8
    rem WScript.Echo sock.State
    WScript.Sleep 1000
Loop

输出将是：

cscript /nologo sockhttp.vbs

[sock] Connection Successful!
-------------------------------
 Bytes received: 1376 ( Total: 1376 )
-------------------------------
HTTP/1.1 200 Ok
Date: Mon, 08 Dec 2014 15:41:36 GMT
Content-Type: text/html; charset=UTF-8
Cache-Control: no-cache,no-store,max-age=0,must-revalidate
Expires: Mon, 08 Dec 2014 15:41:36 GMT
...
于 2014-12-08T15:54:10.653 回答