$inet1="Путь к ярлыку итернета1"
$inet2="Путь к ярлыку итернета2"
While 1
Sleep(100)
If @HOUR=8 And @MIn=0 Then ;8 утра.. смена интернета
Run($inet2)
Sleep(1000)
ControlClick("Состояние - ", "", "[CLASS:Button; TEXT:Отключить]");отключаемся от интернета 2
Sleep(10000);ждем отключения
Run($inet1);поключаем интернет 1
EndIf
If @HOUR=17 And @MIn=0 Then ;5 часов.. смена интернета
Run($inet1)
Sleep(1000)
ControlClick("Состояние - ", "", "[CLASS:Button; TEXT:Отключить]");отключаемся от интернета 1
Sleep(10000);ждем отключения
Run($inet2);поключаем интернет 2
EndIf
If Not Ping("www.AutoItScript.com", 666) Then ;дисконнект
If @HOUR>=8 And @HOUR<17 Then
Run($inet1)
sleep(15000)
If Not Ping("www.AutoItScript.com", 666) Then Run($inet2);если не работает инет1 пробуем второй
Else
Run($inet2)
sleep(15000)
If Not Ping("www.AutoItScript.com", 666) Then Run($inet2);если не работает инет2 пробуем первый
EndIf
WEnd