An Odd Error/Bug (IE.au3)

[Wombat]

Alright, so I'm automating the opening, and navigation to two addresses with IE10

I'm using this code:

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=ScreenNavTool.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

Opt("GUIOnEventMode", 1)
Opt("GUICloseOnEsc", 1)
Opt("MouseCoordMode", 2)
Opt("TrayIconHide", 1)

HotKeySet("{ESC}", "MainGUIClose")


Global $Taddress = "REDACTED"
Global $PLaddress = @ScriptDir & "\index.html"
Global $MouseOriginX=@DesktopWidth-13
Global $MouseOriginY=@DesktopHeight-28
Global $MouseAct=False
$w=1

$oIE = _IECreate ($Taddress)
_IEPropertySet( $oIE, "theatermode", True)
_IEPropertySet( $oIE, "toolbar", False)

While 1

    $pos = MouseGetPos()

    if $w=1 then
        $x=$pos[0]+1
        $y=$pos[1]+1
        $w=0
    else
        $x=$pos[0]-1
        $y=$pos[1]-1
        $w=1
    EndIf

    MouseMove($x, $y)

    If Not WinExists("[CLASS:IEFrame]") Then MainGUIClose()

    _Tickets()
WEnd

Func _Tickets()
    _IENavigate($oIE, $Taddress, 0)
    Sleep(30000)
    _PL()
EndFunc

Func _PL()
    _IENavigate($oIE, $PLaddress, 0)
    If $MouseAct=False Then
        MouseMove(@DesktopWidth/2, @DesktopHeight/2)
        Sleep(100)
        MouseClick("")
        Sleep(100)
        MouseMove(@DesktopWidth-25, @DesktopHeight-5)
        $MouseAct=True
    EndIf
    Sleep(10000)
    MouseWheel("down", 1)
    Sleep(10000)
    MouseWheel("down", 1)
    Sleep(10000)
    MouseWheel("down", 1)
    Sleep(10000)
    _Tickets()
EndFunc

Func MainGUIClose()
    If @Compiled Then
        ProcessClose("ScreenNavTool.exe")
    EndIf
    Exit
EndFunc   ;==>MainGUIClose

It works perfectly on my system (Windows 7 pro x64bit, Autoit 3.3.8.1, IE10.0.9200.16720) no matter if it is ran from Scite, a right click & run script, or compiled. They all three work as coded on my system.

Now, if I take it and move it to another system (Windows 7 Home Premium x64bit, Autoit 3.3.8.1, IE10.0.9200.16720) Then it runs, opens a new IE window, navigates to the starter address, sets the window to theatermode, disables the toolbar, then runs _Tickets(), moves on to _PL(), then hangs up and does not loop back to _Tickets() instead giving an error of:

IE.au3 V2.4-0 Error from function _IENavigate, $_IEStatus_InvalidObjectType

But the thing is it works the first two times it's called in the script then it errors out and does not work afterwards....

 

any ideas?

[Danp2]

Only glanced at your code briefly, but it appears that you have an issue where your functions continually call each other and never return to the main loop.

Remove the call to _PL from _Tickets and the call to _Tickets from _PL. Finally, add a call to _PL below the call to _Tickets in your main While loop.

[Wombat]

That was actually the structure of my code previously and it presented the same errors...

I changed my code to perform differently:

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=ScreenNavTool.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

Opt("GUIOnEventMode", 1)
Opt("GUICloseOnEsc", 1)
Opt("MouseCoordMode", 2)
Opt("TrayIconHide", 1)

HotKeySet("{ESC}", "MainGUIClose")


Global $Taddress = "http://intranet.stormcopper.com/it/Lists/IT%20Ticketing%20System/Current%20Tickets.aspx?View={E2252C6D-7E06-47D3-AF67-959660961F35}&FilterField1=Priority&FilterValue1=%281%29%20High"
Global $PLaddress = @ScriptDir & "\index.html"
Global $MouseOriginX=@DesktopWidth-13
Global $MouseOriginY=@DesktopHeight-28
Global $MouseAct=False
$w=1


$oIE2 = _IECreate ($PLaddress)
$hIE2= _IEPropertyGet($oIE2, "hwnd")

$oIE = _IECreate ($Taddress)
$hIE1= _IEPropertyGet($oIE, "hwnd")
_IEPropertySet( $oIE, "theatermode", True)
_IEPropertySet( $oIE, "toolbar", False)


While 1
    Sleep(10)
    $pos = MouseGetPos()

    if $w=1 then
        $x=$pos[0]+1
        $y=$pos[1]+1
        $w=0
    else
        $x=$pos[0]-1
        $y=$pos[1]-1
        $w=1
    EndIf

    MouseMove($x, $y)

    If Not WinExists("[CLASS:IEFrame]") Then MainGUIClose()

    _Tickets()
WEnd

Func _Tickets()
    WinActivate($hIE1)
    _IEPropertySet( $oIE2, "theatermode", False)
    _IEPropertySet( $oIE2, "toolbar", True)
    _IEPropertySet( $oIE, "theatermode", True)
    _IEPropertySet( $oIE, "toolbar", False)
    _IEAction($oIE, "refresh")
    Sleep(30000)
    _PL()
EndFunc

Func _PL()
    WinActivate($hIE2)
    _IEAction($oIE2, "focus")
    _IEPropertySet( $oIE, "theatermode", False)
    _IEPropertySet( $oIE, "toolbar", True)
    _IEPropertySet( $oIE2, "theatermode", True)
    _IEPropertySet( $oIE2, "toolbar", False)
    If $MouseAct=False Then
        MouseMove(@DesktopWidth/2, @DesktopHeight/2)
        Sleep(100)
        MouseClick("")
        Sleep(100)
        MouseMove(@DesktopWidth-25, @DesktopHeight-5)
        $MouseAct=True
    EndIf
    Sleep(10000)
    MouseWheel("down", 1)
    Sleep(10000)
    MouseWheel("down", 1)
    Sleep(10000)
    MouseWheel("down", 1)
    Sleep(10000)
    MouseWheel("down", 1)
    Sleep(10000)
    _Tickets()
EndFunc

Func MainGUIClose()
    ProcessClose("Autoit3.exe")
    ProcessClose("iexplorer.exe")
    If @Compiled Then
        ProcessClose("ScreenNavTool.exe")
    EndIf
    Exit
EndFunc   ;==>MainGUIClose

This code works on my system... but not on the home premium.

Edited November 12, 2013 by Wombat

[Danp2]

What doesn't work about it? Be specific.

I would still recommend that you make the changes I mentioned earlier, or at least remove the call to _Tickets() at the bottom of _PL() so that the function exits and your WHILE loop will then get repeated.

[Wombat]

Made them, and the console errors out at line 580 of the IE.au3 and line 624

[Danp2]

Made them, and the console errors out at line 580 of the IE.au3 and line 624

 

Please post the console output here as I am unable to determine what you mean by "errors out".

It appears that you may be running an old version of IE.au3. The latest version can be downloaded >here. Note that it requires AutoIt3 3.3.9 or higher.