MSWinsock.Winsock-event-handling in VisualBasic

Ich versuche zu verarbeiten Winsock_Connect Ereignis (Eigentlich brauche ich es in Excel-makro) mit dem folgenden code:

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

Aber es geht nie um Winsock1_Connect Unterprogramm obwohl Winsock1.Status ist "Verbunden".
Ich möchte die Verwendung von standard-MS-Bibliothek, weil ich habe keine Administratorrechte auf meinem PC und ich bin nicht in der Lage zu registrieren, einige angepasste Bibliotheken.
Kann mir jemand sagen, wo ich falsch bin?

InformationsquelleAutor user21530 | 2008-09-24
  1. 3

    Sind Sie stecken mit MSWinsock?

    Hier ist eine Seite/tutorial mit ein benutzerdefiniertes winsock-Objekt.

    Auch... Sie müssen erklären Winsock1 WithEvents innerhalb einer "Klasse" Modul:

    Private WithEvents Winsock1 As Winsock

    Und schließlich, stellen Sie sicher, dass Sie auf das winsock-ocx-control.

    Extras -> Referenzen> Suche -> %SYSEM%\MSWINSCK.OCX

    • Den link zur "Website/tutorial" scheint down zu sein, wahrscheinlich für immer.
    • Ich kann nicht scheinen zu finden, diese Datei irgendwo auf einem W7 64-bit PC. Wie kann ich den Verweis hinzuzufügen?
    InformationsquelleAutor Nescio
  2. 0

    Dokumentation über Winsock-Steuerelement:

    http://msdn.microsoft.com/en-us/library/aa228119%28v=vs.60%29.aspx

    Beispiel hier:

    http://support.microsoft.com/kb/163999/en-us

    Mein kurzes Beispiel mit event-handling in 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

    Ausgabe:

    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
...
    InformationsquelleAutor befzz
Schreibe einen Kommentar