MSWinsock.Winsock la gestion des événements en VisualBasic

Je suis en train de gérer Winsock_Connect de l'événement (en Fait j'en ai besoin dans des macros Excel) en utilisant le code suivant:

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

Mais il ne va jamais à Winsock1_Connect sous-routine bien que Winsock1.L'état est "Connecté".
Je veux utiliser la norme MS de la bibliothèque parce que je n'ai pas de droits d'administrateur sur mon PC et je ne suis pas en mesure d'enregistrer certains des bibliothèques personnalisées.
Quelqu'un peut-il me dire où je me trompe?

OriginalL'auteur user21530 | 2008-09-24

  1. 3

    Sont bloqués à l'aide de MSWinsock?

    Ici est un site/tutoriel à l'aide d'un winsock objet.

    Aussi... Vous devez déclarer Winsock1 WithEvents dans une "Classe" module:

    Private WithEvents Winsock1 As Winsock

    Et enfin, assurez-vous de référence de la winsock contrôle ocx.

    Outils -> Références -> Parcourir> %SYSTÈME%\MSWINSCK.OCX

    Le lien vers le site/tutoriel " semble être en panne, probablement pour de bon.
    Je n'arrive pas à trouver ce fichier n'importe où sur un W7 64 bits PC. Comment puis-je ajouter la référence?

    OriginalL'auteur Nescio

  2. 0

    De la Documentation sur Contrôle de Winsock:

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

    Exemple ici:

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

    Mon petit exemple avec la gestion des événements 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

    Sortie sera:

    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
...

    OriginalL'auteur befzz