Sign in to follow this  
Followers 0
Thornhunt

picture grab

2 posts in this topic

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 :D

$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

Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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 :D. 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 :D

$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 :D

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

Edited by Thornhunt

Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0