#include <Array.au3>
#include <File.au3>
Global $aUrls, $PingTimeout = 1000
_FileReadToArray(@ScriptDir & "\urls.txt", $aUrls)
For $i = 1 To UBound($aUrls) - 1
Switch StringLeft($aUrls[$i], 3)
Case 'www'
$aUrls[$i] = 'http://' & $aUrls[$i]
Case 'htt'
ContinueLoop
Case Else
$aUrls[$i] = 'http://www.' & $aUrls[$i]
EndSwitch
Next
For $i = 1 To $aUrls[0]
If _UrlExists($aUrls[$i]) Then
ConsoleWrite("Exists: " & $aUrls[$i] & @LF)
ContinueLoop
EndIf
ConsoleWrite("Not Exists Or No Response in " & $PingTimeout / 1000 & " Seconds: " & $aUrls[$i] & @LF)
Next
Func _UrlExists($url)
If (StringLen(InetRead($url, 1)) > 0) Then Return 1
If Ping($url, $PingTimeout) Then Return 2
Return 0
EndFunc