Hallo,
für eine Studienarbeit soll ich eine kleine Suchmaschine programmieren, die von verschiedenen Webseiten Inhalte lesen soll und auch 3 PCs gleichzeitig laufen soll.
Per Registry habe ich dafür gesorgt, daß VB6 auf allen Rechnern den IE11 verwendet, statt den IE7 wie es die Vorgabe ist.
Dazu verwende ich folgenden Code:
Dim oHTTP As MSXML2.XMLHTTP30
Set oHTTP = New MSXML2.XMLHTTP30
oHTTP.Open "GET", urlToGet, False
oHTTP.send
While Not i = 4
i = oHTTP.ReadyState
Wend
objStream.WriteText (oHTTP.responseBody)
objStream.Position = 0
objStream.Charset = "UTF-8"
strDATA = objStream.ReadText(-1)
WebPageCode = strDATA
So weit so gut. Das Problem ist, daß auf einem Rechner richtige Ergebnisse kommen, auf 2 anderen aber komplett andere Rückgabewerte in der Variable "WebPageCode" stehen.
(gleiche VB.exe, Windows10, IE11)
Ich verstehe das einfach nicht. Woran kann es denn noch liegen, daß der Rückgabewert nicht identisch ist ?
LG, Silke
für eine Studienarbeit soll ich eine kleine Suchmaschine programmieren, die von verschiedenen Webseiten Inhalte lesen soll und auch 3 PCs gleichzeitig laufen soll.
Per Registry habe ich dafür gesorgt, daß VB6 auf allen Rechnern den IE11 verwendet, statt den IE7 wie es die Vorgabe ist.
Dazu verwende ich folgenden Code:
Dim oHTTP As MSXML2.XMLHTTP30
Set oHTTP = New MSXML2.XMLHTTP30
oHTTP.Open "GET", urlToGet, False
oHTTP.send
While Not i = 4
i = oHTTP.ReadyState
Wend
objStream.WriteText (oHTTP.responseBody)
objStream.Position = 0
objStream.Charset = "UTF-8"
strDATA = objStream.ReadText(-1)
WebPageCode = strDATA
So weit so gut. Das Problem ist, daß auf einem Rechner richtige Ergebnisse kommen, auf 2 anderen aber komplett andere Rückgabewerte in der Variable "WebPageCode" stehen.
(gleiche VB.exe, Windows10, IE11)
Ich verstehe das einfach nicht. Woran kann es denn noch liegen, daß der Rückgabewert nicht identisch ist ?
LG, Silke