2 цикла в одном скрипте (While...WEnd)

[CRD]

Друзья, подскажите, как использовать 2 цикла в одном скрипте. Первый срабатывает, второй не работает ((( Или так нелья ?

 

[hedji]

Код покажите или задание поясните.
В общем случае: выход из первого цикла по условию.

 

[CRD]

Для наглядности взял 2 скрипта, которые мне написали на форуме и скрестил. Вот мой код:

Global $interface = '"Беспроводная сеть"'
Global $wifipoints = '"Office112"'
While 1
    If InetGetSize("http://www.ya.ru/") = 0 Then
        RunWait('netsh.exe wlan disconnect interface=' & $interface, '', @SW_HIDE)
        Sleep(1000)
        RunWait('netsh.exe wlan connect name=' & $wifipoints & ' interface=' & $interface, '', @SW_HIDE)
        Sleep(4000)
    EndIf
WEnd

While Sleep(250)
    If _Timer_GetIdleTime() > 30000 Then
        If ProcessExists("notepad.exe") Then ProcessClose("notepad.exe")
        If Not ProcessExists("TeamViewer.exe") Then Run("TeamViewer.exe")
    Else
        If ProcessExists("TeamViewer.exe") Then ProcessClose("TeamViewer.exe")
        If Not ProcessExists("notepad.exe") Then Run("notepad.exe")
    EndIf
WEnd

Идея такова, чтоб если комп находился в режиме простоя запускалась тимка, если за компом я работаю, включается другое приложение ... Но не хочет запускать ни тимку, ни блокнот (((

Но соединение с сетью реанимирует ...


Добавлено:

Сообщение автоматически объединено: 16 Апр 2018

Попробовал так:

#include <Timers.au3>
#include <Date.au3>

AdlibRegister("Reconnect", 30000) ; каждые 30 секунд вызываем функцию Reconnect
Sleep(3000) ; в течение 3 сек
Exit

Func Reconnect()
Global $interface = '"Беспроводная сеть"'
Global $wifipoints = '"Office112"'
    If InetGetSize("http://www.ya.ru/") = 0 Then
        RunWait('netsh.exe wlan disconnect interface=' & $interface, '', @SW_HIDE)
        Sleep(1000)
        RunWait('netsh.exe wlan connect name=' & $wifipoints & ' interface=' & $interface, '', @SW_HIDE)
        Sleep(4000)
    EndIf
EndFunc

While Sleep(250)
    If _Timer_GetIdleTime() > 30000 Then
        If ProcessExists("notepad.exe") Then ProcessClose("notepad.exe")
        If Not ProcessExists("TeamViewer.exe") Then Run("TeamViewer.exe")
    Else
        If ProcessExists("TeamViewer.exe") Then ProcessClose("TeamViewer.exe")
        If Not ProcessExists("notepad.exe") Then Run("notepad.exe")
    EndIf
WEnd

Чудо не произошло (((

 

[Tempo]

#include <Timers.au3>
#include <Date.au3>

AdlibRegister("_Reconnect", 30000)

While Sleep(250)
	If _Timer_GetIdleTime() > 30000 Then
		If ProcessExists("notepad.exe") Then ProcessClose("notepad.exe")
		If Not ProcessExists("TeamViewer.exe") Then Run("TeamViewer.exe")
	Else
		If ProcessExists("TeamViewer.exe") Then ProcessClose("TeamViewer.exe")
		If Not ProcessExists("notepad.exe") Then Run("notepad.exe")
	EndIf
WEnd

Func _Reconnect()
	Local $sInterface = '"Беспроводная сеть"'
	Local $sWifipoints = '"Office112"'
	If Not InetGetSize("http://www.ya.ru/") Then ;Ping("http://www.ya.ru/")?
		RunWait('netsh.exe wlan disconnect interface=' & $sInterface, '', @SW_HIDE)
		Sleep(1000)
		RunWait('netsh.exe wlan connect name=' & $sWifipoints & ' interface=' & $sInterface, '', @SW_HIDE)
		Sleep(4000)
	EndIf
EndFunc   ;==>_Reconnect

 

[CRD]

Tempo, теперь программы запускает, но соединение не восстанавливает (((

И не очено понял твой комментарий с пингом ?

 

[slowhd]

просто под один цикл вбей

Global $interface = '"Беспроводная сеть"'
Global $wifipoints = '"Office112"'
While 1
    If InetGetSize("http://www.ya.ru/") = 0 Then
        RunWait('netsh.exe wlan disconnect interface=' & $interface, '', @SW_HIDE)
        Sleep(1000)
        RunWait('netsh.exe wlan connect name=' & $wifipoints & ' interface=' & $interface, '', @SW_HIDE)
        Sleep(4000)
    EndIf
 Sleep(250)
    If _Timer_GetIdleTime() > 30000 Then
        If ProcessExists("notepad.exe") Then ProcessClose("notepad.exe")
        If Not ProcessExists("TeamViewer.exe") Then Run("TeamViewer.exe")
    Else
        If ProcessExists("TeamViewer.exe") Then ProcessClose("TeamViewer.exe")
        If Not ProcessExists("notepad.exe") Then Run("notepad.exe")
    EndIf
WEnd

 

[CRD]

Разобрался. Благодарю всех за помощь :beer: