picture grab

[Thornhunt]

ok inspired by 4scrape i was curious if it was possible to do a similar job with autoit.

so i took a few mins to whip some code together and went ahead testing . but it fails to fully downloadd the files. maybe some one can enlighten me helping me increase me knolage

$count = 0

HotKeySet("{end}", "End")
HotKeySet("{home}", "Go")
GUICreate("FILES dwld", 200, 100, 100,100)
$infolabel = GUICtrlCreateLabel("hit End to exit", 10 , 30)
$startbutton = GUICtrlCreateLabel("hit HOME to START", 90 , 50)
GUISetState()

while 1
WEnd


Func Go()
    $filestartnumber = 1253223581808
    Do
    $count = $count + 1
    InetGet ( "http://orz.4chan.org/wg/src/" & $filestartnumber & ".jpg", @ScriptDir & "/downloads/" & $count & ".jpg",0,0)
    $filestartnumber = $filestartnumber + 1
    Until $count = 0
EndFunc

Func End()
    exit
EndFunc

[Thornhunt]

ok i think i have got it fixed.. maybe someone else can test.

the only problem i have found is that there are alot of files that dont exsist. so there are alot of 0 bytes .. meaning most of the numbers dnt dwnload anything . so far just the one .. if anyone else can test to see if this little script works ( ie it dwnloads more than the starting number) i would be very thankful

$count = 0

HotKeySet("{end}", "End")
HotKeySet("{home}", "Go")
GUICreate("FILES downloaded", 200, 100, 100,100)
$infolabel = GUICtrlCreateLabel("hit End to exit", 10 , 30)
$startbutton = GUICtrlCreateLabel("hit HOME to START", 90 , 50)
GUISetState()

while 1
WEnd


Func Go()
    $filestartnumber = ___________________ENTER  A CURRENT ACTIVE IMAGE
    while 1
        TrayTip("checking" & $filestartnumber ,"checking", 10 , 16)
        $size = InetGetSize("http://orz.4chan.org/wg/src/" & $filestartnumber & ".jpg")
        if $size =  Not 0 Then
            $count = $count + 1
            InetGet ( "http://orz.4chan.org/wg/src/" & $filestartnumber & ".jpg", @ScriptDir & "/downloads/" & $count & ".jpg",0,1)
            While @InetGetActive
                TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
                Sleep(250)
            Wend
        EndIf
        $filestartnumber = $filestartnumber + 1
    WEnd
EndFunc

Func End()
    exit
EndFunc

//edit

ORRR if someone could make it faster

at the moment its running possible at about 1 / 2 file checks a second :/

Edited September 18, 2009 by Thornhunt