Серый форум — AHK: Проверка интернет соединения

Re: AHK: Проверка интернет соединения

null@example.com (ms) — Thu, 17 Jan 2019 07:35:17 +0000

Предлагаю другой пример

result	:=  ComObjCreate("WScript.Shell").Exec("cmd.exe /q /c chcp 65001 && ping ya.ru -n 1").StdOut.ReadAll()

дальше можно выщемить только цифру time или TTL, чтобы в дальнейшем сравнивать/обрабатывать..., все по русски и без каракуль, можно поставить в цикл и не будет постоянно создаваться файл.

    	Loop, parse, result, `n `r
   	 {
		IfInString, A_LoopField, time= 
		{
			var:=A_LoopField
			StringReplace, var, var, time=, , All
			StringReplace, var, var, ms, , All
			MsgBox, %var%
		}
   	 }
return

Re: AHK: Проверка интернет соединения

null@example.com (Key) — Fri, 03 Jun 2016 13:47:28 +0000

Весь процесс ping будет в буфере и все по русски и без каракуль

+ открыть спойлер

clipboard:=
RunWait %comspec% /c chcp 65001 && ping ya.ru -n 1 | cb.exe
MsgBox, %clipboard%

Еще проще.

+ открыть спойлер

#Persistent
RunWait, ping.exe ya.ru -n 1,, Hide UseErrorlevel
if Errorlevel=1
{
MsgBox, Pinng проходит
;вместо MsgBox мотет быть Run и т.д
}

return

Re: AHK: Проверка интернет соединения

null@example.com (Drugoy) — Fri, 23 Oct 2015 00:57:03 +0000

Ну а как можно проверить работоспособность прокси, кроме как попробовав применить его?
Никак.

Re: AHK: Проверка интернет соединения

null@example.com (Malcev) — Thu, 22 Oct 2015 00:33:29 +0000

Не, это не вариант - еще тормознутей выйдет.

Re: AHK: Проверка интернет соединения

null@example.com (Drugoy) — Wed, 21 Oct 2015 22:25:03 +0000

Через установку прокси и попытку UrlDownloadToFile.

Re: AHK: Проверка интернет соединения

null@example.com (Malcev) — Wed, 21 Oct 2015 01:02:02 +0000

А есть ли решения для определения работоспособности прокси, кроме как через WinHttpRequest?

Re: AHK: Проверка интернет соединения

null@example.com (teadrinker) — Thu, 23 Apr 2015 16:58:51 +0000

Irbis пишет:

MsgBox, % DllCall("Wininet.dll\InternetGetConnectedState", "Str", 0x20,"Int",0)

Немного странно этой функцией пользуетесь. Надо как-то так:

state := DllCall("Wininet\InternetGetConnectedState", IntP, flags, Int, 0)
for k, v in { INTERNET_CONNECTION_CONFIGURED: 0x40
            , INTERNET_CONNECTION_LAN: 0x2
            , INTERNET_CONNECTION_MODEM: 0x1
            , INTERNET_CONNECTION_OFFLINE: 0x20
            , INTERNET_CONNECTION_PROXY: 0x4
            , INTERNET_RAS_INSTALLED: 0x10 }
   if (flags & v)
      list .= k . "`n"
   
MsgBox, % "state = " state "`nflags:`n" Trim(list, "`n")

Re: AHK: Проверка интернет соединения

null@example.com (teadrinker) — Thu, 23 Apr 2015 14:57:12 +0000

А как по "внутреннему состоянию ОС" можно отличить подключение к интернету от подключения к локальной сети? У меня, например, подключение осуществляется не напрямую, а через локальную сеть провайдера.

Re: AHK: Проверка интернет соединения

null@example.com (Irbis) — Thu, 23 Apr 2015 14:30:43 +0000

Да, есть такой момент, при отключенном от роутера кабеле все равно выводит 1.
Все равно как-то не нравится способ с постоянным "пинанием" внешнего адреса, хочется найти способ, как обойтись опросом внутреннего состояния ОС.

Re: AHK: Проверка интернет соединения

null@example.com (ypppu) — Thu, 23 Apr 2015 14:26:16 +0000

Вообще кроме "есть" и "нет" существуют другие состояния. Интернет доступен, но DNS не пашет. Или интернет частично доступен.

Re: AHK: Проверка интернет соединения

null@example.com (Malcev) — Thu, 23 Apr 2015 13:43:44 +0000

У кого-нибуль есть ситуации, когда этот код показывает соединение при фактически неработающем интернете?

У меня при подключенном роуте и отключенном от него интернете показывает 1.

Re: AHK: Проверка интернет соединения

null@example.com (teadrinker) — Thu, 23 Apr 2015 13:42:08 +0000

Смотря, что понимать под "интернетом". Локальная сеть — тоже "интернет".

Re: AHK: Проверка интернет соединения

null@example.com (Irbis) — Thu, 23 Apr 2015 13:38:46 +0000

Проверять соединение кажется более надежным, но у меня и так стабильно показывает состояние.
Сменил параметр проверки на 0x20 = INTERNET_CONNECTION_OFFLINE.
У кого-нибуль есть ситуации, когда этот код показывает соединение при фактически неработающем интернете?

MsgBox, % DllCall("Wininet.dll\InternetGetConnectedState", "Str", 0x20,"Int",0)

Re: AHK: Проверка интернет соединения

null@example.com (Malcev) — Thu, 23 Apr 2015 13:23:24 +0000

Просто пинг отправляет 4 запроса. если вписать 1, то вроде как одинаково.

MsgBox, % DllCall("Wininet\InternetCheckConnection", Str, "https://www.microsoft.com/", UInt, FLAG_ICC_FORCE_CONNECTION := 1, UInt, 0)

RunWait, ping.exe www.microsoft.com -n 1,, Hide UseErrorlevel
MsgBox, % !Errorlevel

Re: AHK: Проверка интернет соединения

null@example.com (teadrinker) — Thu, 23 Apr 2015 13:14:01 +0000

Через InternetCheckConnection вроде быстрее. Если есть соединение, она сразу возвращает true. Для сравнения:

MsgBox, % DllCall("Wininet\InternetCheckConnection", Str, "https://www.microsoft.com/", UInt, FLAG_ICC_FORCE_CONNECTION := 1, UInt, 0)

RunWait, ping.exe www.microsoft.com,, Hide UseErrorlevel
MsgBox, % !Errorlevel