- Offizieller Beitrag
Hi,
mal 2 Funktionen zum DL (Source u. Datei) per Objekt.
_GetSource() habe ich im EN-Forum entdeckt und _DownLoad() habe ich aus einem VB-Skript.
Spoiler anzeigen
Local $Path = @ScriptDir & '\weihnachtsgedicht2.txt'
_DownLoad('http://fun.drno.de/txt/german/weihnachtsgedicht2.txt', $Path)
ConsoleWrite(_GetSource('http://www.autoit.de/') & @CRLF)
[/autoit] [autoit][/autoit] [autoit]Func _DownLoad($URL, $PATH2SAVE)
$oHttp = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHttp.Open("GET", $URL)
$oHttp.Send
$HttpErrorCode = $oHttp.Status
If $HttpErrorCode = 200 Then
$oStream = ObjCreate("Adodb.Stream")
With $oStream
.Type = 1
.Open
.Write($oHttp.ResponseBody)
.SaveToFile($PATH2SAVE, 2)
.Close
EndWith
Endif
EndFunc
Func _GetSource($URL)
$oHttp = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHttp.Open("GET", $URL)
$oHttp.Send
Return $oHttp.ResponseText
EndFunc