Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Simple Download (Bin, ToString und ToFile)


  • Please log in to reply
25 replies to this topic
Bentschi
  • Moderators
  • 120 posts
  • Last active: Sep 05 2014 02:12 AM
  • Joined: 26 Nov 2008

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

 

- 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
  • Spam Officer
  • 3219 posts
  • Last active: Feb 06 2016 09:32 PM
  • Joined: 19 Apr 2005

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



SAPlayer
  • Members
  • 403 posts
  • Last active: Apr 11 2014 04:45 PM
  • Joined: 06 Nov 2012

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
  • Moderators
  • 120 posts
  • Last active: Sep 05 2014 02:12 AM
  • Joined: 26 Nov 2008

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
  • Members
  • 403 posts
  • Last active: Apr 11 2014 04:45 PM
  • Joined: 06 Nov 2012

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
  • Moderators
  • 120 posts
  • Last active: Sep 05 2014 02:12 AM
  • Joined: 26 Nov 2008

SetTimer



SAPlayer
  • Members
  • 403 posts
  • Last active: Apr 11 2014 04:45 PM
  • Joined: 06 Nov 2012

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
  • Spam Officer
  • 3219 posts
  • Last active: Feb 06 2016 09:32 PM
  • Joined: 19 Apr 2005

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
  • Members
  • 303 posts
  • Last active: May 10 2016 04:56 PM
  • Joined: 21 Jul 2012
Thanks.
This script can increase the setting agent?
Real-time feedback can download progress do?


garry
  • Spam Officer
  • 3219 posts
  • Last active: Feb 06 2016 09:32 PM
  • Joined: 19 Apr 2005

see also

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



Larctic
  • Members
  • 303 posts
  • Last active: May 10 2016 04:56 PM
  • Joined: 21 Jul 2012

Thanks.