If _InetCheckURL("http://78.137.17.3:7777/udp/239.255.250.3:1234") Then
ConsoleWrite("Живая" & @CRLF)
Else
ConsoleWrite("Нет..." & @CRLF)
EndIf
Func _InetCheckURL($sUrl)
Local $sFile, $hInet, $aInfo, $t
$sFile = @TempDir & "\check" & Random(1111111, 9999999, 1)
$hInet = InetGet($sUrl, $sFile, 3, 1)
For $c = 1 To 5
Sleep(1000)
$aInfo = InetGetInfo($hInet)
$t = $aInfo[0] > 2048
If $t Then ExitLoop
Next
InetClose($hInet)
FileDelete($sFile)
Return $t
EndFunc ;==>_InetCheckURL