Puzzled by _IEAttach issue

[ckelsoe]

Hi All,

I have an issue trying to get _IEAttach to work. Here is the details of the window in IE that I am trying to attach to:

expandcollapse popup

>>>> Window <<<<
Title:  Assign Account Management - Windows Internet Explorer
Class:  IEFrame
Position:   615, 325
Size:   475, 520
Style:  0x16CA0000
ExStyle:    0x00000100
Handle: 0x00051B68

>>>> Control <<<<
Class:  
Instance:   
ClassnameNN:    
Name:   
Advanced (Class):   [CLASS:; INSTANCE:]
ID: 
Text:   
Position:   0, 0
Size:   469, 492
ControlClick Coords:    54, 383
Style:  0x56000000
ExStyle:    0x00000000
Handle: 0x00131EFC

>>>> Mouse <<<<
Position:   57, 408
Cursor ID:  5
Color:  0x5F5FAE

>>>> StatusBar <<<<
1:  Done
2:  
3:  
4:  
5:  
6:  
7:  
8:  
9:  
10: 

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
Assign Account Management - Windows Internet Explorer


>>>> Hidden Text <<<<
Navigation Bar
https://zzzzz.zzzzz.com/efiles/clients/add_new_policy_assignment.asp?pid=4718149&id=11365939&mode=2&edit=true&sid=6&TPC=0&polno=02670949
Address Combo Control
Page Control
Google
Search Combo Control
Search Control
Command Bar
Favorites Command Bar
ITBarHost
Menu Bar
100%
Google Search
Highlight in page
Done
Zoom Level

Also in the HTML the title is: <title>Assign Account Management</title>

Additionally the html "<b>Assign Account Management</b>" is also found in the body of the html.

I have tried the following variations of which none work:

Local $oIE = _IEAttach("Assign Account Management")

Local $oIE = _IEAttach("Assign Account Management","text")

Local $oIE = _IEAttach("Assign Account Management - Windows Internet Explorer","windowtext")

Local $oIE = _IEAttach("Assign Account Management","html")

 

The hwnd changes everytime the window is opened. The URL is unique to the specific client record so I do not think I can look at the URL.

Any thoughts why I cannot get to the actual IE Window?

 

 

[mLipok]

Try this:

$sTITLE = "[REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]"
$hWindowToFind = WinGetHandle($sTITLE)
_IEAttach($hWindowToFind, "HWND")

EDIT: Better example:

Global $sTITLE = "[REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]"

$oIE = _IEAttachToTitle($sTITLE)

Func _IEAttachToTitle($sTITLE)
    $hWindowToFind = WinGetHandle($sTITLE)
    Return _IEAttach($hWindowToFind, "HWND")
EndFunc   ;==>_IEAttachToTitle

Edited August 30, 2013 by mlipok

[ckelsoe]

That did not seem to make a difference. This is what I currently have:

Func _ChangeAssignmentToHouse($PersonValue)
    Global $sTITLE = "[REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]"
    Local $oIE = _IEAttachToTitle($sTITLE)

    $oForm = _IEFormGetObjByName($oIE, "add_new_assignment")
    $oSelect = _IEFormElementGetObjByName($oForm, "PeopleId")
    _IEFormElementOptionSelect($oSelect, $PersonValue, 1, "byText")
    ;_IEFormSubmit($oForm) 

EndFunc

[ckelsoe]

And when I run this code it does return the window

; Create an array of object references to all current browser instances
; The first array element will contain the number of instances found

#include <IE.au3>
#include <Constants.au3>

Local $aIE[1]
$aIE[0] = 0

Local $i = 1, $oIE
While 1
    $oIE = _IEAttach("", "instance", $i)
    MsgBox($MB_SYSTEMMODAL, "The URL", _IEPropertyGet($oIE, "locationurl"))

    If @error = $_IEStatus_NoMatch Then ExitLoop
    ReDim $aIE[$i + 1]
    $aIE[$i] = $oIE
    $aIE[0] = $i
    $i += 1
WEnd

[mLipok]

are You using COM Error Handling ?

can you post messages from this COM Error Handling ?

[ckelsoe]

Sorry - this is the error IE.au3 T3.0-1 Warning from function _IEFormGetObjByName, $_IEStatus_NoMatch (0)

Edited August 30, 2013 by ckelsoe

[mLipok]

I see the bad referring to an object of type Form

try this:

$oForm = _IEGetObjByName($oIE, "add_new_assignment")

EDIT:

"Form" object type, is not part of the Form object , so it is wrong to use:

$oForm = _IEFormGetObjByName($oIE, "add_new_assignment")

Edited August 30, 2013 by mlipok

[ckelsoe]

Ok - I did change the $oForm syntax.

I have added the following code to the project:

Func MyErrFunc($oMyError) 
Local $HexNumber
Local $strMsg

$HexNumber = Hex($oMyError.Number, 8) 
$strMsg = "Error Number: " & $HexNumber & @CRLF 
$strMsg &= "WinDescription: " & $oMyError.WinDescription & @CRLF 
$strMsg &= "Script Line: " & $oMyError.ScriptLine & @CRLF 
MsgBox(0, "ERROR", $strMsg)
SetError(1)
Endfunc

It returns Error Number: 80020009, WinDescription: ExceptionOccurred, Script Line 345. That is not helpful - I do not know what line 345 is as I am including files in the first au3 so I can manage the code.

 

However I did add this code: msgbox(0,"Title",$sTITLE) which returned "[REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]". I removed the quotes and now get the following:

Global $sTITLE = [REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]
Global $sTITLE = [REGEXPTITLE:(?i)(Assign Account Management^ ERROR

Edit: However I see that  "[REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]" is the correct syntax
 

Edited August 30, 2013 by ckelsoe

[mLipok]

Can You use this:

ConsoleWrite("We intercepted a COM Error !" & @CRLF & _
            "Number is: " & $HexNumber & @CRLF & _
            "WinDescription is: " & $oMyError.windescription & @CRLF & _
            "source is: " & $oMyError.source & @CRLF & _
            "description is: " & $oMyError.description & @CRLF & _
            "helpfile is: " & $oMyError.helpfile & @CRLF & _
            "helpcontext is: " & $oMyError.helpcontext & @CRLF & _
            "lastdllerror is: " & $oMyError.lastdllerror & @CRLF & _
            "scriptline is: " & $oMyError.scriptline & @CRLF & _
            "" )

[mLipok]

Ok - I did change the $oForm syntax.

I have added the following code to the project:

I removed the quotes and now get the following:

Global $sTITLE = [REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]

Global $sTITLE = [REGEXPTITLE:(?i)(Assign Account Management^ ERROR

Edit: However I see that  "[REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]" is the correct syntax

 

 

You can not remove qutes when you set string to variable

[ckelsoe]

We intercepted a COM Error !
Number is: 
WinDescription is: Exception occurred.

source is: 
description is: 
helpfile is: 
helpcontext is: 0
lastdllerror is: 0
scriptline is: 345

[mLipok]

Can you post a OuterHtml for element named "add_new_assignment"

[ckelsoe]

expandcollapse popup

<BODY onload=javascript:loadValues(113) aLink=#0000ff link=#0000ff topMargin=10 bgColor=#ffffe1 vLink=#0000ff><!-- Form tag [START]. -->
<FORM method=post name=add_new_assignment action=add_new_assignment.asp>
 
<DIV align=center>
<CENTER>
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD width="100%"></TD></TR>
<TR>
<TD width="100%">
<DIV align=left>
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffffe1>
<TBODY>
<TR>
<TD width=10 colSpan=2 align=left><IMG border=0 src="/images/g-box-topleft.gif" width=10 height=10></TD>
<TD bgColor=#ffffff><IMG border=0 src="/images/g-box-topline.gif" width="100%" height=10></TD>
<TD width=10 colSpan=2 align=right><IMG border=0 src="/images/g-box-topright.gif" width=10 height=10></TD></TR>
<TR>
<TD bgColor=#cccccc width=1><IMG border=0 src="/images/g-box-greyline.gif" width=1 height=20></TD>
<TD bgColor=#ffffff width=9>&nbsp;</TD>
<TD>
<CENTER></CENTER>
<DIV align=center>
<CENTER>
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD vAlign=top width="100%">
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffffff>
<TBODY>
<TR>
<TD noWrap><FONT size=1 face=Verdana><B>Assign Account Management</B> </FONT></TD>
<TD width="100%">
<P align=right><IMG border=0 src="/images/sm-nexsurelogo.gif" width=87 height=24></P></TD></TR><!--RA 03.28.2006 UI-->
<TR>
<TD bgColor=#ffffff height=3 colSpan=2></TD></TR>
<TR>
<TD bgColor=#cccccc height=20 colSpan=2></TD></TR>
<TR>
<TD bgColor=#ffffff height=3 colSpan=2></TD></TR>
<TR>
<TD colSpan=2><FONT size=1 face=verdana>Assign account management by selecting the branch that the responsibility will be handled by. After the branch is selected, Department, Responsibility, and Name will become active. </FONT></TD></TR></TBODY></TABLE><!-- Input [START]. -->
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#ffffff colSpan=2>
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#ffffff>
<TABLE border=0 cellSpacing=0 cellPadding=2 width="100%">
<TBODY>
<TR>
<TD vAlign=top width="25%"><FONT size=1 face=verdana>Branch:</FONT></TD>
<TD width="75%" colSpan=2><SELECT style="WIDTH: 100%; FONT-FAMILY: verdana; FONT-SIZE: 8pt" disabled onchange=javascript:loadValues(this.value) name=BranchId> <OPTION value=0>&nbsp;</OPTION> <OPTION value=99>Future Use</OPTION></SELECT> </TD></TR>
<TR>
<TR>
<TD vAlign=top width="25%"><FONT size=1 face=verdana>Department:</FONT></TD>
<TD width="75%" colSpan=2><SELECT style="WIDTH: 100%; FONT-FAMILY: verdana; FONT-SIZE: 8pt" onchange=javascript:loadUnitValues(this) name=DepartmentEntityId><OPTION id=1 value=1152>Commercial</OPTION><OPTION id=3 value=1154>Benefits</OPTION><OPTION id=4 value=1155>Individual</OPTION><OPTION id=10 value=1158>Operations</OPTION><OPTION id=2 selected value=1153>Personal</OPTION><OPTION id=0 value=1151>Unassigned</OPTION> </SELECT> </TD></TR>
<TR>
<TD vAlign=top width="25%"><FONT size=1 face=verdana>Unit:</FONT></TD>
<TD width="75%" colSpan=2><SELECT style="WIDTH: 100%; FONT-FAMILY: verdana; FONT-SIZE: 8pt" name=UnitId><OPTION selected value=0>Unassigned</OPTION> </SELECT> </TD></TR>
<TR>
<TD vAlign=top width="25%"><FONT size=1 face=verdana>Responsibility:</FONT></TD>
<TD width="75%" colSpan=2><SELECT style="WIDTH: 100%; FONT-FAMILY: verdana; FONT-SIZE: 8pt" name=ResponsibilityId> <OPTION value=6>Executive</OPTION></SELECT></TD></TR>
<TR>
<TD vAlign=top width="25%"><FONT size=1 face=verdana>Name:</FONT></TD>
<TD width="75%" colSpan=2><SELECT style="WIDTH: 100%; FONT-FAMILY: verdana; FONT-SIZE: 8pt" onchange=DetermineCommissionCBStatus(); name=PeopleId><OPTION value=46>first choice   </OPTION> </SELECT> 
<DIV style="DISPLAY: none; FONT-FAMILY: verdana; COLOR: red; FONT-SIZE: 8pt" id=people_err>No valid commission defaults exist for name selected</DIV></TD></TR>
<TR>
<TD vAlign=top width="25%"><FONT size=1 face=verdana>Primary:</FONT></TD>
<TD width="75%" colSpan=2 align=left><INPUT style="FONT-FAMILY: verdana; FONT-SIZE: 8pt" disabled value=1 CHECKED type=checkbox name=Primary> </TD></TR>
<TR>
<TD vAlign=top width="25%"><FONT size=1 face=verdana>Update "Other" in Info:</FONT></TD>
<TD width="10%" align=left><INPUT style="FONT-FAMILY: verdana; FONT-SIZE: 8pt" CHECKED type=checkbox name=Commissions> </TD>
<TD width="65%" align=left>
</TD></TR>
<TR>
<TD colSpan=3><FONT size=1 face=verdana>&nbsp;</FONT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD bgColor=#ffffff colSpan=2>
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD>
<TABLE border=0 cellSpacing=1 cellPadding=2 width="100%">
<TBODY>
<TR>
<TD><IMG border=0 src="/images/g-box-bottomline.gif" width="100%" height=9></TD>
<TR>
<TD></TD></TR>
<TR>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD bgColor=#ffffff><FONT size=1 face=verdana>&nbsp;</FONT></TD></TR>
<TR>
<TD bgColor=#ffffff height=3 colSpan=2></TD></TR>
<TR>
<TD bgColor=#cccccc height=13 colSpan=2></TD></TR>
<TR>
<TD bgColor=#ffffff height=3 colSpan=2></TD></TR>
<TR>
<TD bgColor=#ffffff width="100%" colSpan=2>
<DIV align=right>
<TABLE border=0 cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD align=right><INPUT style="WIDTH: 60px; FONT-FAMILY: Verdana; COLOR: #000000; FONT-SIZE: 8pt" onclick=javascript:saveAssignment(); value=Save type=button name=save> <INPUT style="WIDTH: 60px; FONT-FAMILY: Verdana; COLOR: #000000; FONT-SIZE: 8pt" onclick=javascript:window.close() value=Cancel type=button name=cancel> </TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE></TD></TR></CENTER></TBODY></TABLE></DIV></TD>
<TD bgColor=#ffffff width=9>&nbsp;</TD>
<TD bgColor=#cccccc width=1><IMG border=0 src="/images/g-box-greyline.gif" width=1 height=20></TD></TR>
<TR>
<TD width=10 colSpan=2 align=left><IMG border=0 src="/images/g-box-bottomleft.gif" width=10 height=10></TD>
<TD bgColor=#ffffff><IMG border=0 src="/images/g-box-bottomline.gif" width="100%" height=10></TD>
<TD width=10 colSpan=2 align=right><IMG border=0 src="/images/g-box-bottomright.gif" width=10 height=10></TD></TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD width="100%"></TD></TR></TBODY></TABLE></DIV></CENTER></FORM></BODY>

[mLipok]

try this:

#include <IE.au3>
Global $sTITLE = "[REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]"
Global $oIE
_test()

Func _test()
    ConsoleWrite('$sTITLE = ' & $sTITLE)
    If WinExists($sTITLE) = 0 Then
        ConsoleWrite('WinExists($sTITLE) = 0' & @CRLF)
        $oIE = _IECreate("http://www.google.com")
    Else
        ConsoleWrite('WinExists($sTITLE) = 1' & @CRLF)
        $oIE = _IEAttachToTitle($sTITLE)
    EndIf
    ConsoleWrite('IsObj($oIE) = ' & IsObj($oIE) & @CRLF)
    $oForms = _IEFormGetCollection($oIE)
    ConsoleWrite('IsObj($oForms) = ' & IsObj($oForms) & @CRLF)
    For $oForm In $oForms
        ConsoleWrite('$oForm.name = ' & $oForm.name & @CRLF)
        ConsoleWrite('$oForm.id = ' & $oForm.id & @CRLF)
    Next
EndFunc   ;==>_test

Func _IEAttachToTitle($sTITLE)
    $hWindowToFind = WinGetHandle($sTITLE)
    Return _IEAttach($hWindowToFind, "HWND")
EndFunc   ;==>_IEAttachToTitle

and give me console output

[ckelsoe]

Ok that finds the form, etc. I will go back through my code to see what is different:

$sTITLE = [REGEXPTITLE:(?i)(Assign Account Management.*Internet Explorer.*)]WinExists($sTITLE) = 1
IsObj($oIE) = 1
IsObj($oForms) = 1
$oForm.name = add_new_assignment
$oForm.id = 0

[ckelsoe]

Ok - I can get the code to work fine with the ResponsibilityId field. However it does not work with the next field - the PeopleID field.

[ckelsoe]

Well now I am getting to the form but cannot get the combo box to change using _IEFormElementOptionSelect. It has no affect on the combo box. I am trying to send text in this format: "Lastname, Firstname". The values in the list are in the same format.

However, I can get it to change to a blank value using _IEFormElementSetValue

I did try _IEFormElementOptionSelect using "byIndex" which seems to work. I just do not have that value - just the LastName, FirstName value. So I would really like to figure out why byText is not working as expected. Is it the comma perhaps?

[mLipok]

show: what You got now, and how You using _IEFormElementOptionSelect

Edited September 1, 2013 by mlipok