25 replies to this topic

[Bentschi]

Für die vielen Danke, sag ich jetzt mal: "bitte, gerne!"

 

- DownloadToString

MsgBox, % DownloadToString("http://www.whatismyip.org")

 

 

- DownloadBin

length := DownloadBin("http://www.whatismyip.org", buf)
MsgBox, % StrGet(&buf, length, "cp0")

 

Edit:

Mit DownloadBin wäre es zB auch möglich eine Grafik zu downloaden und in Gdip zu importieren.

[garry]

vielen Dank Bentschi für die Erklärungen / Benutzung

[SAPlayer]

Ich hab im 1. Post in den Funktionen INTERNET_FLAG_IGNORE_CERT_DATE_INVALID und INTERNET_FLAG_IGNORE_CERT_CN_INVALID hinzugefügt.
Denke mal damit sollte es funktionieren.

Sorry für die Frage, aber wo/was genau hast du da geändert?

[Bentschi]

Nur den Parameter in InternetOpenUrl von 0x80000000 auf 0x80003000

Damit die beiden Flags INTERNET_FLAG_IGNORE_CERT_DATE_INVALID und INTERNET_FLAG_IGNORE_CERT_CN_INVALID dabei sind.

[SAPlayer]

Ist es möglich, bei DownloadToString ein Timeout anzugeben?

Ich pinge zwar vorher den Server an, aber wenn der Download aus irgendwelchen Gründen trotzdem nicht, hängt sich mein Script für etwa 20 Sekunden auf.

 

Lässt sich da was machen?

[Bentschi]

SetTimer

[SAPlayer]

Und damit die while-Schleife unterbrechen? (Sorry, aber bei Funktionen mit DllCalls habe ich keinen wirklichen Durchblick, auch wenn sie noch so kurz sind)

[garry]

Bentschi,

soll ich eher Dein script benützen statt ahk-Befehl urldownloadtofile ?

habe festgestellt dass Dein script schneller ist ( habe es nicht generell getestet )

;-------- http://www.autohotkey.com/board/topic/97544-script-to-open-a-url-and-save-page-as-somethingtxt/ ---

;- Example-1 = urldownloadtofile
URL  := "http://www.autohotkey.com"
Path1 = %a_desktop%\ahk1.txt
begin1:=a_tickcount
urldownloadtofile,%url%,%path1%
delta1:=a_tickcount - begin1
msgbox,Download-1 complete`nDelta1=%delta1%

;- Example-2
Path2 = %a_desktop%\ahk2.txt
begin2:=a_tickcount
DownloadToFile(url, Path2)
delta2:=a_tickcount - begin2
msgbox,Download-2 complete`nDelta2=%delta2%
return

DownloadToFile(url, filename)
{
    static a := "AutoHotkey/" A_AhkVersion
    if (!(o := FileOpen(filename, "w")) || !DllCall("LoadLibrary", "str", "wininet") || !(h := DllCall("wininet\InternetOpen", "str", a, "uint", 1, "ptr", 0, "ptr", 0, "uint", 0, "ptr")))
        return 0
    c := s := 0
    if (f := DllCall("wininet\InternetOpenUrl", "ptr", h, "str", url, "ptr", 0, "uint", 0, "uint", 0x80003000, "ptr", 0, "ptr"))
    {
        while (DllCall("wininet\InternetQueryDataAvailable", "ptr", f, "uint*", s, "uint", 0, "ptr", 0) && s>0)
        {
            VarSetCapacity(b, s, 0)
            DllCall("wininet\InternetReadFile", "ptr", f, "ptr", &b, "uint", s, "uint*", r)
            c += r
            o.rawWrite(b, r)
        }
        DllCall("wininet\InternetCloseHandle", "ptr", f)
    }
    DllCall("wininet\InternetCloseHandle", "ptr", h)
    o.close()
    return c
}

[Larctic]

Thanks.

This script can increase the setting agent?

Real-time feedback can download progress do?

[garry]

see also

http://www.autohotke...downloadtofile/

[Larctic]

Thanks.