Waiting And error after specific times ( Solved )

[abdulrahmanok]

Hi all ,

This is my try

Example()

Func Example()
  
 
 $a  = WinWaitActive("[CLASS:Notepad]", "", 10)

$var=0
While 1 
    
If $a = True then

ConsoleWrite("OK")
ExitLoop
Else

$var=+1
Sleep(2000)

endif

If $var=2 then

Msgbox(0,"","Waited 4 Sec ! Your Pc Is to slow")
EndIf
WEnd

I Hope You understood what i want...

Solved By @water : 

#include <MsgBoxConstants.au3>

Local $iWaitTime = TimerInit()                       ; Initiate the timer
$hNotepad = WinWaitActive("[CLASS:Notepad]", "", 20) ; Wait for a maximum of 20 seconds
If $hNotepad = 0 Then
    MsgBox($MB_ICONERROR, "Error", "Notepad is not active!")
Else
    MsgBox($MB_ICONINFORMATION, "Error", "Notepad is active!" & @CRLF & "It took " & Round(TimerDiff($iWaitTime)/1000, 2) & " seconds to process.")
EndIf

Edited October 31, 2016 by abdulrahmanok

[water]

And your question is?

[abdulrahmanok]

What i want is :

wait for notepad

if notepad not open then wait 2000 and check again if notepad avalible 

after waiting for 4 or 6 seconds then close program or notify me .

[AutoBert]

Move this line:

$a  = WinWaitActive("[CLASS:Notepad]", "", 10)

at top of loop will check until found. But i can't see any line where notepad is started.

[water]

WinWaitactive in your script already waits for 10 seconds.
I would use something like this. It waits for a maximum of 6 seconds and then displays an error message if Notepad has not been active.

#include <MsgBoxConstants.au3>

$hNotepad = WinWaitActive("[CLASS:Notepad]", "", 6)
If $hNotepad = 0 Then
    MsgBox($MB_ICONERROR, "Error", "Notepad is not active!")
Else
    MsgBox($MB_ICONINFORMATION, "Error", "Notepad is active!")
EndIf

 

Edited October 31, 2016 by water

[abdulrahmanok]

Its already on top !  and I want only check for notepad because I will use this code with a lot other ways.

Edited October 31, 2016 by abdulrahmanok

[water]

Why do you want to check for the window yourself?
WinWaitActive already provides a way to wait until the window appears or until the time limit has expired (as I posted in #5 above).
 

[abdulrahmanok]

@water

WinwaitActive is just example and you code will just wait for one time only ..

this is why I need code :

IF WinWait("Student Employment Time Attendance - Internet Explorer","") Then ;;;;;;;;;;;;
 $oLinks = _IETagNameGetCollection($oIE, "input")
For $oLink In $oLinks
    If String($oLink.type) = "submit" And String($oLink.value) = " Next" Then
          _IEAction($oLink, "click")
          ExitLoop
    EndIf
Next

I want add

else :

sleep (2000) 

and check for WinWait Again

[water]

You need to give more information.
How often do you want to check for the Window to appear (2 times, 10 times ...)? What would you do if the window doesn't appear by then? Exit the script?

[abdulrahmanok]

Check Until Found , And msgbox If  window doesn't Appear

Edited October 31, 2016 by abdulrahmanok

[water]

As you want to check the processing time you could use something like this:

#include <MsgBoxConstants.au3>

Local $iWaitTime = TimerInit()                       ; Initiate the timer
$hNotepad = WinWaitActive("[CLASS:Notepad]", "", 20) ; Wait for a maximum of 20 seconds
If $hNotepad = 0 Then
    MsgBox($MB_ICONERROR, "Error", "Notepad is not active!")
Else
    MsgBox($MB_ICONINFORMATION, "Error", "Notepad is active!" & @CRLF & "It took " & Round(TimerDiff($iWaitTime)/1000, 2) & " seconds to process.")
EndIf

 

[abdulrahmanok]

Ty will Try this and inform you ...

[AutoBert]

32 minutes ago, abdulrahmanok said:

Its already on top !

It's outside loop, i mean inside at first line after while.

[abdulrahmanok]

@water  Ty Very much Worked exactly like what I want 

@AutoBert Tried to put it inside while but nothing ... 

 

[water]