Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   [решено] Цикл пингует ПК через промежуток времени (http://forum.oszone.net/showthread.php?t=241029)

HFShak 21-08-2012 11:58 1973887

Цикл пингует ПК через промежуток времени
 
Добрый день!

Подскажите, где ошибка? Первый проход файл создается правильно, как только $i увеличивается на 1, цикл while не работает...

Код:

#include <Date.au3>
$file = FileOpen("X:\pc1.txt", 0)

; Start

For $i = 50 To 59
  ConsoleWrite("i = " & $i & @CRLF)
  _ScheduleStart_Proc("11:" & $i & ":00")
  While 1
          $line = FileReadLine($file)
          If @error = -1 Then ExitLoop
          $P = Ping($line, 10) ; Провека доступности узла посредсвом ICMP запросов
                If $P = 0 Then
                        $a = "Недоступен"
                EndIf
                If $P > 0 Then
                        $a = "Доступен  "
                EndIf
          FileWrite("X:\Ping\" & $i & "_ping_log.txt", $line & @TAB & "=" & @TAB & $a & @CRLF)
  Wend
Next


FileClose($file)


; Functions
Func _ScheduleStart_Proc($sStartTime)
  While 1
          If _NowTime() = $sStartTime Then Return 1
          ConsoleWrite(_NowTime() & @CRLF)
          Sleep(1000)
  WEnd
EndFunc


HFShak 21-08-2012 14:32 1973971

Ошибку понял.
Из-за того, что файл уже был открыт..


Время: 19:30.

Время: 19:30.
© OSzone.net 2001-