Hi,
kann mir jemand sagen, warum das hier nicht (mehr) funktioniert (die anderen Links dagegen schon)?
[autoit]
;Local $sData = InetRead("http://www.autoitscript.com/autoit3/files/beta/update.dat")
;Local $sData = InetRead("http://www.ard.de/")
Local $sData = InetRead("http://www.amazon.de/")
Local $nBytesRead = @extended
MsgBox(4096, "", "Bytes read: " & $nBytesRead & @CRLF & @CRLF & BinaryToString($sData))
Vertiefende Aktionen gehen dann natürlich auch nicht mehr.
Dank und Gruß
Thomas
Auch das geht nicht:
[autoit]
#include <INet.au3>
#include <array.au3>
;Local $sData = InetRead("http://www.autoitscript.com/autoit3/files/beta/update.dat")
;Local $sData = InetRead("http://www.ard.de/")
Local $sData2 = _INetGetSource("http://www.amazon.de/")
If IsArray($sData2) Then
_ArrayDisplay($sData2)
Else
MsgBox(0, "Quelltext", $sData2)
Endif
Vermutlich wurde der AutoIt-Useragent gesperrt. Was willst du denn machen? Wenn es den AGB von Amazon nicht widerspricht, kannst du diesen per HttpSetUserAgent ändern.
Da hast Du vermutlich recht. Allerdings ändert das hier z.B. auch nichts:
[autoit]
HttpSetUserAgent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1")
;Local $sData = InetRead("http://www.autoitscript.com/autoit3/files/beta/update.dat")
;Local $sData = InetRead("http://www.ard.de/")
Local $sData = InetRead("http://www.amazon.de/")
Local $nBytesRead = @extended
MsgBox(4096, "", "Bytes read: " & $nBytesRead & @CRLF & @CRLF & BinaryToString($sData))
Ich will lediglich ein paar harmlose Abfragen machen. Aber ich komme ja nicht einmal mehr auf die Startseite...
Funz noch nicht einmal, wenn ich den IE eingebe, der hier ausgegeben wird:
Hier hat sich was geändert. Ich weiss bloß noch nicht, was mir das konkret alles sagen will:
Bei mir funktionier das Skript aus Post 4
mfg autoBert
Teufel - Du hast recht. Bei mir auch. Geht jetzt sogar ganz ohne "HttpSetUserAgent". Oder es liegt am Neu-Booten ...
Funktioniert bei mir heute seltsamerweise auch, gestern gings nicht, warum auch immer.
