HeidiR Posted August 1, 2008 Share Posted August 1, 2008 I have the following code below to download a file from the internet. However, during an active download, the beep() function never gets called. I'm running v3.2.12.1. Any thoughts? CODE$rc = InetGet("http://www.trendmicro.com/ftp/products/pattern/lpt449.zip", "C:\Temp\tmp.zip") If $rc = 0 Then Msgbox(0, "", "Error") While @InetGetActive Beep() Sleep(100) Wend HeidiRFind free applications, code examples and more on my site at:http://heidisdownloads.com/ Link to comment Share on other sites More sharing options...
d4rk Posted August 1, 2008 Share Posted August 1, 2008 $rc = InetGet("http://www.trendmicro.com/ftp/products/pattern/lpt449.zip", "C:\Temp\tmp.zip") If $rc = 0 Then Msgbox(0, "", "Error") While $Rc <> 0 Beep() Sleep(100) Wend [quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys Link to comment Share on other sites More sharing options...
HeidiR Posted August 1, 2008 Author Share Posted August 1, 2008 $rc = InetGet("http://www.trendmicro.com/ftp/products/pattern/lpt449.zip", "C:\Temp\tmp.zip") If $rc = 0 Then Msgbox(0, "", "Error") While $Rc <> 0 Beep() Sleep(100) Wend Thanks for your code suggestion. Unfortunately, replacing While @InetGetActive with While $Rc <> 0 results in an endless loop because $rc=1 after a successful download. I found the solution to be setting the InetGet background flag to 1, which allows the InetGet function to return immediatly. The corrected code is: CODE $rc = InetGet("http://826.netfirms.com/bicycle.jpg", "E:\Temp\t.jpg", 0, 1) If $rc = 0 Then Msgbox(0, "", "Error") While @InetGetActive beep() Sleep(100) Wend HeidiRFind free applications, code examples and more on my site at:http://heidisdownloads.com/ Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now