Func ActivirovatEVE()
;~ writelog("Начато выполнение функции ActivirovatEVE()")
If ProcessExists("DWWIN.exe") Then
$PID = ProcessExists("DWWIN.exe")
ProcessClose($PID)
Sleep(3000)
EndIf
If ProcessExists("ExeFile.exe") Then
If WinExists("EVE") Then
If Not WinActive("EVE") Then
WinActivate("EVE")
Sleep(1000)
If Not WinActive("EVE") Then
WinActivate("EVE")
EndIf
EndIf
;~ WinWaitActive("EVE", "", 1000)
WinWaitActive("EVE")
EndIf
EndIf
;~ writelog("Конец выполнение функции ActivirovatEVE()")
EndFunc ;==>ActivirovatEVE
Func proverkavstatusaclienta()
;~ writelog("******* Начато выполнение функции proverkavstatusaclienta")
$kill = 0
ActivirovatEVE()
;~ writelog("начало выполнения проверки")
If ProcessExists("ExeFile.exe") Then
;~ $statusprogrammi = 1
alertwindow()
If WinExists("EVE") Then
$WinPos = WinGetPos("EVE")
;~ If $WinPos[0] > 0 Or ButtonLocator(123, 18, $ButPos, $xbutonpodkluchenia,$Ybutonpodkluchenia, 150, 25)=1 Then
If $WinPos[0] > 0 Then
$statusclienta = 0
;~ alertwindow()
$PID = ProcessExists("ExeFile.exe")
ProcessClose($PID)
$file = FileOpen("istoria.txt", 1)
FileWriteLine($file, "" & @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC & " Клиент отвалился!1" & @CRLF)
FileClose($file)
Else
If ButtonLocator(123, 18, $ButPos, $xbutonpodkluchenia,$Ybutonpodkluchenia, 150, 25)=1 Then
$statusclienta = 0
Else
$statusclienta = 1
EndIf
EndIf
Else
Sleep(60000)
If WinExists("EVE") Then
$WinPos = WinGetPos("EVE")
alertwindow()
If $WinPos[0] > 0 Then
$statusclienta = 0
;~ $PID = ProcessExists("ExeFile.exe")
;~ ProcessClose($PID)
$file = FileOpen("istoria.txt", 1)
FileWriteLine($file, "" & @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC & " Клиент отвалился!2" & @CRLF)
FileClose($file)
Else
If ButtonLocator(123, 18, $ButPos, $xbutonpodkluchenia,$Ybutonpodkluchenia, 150, 25)=1 Then
$statusclienta = 0
Else
$statusclienta = 1
EndIf
EndIf
Else
;~ $PID = ProcessExists("ExeFile.exe")
;~ ProcessClose($PID)
$statusclienta = 0
$statusprogrammi = 0
$kill = 1
EndIf
EndIf
;~ If $kill = 0 Then $statusprogrammi = 1
Else
$statusprogrammi = 0
$statusclienta = 0
$file = FileOpen("istoria.txt", 1)
FileWriteLine($file, "" & @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC & " Рухнула программа - ExeFile.exe не найден" & @CRLF)
FileClose($file)
EndIf
;~ writelog("Статус клиента="&$statusclienta)
;~ writelog("******* Конец выполнение функции proverkavstatusaclienta")
EndFunc ;==>proverkavstatusaclienta
)
