Серый форум — Восстановление подключения Интернет при обрыве связи

Re: Восстановление подключения Интернет при обрыве связи

null@example.com (teadrinker) — Mon, 31 Aug 2015 16:35:12 +0000

aist51, сначала выполняем требования модератора, затем продолжаем пользоваться форумом.

Re: Восстановление подключения Интернет при обрыве связи

null@example.com (teadrinker) — Mon, 31 Aug 2015 10:13:34 +0000

mixaenpcm, на будущее, ответы в темах до выполнения требований модератора запрещены. В следующий раз буду удалять.

Re: Восстановление подключения Интернет при обрыве связи

null@example.com (mixaenpcm) — Mon, 31 Aug 2015 10:00:19 +0000

Я делал подобную вещь (XP, 7) периодическим пингованием какого-либо общедоступного сервера или сайта (желательно максимально безотказный типа гугла, яндекса и т.п.):
1. Пингую с сохранением результата во временном файле.
2. Считываю содержимое файла с результатами пинга.
3. Анализирую. Правильный пинг - значит интернет есть. Неправильный - нет.


Pinging ya.ru [93.158.134.3] with 32 bytes of data:
Reply from 93.158.134.3: bytes=32 time=6ms TTL=57
Reply from 93.158.134.3: bytes=32 time=6ms TTL=57
Reply from 93.158.134.3: bytes=32 time=6ms TTL=57
Reply from 93.158.134.3: bytes=32 time=8ms TTL=57

Считываю третью строку результатов пинга (первая - пустая).
Из нескольких методов определения есть ли пинг или нет у меня получился следующий: если в строке есть текст "bytes=", значит пинг успешен (интернет есть). Если же отсутствует, то нужно подключаться.


; Результирующий файл буду писать в папку со скриптом (A_WorkingDir)
fName:=A_WorkingDir . "\ping.txt"
; команду обязательно заключаем в кавычки
cmd:="""ping ya.ru > " . fName . """"
; запускаем с ожиданием завершения, скрывая окно пинга чтоб не надоедало
runwait,%comspec% /c %cmd%,,Hide 
; читаем 3-ю строку
FileReadLine, s, %fName%, 3
; ищем текст
n:=InStr(s, "bytes=")
MsgBox %s% %n%
if (n>0)
  MsgBox Yesss!!!
else
  MsgBox Check internet!

Жаль, что не удается обойтись без записи файла. Лучше-б сразу в переменную загнать, но не знаю как.

Re: Восстановление подключения Интернет при обрыве связи

null@example.com (teadrinker) — Sun, 30 Aug 2015 21:49:05 +0000

Перенёс, куда положено, теперь ознакомьтесь с этой темой, отредактируйте свой пост.

Re: Восстановление подключения Интернет при обрыве связи

null@example.com (ypppu) — Sun, 30 Aug 2015 17:18:59 +0000

aist51 пишет:

Извините! Я только сейчас обратил внимание, что это Форум по LangMF.

1.1. "Серый форум" - это добровольное сообщество людей, обсуждающих проблемы программирования на различных макроязыках и в скриптовых средах. Это сообщество людей, помогающих друг другу, сообщество профессионалов или пытающихся стать таковыми.

Re: Восстановление подключения Интернет при обрыве связи

null@example.com (aist51) — Sun, 30 Aug 2015 15:19:25 +0000

Извините! Я только сейчас обратил внимание, что это Форум по LangMF.
Перенесите, Пожалуйста, куда положено, и где это находится!?
Я хотел, было, откорректировать свой, так называемый, скрипт.

Извините ещё раз, но, ведь, у Вас:
"Разработка AHK-скриптов:"
И в других темах просмотрел сообщения, упоминается AutoHotkey.

Re: Восстановление подключения Интернет при обрыве связи

null@example.com (teadrinker) — Fri, 28 Aug 2015 15:06:06 +0000

aist51, если вопрос по AHK, зачем вы разместили его в этой ветке?

Восстановление подключения Интернет при обрыве связи

null@example.com (aist51) — Fri, 28 Aug 2015 14:08:30 +0000

При подключенном, через USB-модем, интернете, на столе присутствует окно "Коннект Менеджер", в котором имеется клавиша с текстом "Отключить".
При обрыве связи, интернет отключается, а эта клавиша становится с текстом "Подключить".
По ней я и щёлкаю мышкой для восстановления подключения интернета.
Можно ли эту процедуру выполнять автоматически с помощью скрипта АНК?

; Connect Checker 2
; Всё работает ПОЧТИ нормально!?
; Включает и отключает с интервалом 1 минута.
; Но, Как исключить отключение?
; Координаты клавиши не меняются.
; В окне на клавише текст изменяется,
; а где и как это обнаружить программно не понимаю!?

F10::
Loop
{
#WinActivateForce
WinActivate, Коннект Менеджер
ControlFocus, 435, 211, Коннект Менеджер
MouseClick, Left, 435, 211 ; это включает и отключает
Sleep 60000
}
Return

+F10:: ; Приостановка по Shift + F10.
If not Stop
{
Stop := True
Pause
}
Return

F12:: ; Возобновление по F12.

If Stop
{
Stop := False
Pause
}
Return

Специалисты помогите, Пожалуйста!