check if url is active?

[elmoi0010]

Hi again guys, am here with a noob question e.e. 
How can i check if i get an active URL? because sometimes my internet is not working propperly and then i get the error saying, "YOU ARE NOT CONNECTED TO INTERNET" in internet explorer. and i want to check if there a way to test if the webpage is active. 
I was triying with _inetgetsource but dont seems to work.

 

$findtl = _GetIP
$check1 = _INetGetSource("https://www.happypanda.com")
If StringInStr($check1,$findtl) Then
   ConsoleWrite ("YES")
EndIf

 

Thanks in advanced.

[jguinch]

Maybe you can use_WinAPI_IsInternetConnected ?
 

 

[elmoi0010]

Maybe you can use_WinAPI_IsInternetConnected ?
 

 

You are right, maybe its working but i want to test the URL. Maybe the page is down. Its my question, thanks in advanced @jguinch <3

[JohnOne]

Func _UrlAlive($url)
    Return Not (InetRead($url, 1) = "")
EndFunc

 

Edited December 20, 2015 by JohnOne

[jguinch]

J1, you should add the $INET_FORCERELOAD parameter, no ?

[mikell]

?

Msgbox(0,"", _UrlAlive("autoitscript.com"))

Func _UrlAlive($url)
    Return (Ping($url) = 0) ? 0 : 1
EndFunc

 

[jguinch]

@mikell : why not Return (Ping($url) <> 0) ?

Edited December 20, 2015 by jguinch

[mikell]

Because the ternary operator is lovely and I like it 

[JohnOne]

Ping does not do the job anyway...

Msgbox(0,"", _UrlAlive("autoitscript.com/forum/topic/179385-check-if-url-is-active/"))

Func _UrlAlive($url)
    Return (Ping($url) = 0) ? 0 : 1
EndFunc

Well it does for the domain, but nothing else.

[mikell]

Right... I wrote this because in post #1 the OP seemingly wanted to check a domain, and ping is faster

Msgbox(0,"", _UrlAlive("happypanda.com"))

Func _UrlAlive($url)
    Return (Ping($url) = 0) ? 0 : 1
EndFunc

BTW strangely this code returns false 

Msgbox(0,"", _UrlAlive("https://www.happypanda.com"))

Func _UrlAlive($url)
    Return Not (InetRead($url, 1) = "")
EndFunc

 

[SadBunny]

That last part returns true for me...

[mikell]

I get for InetRead @error = 13