Search the Community
Showing results for tags 'internet active'.
-
Please Note This Has Been Solved! I am leaving this here for anyone with the same problem. Solution in this post. Sorry for the vague title, but it was the best that I could come up with considering. Suddenlink has been switching our connection on and off for the last few days as they make upgrades. In some of these cases, its been a few hours. So, I decided to modify one of the example scripts in an attempt to get the script to display a msgbox upon finding an internet connection. I leave the volume on full, this way I know exactly when the connection comes back. The problem with this is that when I glanced at the computer after 30 more mins, I found that we DID have a connection, yet the script had not displayed the Msg. I do not feel that I need to tell you guys how out of touch with Autoit I am, so this is a problem that I cannot even fathom the issue of. In my mind, the script looks perfect. Anyway, I will defer to the wonderful genus that is this community to see what the issue is. I will upload the code as is. If you could present the fixed code, along with an explanation of what I did wrong I would be very grateful. Fix or not, I just thank you for taking the time to read this. #include <MsgBoxConstants.au3> Example() Func Example() Local $dData = InetRead("http://www.autoitscript.com/autoit3/files/beta/update.dat") Local $iBytesRead = @extended Local $sData = BinaryToString($dData) If $sData = "" Then Sleep( 1000 ) Example() EndIf MsgBox(0, "YAY!!!", "Internet Connection Back!") EndFunc As you can see, I was hoping that if it returned an empty string then the code would simply restart the function. But, should it show anything other than a blank string I figured that it would pass the EndIf and display the Msg. Somehow I got this wrong. I noticed one possible issue in the above code, and that was in the variable. I accidentally read the wrong variable it would seem. However, fixing that still did not result in a working script. EDITED CODE #include <MsgBoxConstants.au3> Example() Func Example() Local $dData = InetRead("http://www.autoitscript.com/autoit3/files/beta/update.dat") Local $iBytesRead = @extended Local $sData = BinaryToString($dData) If $dData = "" Then Sleep( 1000 ) Example() EndIf MsgBox(0, "YAY!!!", "Internet Connection Back!") EndFunc
- 7 replies
-
- check internet connection
- internet active
- (and 1 more)