WinWait and ControlClick

[dleonard]

I am attempting to write my first AutoIt script to detect when a window is present and then click the OK button. Testing has been difficult so I'm looking for some validation of my code from the experts. Am I doing it right?

 

Screenshot of window

 

Window Info

>>>> Window <<<<

Title: SIEMENS Soarian® Automatic Logoff -- Webpage Dialog

Class: Internet Explorer_TridentDlgFrame

Position: 665, 450

Size: 356, 152

Style: 0x96C80000

ExStyle: 0x00000101

Handle: 0x00DA0706

 

>>>> Control <<<<

Class: Internet Explorer_Server

Instance: 1

ClassnameNN: Internet Explorer_Server1

Name:

Advanced (Class): [CLASS:Internet Explorer_Server; INSTANCE:1]

ID:

Text:

Position: 0, 0

Size: 350, 120

ControlClick Coords: 281, 62

Style: 0x56000000

ExStyle: 0x00000000

Handle: 0x0080078C

 

>>>> Mouse <<<<

Position: 949, 541

Cursor ID: 0

Color: 0xE8EFFA

 

>>>> StatusBar <<<<

 

>>>> ToolsBar <<<<

 

>>>> Visible Text <<<<

 

 

>>>> Hidden Text <<<<

 

 

Code

#NoTrayIcon

#include <IE.au3>

 

; Wait for logoff window, then click on OK

WinWait("SIEMENS Soarian® Automatic Logoff -- Webpage Dialog")

ControlClick("SIEMENS Soarian® Automatic Logoff -- Webpage Dialog", "", "[CLASS:Button; TEXT:OK; Instance:1;]")

 

[JLogan3o13]

Hi, dleonard. Are you simply looking for someone to say "yup it looks right",  or are you experiencing an issue closing the window?

[dleonard]

Hi, dleonard. Are you simply looking for someone to say "yup it looks right",  or are you experiencing an issue closing the window?

I currently don't have access to the application to perform testing so I was looking for someone to validate that my code should execute successfully. Assuming it will work, is it the best method?

[JLogan3o13]

Given what little info you have on the app, I would say it is definitely the easiest method.

[mLipok]

Try this:

Local $sYourTitle = 'SIEMENS Soarian® Automatic Logoff -- Webpage Dialog'
Local $sRegExpTitle = '[REGEXPTITLE:(?i)SIEMENS.*?Webpage.*?Dialog]'
Local $sTitle = WinGetTitle($sRegExpTitle)
ConsoleWrite(StringToBinary($sYourTitle) & @CRLF)
ConsoleWrite(StringToBinary($sTitle) & @CRLF)

and give us console output

EDIT: script correction

Edited November 20, 2013 by mlipok

[l3ill]

Compile this and run it and you can practice:  Emulates your message box

_box()
Func _box()
MsgBox(0, "SIEMENS Soarian® Automatic Logoff -- Webpage Dialog", "Click OK to stop LogOff")
        Sleep(10000)
        _box()
EndFunc   ;==>_box

Your Winwait works but only one time, if you need to keep doing said action you will have to loop it.

Bill

Edited November 20, 2013 by billo

[mLipok]

@billo

Although it is worth a try, it may not be that simple.

 

I suspect that the name used are white characters are not spaces.

From there the problem.

 

For example look here:

And that's why I suggested the test using the function: StringToBinary()

[jdelaney]

Although you'll never meet the max recursion, your general idea is flawed, billo.

You should have a loop calling the function, and not have the function calling itself.

While True
    If _box() > 1 Then Exit  
WEnd
Func _box()
     Sleep(5000)
    Return MsgBox(1,"SIEMENS Soarian® Automatic Logoff -- Webpage Dialog", "Click OK to stop LogOff")
EndFunc

Edited November 21, 2013 by jdelaney

[l3ill]

Thanks for the update!

 and not have the function calling itself.

Sounds familiar...

[gruntydatsun]

if it's just a little stay awake program, maybe adlib?

#include <IE.au3>

AdlibRegister("dodgeLogoff",3500)

Func dodgeLogoff()
    local $sTitle = "Local $sYourTitle = 'SIEMENS Soarian® Automatic Logoff -- Webpage Dialog'"
    Local $oIE = _IEAttach($sTitle)
    if @error = 0 then
            ;determine button and use _IEFormSubmit or something to submit
    EndIf
EndFunc

[dleonard]

Try this:

Local $sYourTitle = 'SIEMENS Soarian® Automatic Logoff -- Webpage Dialog'
Local $sRegExpTitle = '[REGEXPTITLE:(?i)SIEMENS.*?Webpage.*?Dialog]'
Local $sTitle = WinGetTitle($sRegExpTitle)
ConsoleWrite(StringToBinary($sYourTitle) & @CRLF)
ConsoleWrite(StringToBinary($sTitle) & @CRLF)

and give us console output

EDIT: script correction

I hope this is what you mean by console output? This was generated WITHOUT the log off window open.

0x5349454D454E5320536F617269616EAE204175746F6D61746963204C6F676F6666202D2D2057656270616765204469616C6F67

0x30

[mLipok]

 

I hope this is what you mean by console output? This was generated WITHOUT the log off window open.

0x5349454D454E5320536F617269616EAE204175746F6D61746963204C6F676F6666202D2D2057656270616765204469616C6F67

0x30

 

 

Unfortunately, I was interested in the results With opened window.

[dleonard]

Unfortunately, I was interested in the results With opened window.

 

Here are the results of your code from the console, with the window open.

Note - I mistakenly ran it twice.

0x5349454D454E5320536F617269616EAE204175746F6D61746963204C6F676F6666202D2D2057656270616765204469616C6F67

0x5349454D454E5320536F617269616EAE204175746F6D61746963204C6F676F6666202D2D2057656270616765204469616C6F67

 

What does this mean?

[mLipok]

0x5349454D454E5320536F617269616EAE204175746F6D61746963204C6F676F6666202D2D2057656270616765204469616C6F67

0x5349454D454E5320536F617269616EAE204175746F6D61746963204C6F676F6666202D2D2057656270616765204469616C6F67

 

What does this mean?

 

They are the same.

---

try this

WinWait("SIEMENS Soarian® Automatic Logoff -- Webpage Dialog")
TrayTip('Test','Logoff Window appeared',100)
ControlClick("SIEMENS Soarian® Automatic Logoff -- Webpage Dialog", "", "[CLASS:Button; TEXT:OK; Instance:1;]")

I think Logoff window appears, WinWait catch that fact, but ControlClick() can't  click because it is not a normal Button.

Is it     IE GUI ?  Am I right?

If so, try something like this:

 

#include <ie.au3>

Local $hLogOff = WinWait("SIEMENS Soarian® Automatic Logoff -- Webpage Dialog")
If IsHWnd($hLogOff) = 0 Then
    TrayTip('$hLogOff', 'Is not HWnd', 100)
Else
    $oIELogOff = _IEAttach($hLogOff, 'hwnd')
    ConsoleWrite(@CRLF)
    ConsoleWrite('===============================================')
    ConsoleWrite(@CRLF)
    $sHTML = _IEPropertyGet($oIELogOff, "outerhtml")
    ClipPut($sHTML)
    ConsoleWrite($sHTML)
    ConsoleWrite(@CRLF)
    ConsoleWrite('===============================================')
    ConsoleWrite(@CRLF)
EndIf

Based on this you can use something like this:

_IEAction ($oButtonOK, "click")

 

Edit: small script correction

Edited November 21, 2013 by mlipok

[bogQ]

yes, it is IE GUI (a webpage dialog) so _IEAction shud work if his script isn't paused with no problems, ControlClick can work 2 but only on ControlClick Coords instead

Edited November 21, 2013 by bogQ

[mLipok]

ControlClick can work 2 but only on ControlClick Coords instead

 

In fact, I thought about it too, but I noticed that the OP uses

#include <IE.au3>

So it seemed to me to be a natural choice to use _IEAction

[dleonard]

#include <ie.au3>

Local $hLogOff = WinWait("SIEMENS Soarian® Automatic Logoff -- Webpage Dialog")
If IsHWnd($hLogOff) = 0 Then
    TrayTip('$hLogOff', 'Is not HWnd', 100)
Else
    $oIELogOff = _IEAttach($hLogOff, 'hwnd')
    ConsoleWrite(@CRLF)
    ConsoleWrite('===============================================')
    ConsoleWrite(@CRLF)
    $sHTML = _IEPropertyGet($oIELogOff, "outerhtml")
    ClipPut($sHTML)
    ConsoleWrite($sHTML)
    ConsoleWrite(@CRLF)
    ConsoleWrite('===============================================')
    ConsoleWrite(@CRLF)
EndIf

Console output for the code above is...

 

--> IE.au3 V2.4-0 Warning from function _IEAttach, $_IEStatus_NoMatch

 

===============================================

--> IE.au3 V2.4-0 Error from function _IEPropertyGet, $_IEStatus_InvalidDataType

0

===============================================

 

 

Also, the following code did not click on the OK button to interrupt the log off...

#include <IE.au3>

AdlibRegister("dodgeLogoff",3500)

WinWait("SIEMENS Soarian® Automatic Logoff -- Webpage Dialog")
dodgeLogoff()

Func dodgeLogoff()
    local $sTitle = "Local $sYourTitle = 'SIEMENS Soarian® Automatic Logoff -- Webpage Dialog'"
    Local $oIE = _IEAttach($sTitle)
    If @error = 0 then
    _IEAction ($oButtonOK, "click")
    EndIf
EndFunc

[mLipok]

First problem is here:

 

Console output for the code above is...

 

--> IE.au3 V2.4-0 Warning from function _IEAttach, $_IEStatus_NoMatch

 

===============================================

--> IE.au3 V2.4-0 Error from function _IEPropertyGet, $_IEStatus_InvalidDataType

0

===============================================

 

 

 

Second problem you can't just use _IEAction like that:

 

 

 

#include <IE.au3>

AdlibRegister("dodgeLogoff",3500)

WinWait("SIEMENS Soarian® Automatic Logoff -- Webpage Dialog")
dodgeLogoff()

Func dodgeLogoff()
local $sTitle = "Local $sYourTitle = 'SIEMENS Soarian® Automatic Logoff -- Webpage Dialog'"
Local $oIE = _IEAttach($sTitle)
If @error = 0 then
    _IEAction ($oButtonOK, "click")
EndIf
EndFunc

 

You must get a reference to this IE Object - I mean to this button.

But for this you must resolve first problem.

Like I say "thinking does not hurt, but it takes time"

So you must wait, for my or others additional hints

[mLipok]

Change:

$oIELogOff = _IEAttach($hLogOff, 'hwnd')

to this:

$oIELogOff = _IEAttach($hLogOff, 'DialogBox')

 

 

Be careful

before pasting, see the "outerHTML" does not contain sensitive data.

[gruntydatsun]

you're not getting a title match, I'd settle for a partial match and leave out the 'circled R' symbol.

local $sTitle = "Automatic Logoff -- Webpage Dialog"
    Local $oIE = _IEAttach($sTitle,"WindowTitle")

Post the html behind that page and someone will help you.