Sign in to follow this  
Followers 0
Kyme

InetGet problem/bug

3 posts in this topic

it is posible to solve this bug?

$testosterone = getsource("http://recyfer.info/testosterone.htm")
$testosterone_version = StringRegExp($testosterone, "Last version (.*?)<", 3)
testosterone()
Func testosterone()
$testosterone_save = FileSaveDialog("Download Dir", "C:\Download\", "zip (*.zip)", 16, "C19H28O2.v"&$testosterone_version[0]&".zip")
If Not @error Then
    $size = InetGetSize("http://recyfer.info/files/C19H28O2.v"&$testosterone_version[0]&".zip")
    InetGet("http://recyfer.info/files/C19H28O2.v"&$testosterone_version[0]&".zip", $testosterone_save, 1, 1)
    $stat = @InetGetBytesRead/$size*100
    While $stat<>100
        $stat = int(@InetGetBytesRead/$size*100)
        TrayTip("Downloading", int(@InetGetBytesRead/1024)&"kb/"&int($size/1024)&"kb ("&$stat&"%)", 10, 16)
        Sleep(1000)
    Wend
MsgBox(64, "Download Complete", "Password: recyfer.info"&@CRLF&"Have Fun with the Loader =)")
EndIf
EndFunc
Func getsource($url)
    $httpObj = ObjCreate("winhttp.winhttprequest.5.1")
    $httpObj.open("GET",$url)
    $httpObj.send()
    Return $httpObj.Responsetext
EndFunc

when it download the arhive the arhive will be corupt...are there any solution???

tnx

Share this post


Link to post
Share on other sites



Try using While @InetGetActive instead of While $stat <> 100.

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Try using While @InetGetActive instead of While $stat <> 100.

now i try it...and nothing...same think...i think it's too small file to download it:| or other explication i don't have:|

the arhive have 699 KB:| and it's protected by password

Edited by Kyme

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