XMLHTTP - ResponseText aktualisieren

Hallo Forum,
ich erzeuge mittels MSXML2.XMLHTTP und responseText ein htmlDocument, da ich administrativ kein Internet Explorer Application öffnen kann.
Das klassische und auch ehemals funktionierende:


Set ieApp = CreateObject("InternetExplorer.Application")

funktioniert nicht mehr.
Die alternative Lösung war das html-Dokument über die Funktion:


Function DataRead(Optional Link As String = "", _
Optional ByRef XMLReqAnfrage As MSXML2.XMLHTTP60)
Dim XMLReq As MSXML2.XMLHTTP60
Dim htmlDoc As New MSHTML.htmlDocument
Dim HTMLLinks As MSHTML.IHTMLElementCollection
Dim HTMLLink As MSHTML.IHTMLElement
Dim Hy As Hyperlink
If UCase(TypeName(XMLReqAnfrage)) = "NOTHING" And Link  "" Then
Set XMLReq = New MSXML2.XMLHTTP60
XMLReq.Open "Get", Link, False
Set XMLReqAnfrage = XMLReq
XMLReq.send
ElseIf Link = "" Then
Set DataRead = Nothing
Exit Function
Else
Set XMLReq = aktXMLReq
End If
Do Until XMLReq.Status = 200
Sleep 100
Loop
htmlDoc.body.innerHTML = XMLReq.responseText
Set DataRead = htmlDoc
End Function

auszulesen... funktioniert
Jetzt habe ich aber festgestellt, dass die Seite noch in Englisch angezeigt wird...
Hier kann ich über eine Schleife nach dem entsprechenden "HTMLSelectElement" suchen und es mittels


For Each Element In my_Elements.all
If InStr(1, UCase(Element.outerText), "DEUTSCH")  0 And _
Element.Selected = False and _
TypeName(Element) = "HTMLSelectElement" Then
Element.Selected = True
End If
Next Element

auch umschalten. Nur ändert das ja nichts an meinem eingelesenen responseText.
Gibt es eine Möglichkeit dies:
1. im Vorfeld schon auf Deutsch umzustellen oder
2. das htmlDocument über das Event "onchange" zu aktualisieren oder
3. das MSXML2.XMLHTTP60 als globale Variable nach der Aktualisierung (die Frage wäre hier wie ich dieses aktualisiere) neu einzulesen
- Senden von Parameteren mittels MSXML2.XMLHTTP60.Open "POST", ...
Hier komme ich einfach nicht weiter ... :-(

Hallo Speedy,
generell ist xhr (XML HTTP Request, den Du mit MSXML2.XMLHTTP60 verwendest) statisch. Das bedeutet, Du kannst genau ein Dokument vom WebServer abfragen und dieses ist und bleibt dann genau so, wie es ist. Du kannst darin keinen Button anklicken, keine Auswahl in einem Dropdown auswählen oder sonst etwas machen, auf das Du eine Reaktion erwartest. Also, kannst Du schon, nur xhr ist nicht interaktiv und es passiert dann einfach nix, weil es keine weitere Kommunikation mit dem WebServer gibt. Auch JavaScript wird nicht ausgeführt.
Um sich das anzusehen müsstest Du den Link angeben. Ob sich da was über POST statt GET regeln lässt kann man so nicht sagen. Das kommt darauf an, was im Hintergrund passiert, wenn im Browser die Sprache gewechselt wird. Vielleicht kann man die deutsche Version der Seite auch gar nicht über xhr abrufen. Dann bliebe noch der Weg über SeleniumBasic. Das muss allerdings installiert werden, was Du auf Deinem Arbeitsrechner evtl. nicht darfst.
Viele Grüße,
Zwenn

XMLHTTP - ResponseText aktualisieren

Forumthread: XMLHTTP - ResponseText aktualisieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial