Gérer les Événements de WinHttpRequest

Un programme que j'utilise fonctionne .Les scripts VBS

Donc, dans VBScript comment pouvez-vous traiter la OnResponseFinished événement pour un WinHttpRequest objet?

Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
oHTTP.Open "GET", "http://www.google.com", True
oHTTP.Send

Où que vous capable de faire ce travail? Je n'ai pas trouvé de moyen à côté de celui avec Error GoTo <label>. Aucune réponse vraiment résoudre le problème.
Il y a une question connexe, où la liaison à WinHttpRequest événements à l'aide de WScript.CreateObject() provoque une erreur de protection générale. Les détails peuvent être trouvés ici stackoverflow.com/questions/27407533/...

OriginalL'auteur Carlos Gil | 2011-02-26

2

J'ai essayé d'obtenir un peu de code exécuté lorsque l'winhttp réponse vient (à l'aide de VBScript à l'intérieur de fichier HTA). Vous pouvez envisager de mettre votre code d'événement juste après l'envoi. En utilisant le code suivant, l'interface utilisateur de ne pas se bloquer lors de l'attente de la réponse:
```
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", "http://www.google.com", True
objHTTP.Send
objHTTP.WaitForResponse 'pauses execution, but does not hang UI
'from now on, execution only takes effect after completion of the response:
msgbox objHTTP.responseText 'an example of what can be done with the response
```
Ce qui semble être le même que synchrone winhttp pour les fichiers de script, qui peut être ce que vous cherchez. Donc, la seule différence peut-être remarqué lors de l'utilisation d'une interface utilisateur.

OriginalL'auteur Eduardo Poço
1

Modifier le troisième paramater dans l'appel à la Open méthode pour false. Ensuite, placez le code, vous avez en OnResponseFinished après l'appel à envoyer.

Le programme parent doit être sensible qui peut être atteint par leur "ProcessMessages" Sous, mais je préfère le faire de manière asynchrone sans que tous les le bouclage.
Vous hébergez un moteur de script?
Eh bien, pas moi. Un programme que j'utilise des charges .Les scripts VBS comme addons.

OriginalL'auteur AnthonyWJones
1

Utilisation WScript CreateObject pas construit en un pour un gestionnaire d'événement.
```
Set oHTTP = WScript.CreateObject(
    "WinHttp.WinHttpRequest.5.1",
    "oHTTP_"
)
```
OriginalL'auteur Stephen Quan
0

Je vais vous avouer que sa n'est pas une grande réponse, mais la façon habituelle de s'inscrire VBScript événements est d'utiliser le GetRef fonction pour obtenir une référence pour le gestionnaire d'événements, par exemple avec un MSXML2.XMLHTTP objet:
```
Set oHTTP = CreateObject("MSXML2.XMLHTTP")
oHTTP.Open "GET", "http://www.google.com", True

oHTTP.OnReadyStateChange = GetRef("oHTTP_OnReadyStateChange")

Sub oHTTP_OnReadyStateChange
    ' do something
End sub

oHTTP.Send
```
Le problème est, je l'ai essayé pour votre code, c'est à dire
```
Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
oHTTP.Open "GET", "http://www.google.com", True

oHTTP.OnResponseFinished = GetRef("oHTTP_OnResponseFinished")

Sub oHTTP_OnResponseFinished
    ' do something
End sub

oHTTP.Send
```
et ça ne fonctionne pas, l'obtention de l'erreur

Objet ne gère pas cette propriété ou cette méthode: 'oHTTP.OnResponseFinished'

mais peut-être cela peut vous donner un point de départ , ou peut-être vous pouvez utiliser le MSXML2 de la bibliothèque à la place?

Juste la mise à jour de cette réponse avec la autres façon de gérer les événements de COM - utiliser le deuxième paramètre de la CreateObject fonction qui vous permet de spécifier la fonction de préfixe qui relie les fonctions des objets, par exemple
```
Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1", "oHTTP_")
oHTTP.Open "GET", "http://www.google.com", True

Sub oHTTP_OnResponseFinished
    ' do something
End sub

oHTTP.Send
```
malheureusement, cela ne fonctionne pas non plus - il faut que les IWinHttpRequestEvents interface est inaccessible

hmm, il semble que vous avez besoin d'accéder à la IWinHttpRequestEvents (voir ici) de l'interface et je ne pense pas qu'il y a moyen d'en VBScript pour utiliser un objet de l'interface de rechange
Le problème est le XmlHttp OnReadyStateChange est spécialement conçu pour recevoir le pointeur de fonction à partir d'un environnement de script. Alors que OnResponseFinished est un standard COM Cas, vous ne pouvez pas assigner comme une propriété.
Merci. J'utilise cette méthode pour "MSXML2.XMLHTTP". Dans mon cas, ce n'est pas un déclarant point; c'est là où je me suis coincé.

OriginalL'auteur

J'ai vérifié le Registre de Windows et il semble y avoir un certain nombre de Microsoft objets qui n'ont presque la même chose:

Microsoft.XMLHTTP {ED8C108E-4349-11D2-91A4-00C04F7969E8}
MSXML2.XMLHTTP {F6D90F16-9C73-11D3-B32E-00C04F990BB4}
WinHttp.WinHttpRequest.5.1 {2087c2f4-2cef-4953-a8ab-66779b670495}
MSXML2.ServerXMLHTTP {AFBA6B42-5692-48EA-8141-DC517DCF0EF1}

Ce qui fonctionne pour moi est Microsoft.ServerXMLHTTP qui permet le réglage de la onreadystatechange en VBScript. Le "MSXML2.ServerXMLHTTP" poignées de rediriger les sites web (par ex. google.com) qui en fait un meilleur choix "de Microsoft.XMLHTTP".

Dim xmlhttp ' global so can be accessed in OnStateChange

Sub OnStateChange
    If xmlhttp.readystate = 4 Then
        ' React to xmlhttp.responseText
        MsgBox xmlhttp.responseText
    End If
End Sub

Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET", "http://www.google.com/", true
xmlhttp.onreadystatechange = GetRef("OnStateChange")
xmlhttp.send
' do something else whilst xmlhttp is running in the background
MsgBox "Pausing so that OnStateChange can fire!"

OriginalL'auteur Stephen Quan

0

Elle n'a besoin semble être possible en fonction de cette (aller à des remarques) vous ne pouvez accéder à l'état d'erreur avec Err. La documentation de Microsoft est moche.

OriginalL'auteur Michael-O

J'ai trouvé que je peux obtenir que cela fonctionne de manière Asynchrone à l'aide de la 'waitForResponse" avec le paramètre '0' pour le délai de la méthode comme un drapeau.

IE:

 oHTTP.Open "GET", "http://www.google.com", True
 oHTTP.Send

 Do While oHTTP.waitForResponse(0) = False
   'do stuff while waiting for it to be done

    WScript.Sleep 200 'sleep for 0.2 seconds between checks as not waste CPU 
    DoEvents
 Loop

 'Once the loop is exited, the response is finished
 MsgBox oHTTP.ResponseText

OriginalL'auteur timonippon

Vous devez vous connecter pour publier un commentaire.