Question about /AutoIt3ExecuteLine

[Gianni]

Hi

Is it possible to execute the following snippet using the Run() command with a syntax like this:

Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $sCommand)

where the $sCommand variable contains the statements stacked in a single line?
In the following test script I get an odd error.
Any advise is welcome.
Thanks

; Testing the /AutoIt3ExecuteLine parameter
;
; the following line works
Local $sMsg = "Hello", $Dummy = MsgBox(0, "Debug", $sMsg)
MsgBox(0, 0, "Pause")
;
; the following line doesn't instead. Why?
Local $sCommand = 'Local $sMsg = "Hello", $Dummy = MsgBox(0,"Debug", $sMsg)'
Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $sCommand)
MsgBox(0, 0, "Pause")

 

[Jos]

Try:

Local $sCommand = '"Local $sMsg = ""Hello"", $Dummy = MsgBox(0,""Debug"", $sMsg)"'
Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $sCommand)

Jos

[Gianni]

that way it works.

I have a quite long $sCommand string I'm working on, I will try to use quotation marks as you showed here.

... Thank Mr. Jos

Edited March 25, 2016 by Chimp

[Jos]

It is not too difficult just do the following:

Local $sCommand = 'Local $sMsg = "Hello", $Dummy = MsgBox(0,"Debug", $sMsg)'
$sCommand = Stringreplace($sCommand,'"', '""')
$sCommand = '"' & $sCommand & '"'
Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $sCommand)

Jos

[mLipok]

interesting.

Local $sCommand = _
        'Local ' & _
        '$Dummy1 = MsgBox(0,"Debug", ""), ' & _
        '$Dummy2 = Sleep(500), ' & _
        '$Dummy3 = WinWaitActive("Debug",""), ' & _
        '$Dummy4 = ControlClick("Debug","","[CLASS:Button; TEXT:OK]"), ' & _
        '$Dummy5 = Sleep(3000), ' & _
        '$Dummy6 = MsgBox(0,"Debug2", "")'

$sCommand = '"' & StringReplace($sCommand, '"', '""') & '"'
ConsoleWrite($sCommand & @CRLF)
Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $sCommand)
MsgBox(0, '', 333)

This can be used for a workaround for some JavaScript Dialog box popuped with IE.au3 (was discused recently here on the forum)

 

[Gianni]

thanks @Jos for the tip, very comfortable indeed.
the line that I am trying to run is as follows

Local $sCommandLine = 'local $ObjShell = ObjCreate("Shell.Application"), $ObjShellWindows = $ObjShell.Windows(), $ObjIE = $ObjShellWindows.item(' & $aRefs[1] & '), $oDocument = $ObjIE.Document, $Dummy = Execute("$oDocument"' & $sMethod & ')'

But it causes to carsh AutoIt .... (running on AutoIt v. 3.3.14.2 Win7 x64)
Perhaps there is some subtle bug I have to find in my script ...
What I'm trying to do is to perform a click on a button of the browser completely from an external script (but the whole script should be in the $sCommandLine variable instead that in an external file).

Hi @mLipok, thanks for your answer,

in the snippet you posted, you are dealing with an MsgBox, and so there is no need to pass Objcts references to the external script, while what I'm trying to do is to pass reference of our Browser obj and reference of our Element Obj (the button) to the external script so that it (the external script) can have references to what it has to manage. (sending a click in this case)
Here is my script which I am experiencing. The crash occurs in _CallFromExternal() function.

  Reveal hidden contents

expandcollapse popup

#include <ARRAY.AU3>

#include <IE.au3>
; Open Microsoft's demo page
$sURL = "http://samples.msdn.microsoft.com/workshop/samples/author/dhtml/refs/showModalDialogLaunch.htm"
$oIE = _IECreate($sURL)
$hIE = _IEPropertyGet($oIE, "hwnd")

; Click button to open modal popup
$oButton = _IETagNameGetCollection($oIE, "Button", 0)

; the following 2 lines works --- this is OK ---
; If @error = 0 And IsObj($oButton) Then _IEAction($oButton, "focus")
; ControlSend($hIE, "", "", "{ENTER}")
; ------------------------------------------------------------------
;
; _IEAction($oButton, "click") ; <--- this statement doesn't work
;
; ===== EXPERIMENTAL =====
Local $aReturn = _GetReferences($oIE, $oButton)
If Not @error Then
    ; _ArrayDisplay($aReturn)
    _CallFromExternal($aReturn)
    Sleep(1000)
Else
    MsgBox(0, "Debug", "!Error")
    Exit
EndIf
; Exit
ConsoleWrite("now script has reached this point" & @CRLF)
; -----------------
$timeout = TimerInit()
Do
    $oPopup = _IEAttach("Text Selection in a Modal Dialog --", "DialogBox")
    If TimerDiff($timeout) > 5000 Then
        MsgBox(0, "Timeout", "Popup not found" & @CRLF & "it was closed")
        Exit
    EndIf
Until IsObj($oPopup)

$TextArea = _IEGetObjById($oPopup, "output")
_IEFormElementSetValue($TextArea, "Hey! This works!")


; pass the $oIE reference to the browser and the $oNode reference to the element
Func _GetReferences(ByRef $oIE, ByRef $oElement)
    Local $hoIE = HWnd($oIE.HWnd()) ; get the handle of the browser
    Local $ObjShell = ObjCreate("Shell.Application")
    Local $ObjShellWindows = $ObjShell.Windows(); collection of all ShellWindows (IE and File Explorer)
    Local $aRefs[3] ; [0] HWND of browser; [1] item nr within Shell.Application.Windows; [0] xPath of Element
    Local $ObjTempIE ; temp variable
    For $item = 0 To ($ObjShellWindows.count) - 1
        ;
        $ObjTempIE = $ObjShellWindows.item($item) ; scann all Windows in the collection
        If HWnd($ObjTempIE.HWnd()) = $hoIE Then ; Found reference to hour browser
            $aRefs[0] = $hoIE ; HWND
            $aRefs[1] = $item ; item
            $aRefs[2] = _GetPathTo($oElement) ; Path
            $ObjTempIE = ""
            Return SetError(0, 0, $aRefs)
        EndIf
        $ObjTempIE = ""
    Next
    Return SetError(1, 0, -1)
EndFunc   ;==>_GetReferences

; get xPath of an element
; http://stackoverflow.com/questions/2631820/im-storing-click-coordinates-in-my-db-and-then-reloading-them-later-and-showing/2631931#2631931
; answer by Scott Izu
Func _GetPathTo($oElement)
    If $oElement.tagName = 'HTML' Then Return '/HTML[0]'
    If $oElement = $oElement.document.body Then Return '/HTML[0]/BODY[0]'
    Local $ix = 0, $sibling
    Local $siblings = $oElement.parentNode.childNodes;
    For $sibling In $siblings
        If ($sibling = $oElement) Then
            Return _GetPathTo($oElement.parentNode) & '/' & $oElement.tagName & '[' & ($ix) & ']'
        EndIf
        If ($sibling.nodeType = 1 And $sibling.tagName = $oElement.tagName) Then $ix += 1
    Next
EndFunc   ;==>_GetPathTo

Func _CallFromExternal(ByRef $aRefs)
    ; replacing the $aRefs[*] with it's values whe should has
    Local $sMethod = StringReplace(StringReplace(StringReplace($aRefs[2], '/', '.getElementsByTagname("'), '[', '").item('), ']', ')') & ".click()"
    Local $sCommandLine = 'local $ObjShell = ObjCreate("Shell.Application"), $ObjShellWindows = $ObjShell.Windows(), $ObjIE = $ObjShellWindows.item(' & $aRefs[1] & '), $oDocument = $ObjIE.Document, $Dummy = Execute("$oDocument"' & $sMethod & ')'
    $sCommandLine = StringReplace($sCommandLine, '"', '""')
    $sCommandLine = '"' & $sCommandLine & '"'
    ; and now we can run it from 'external'
    ; MsgBox(0, "Debug", $sCommandLine)
    Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $sCommandLine)
    MsgBox(0, "Debug", $sCommandLine)
EndFunc   ;==>_CallFromExternal

 

 

[Jos]

That's is not a run-able line for me as I am missing the variables. so can't really test as you also haven't defined what you mean with "crash".

Jos

Edited March 25, 2016 by Jos

[mLipok]

@Chimp please change your example by using my "Syntax" concept of writing "code" for this "one liner" :

Local $sCommand = _
        'Local ' & _
        '$Dummy1 = MsgBox(0,"Debug", ""), ' & _
        '$Dummy2 = Sleep(500), ' & _
        '$Dummy3 = WinWaitActive("Debug",""), ' & _
        '$Dummy4 = ControlClick("Debug","","[CLASS:Button; TEXT:OK]"), ' & _
        '$Dummy5 = Sleep(3000), ' & _
        '$Dummy6 = MsgBox(0,"Debug2", "")'

$sCommand = '"' & StringReplace($sCommand, '"', '""') & '"'

This way is much easier to read.

Edited March 25, 2016 by mLipok

[Gianni]

sorry for the messy code
here is the _CallFromExternal() function with some comments

expandcollapse popup

Func _CallFromExternal(ByRef $aRefs)
    ; idea from here:
    ; https://www.autoitscript.com/forum/topic/11823-attaching-to-an-existing-ie-instance-one-method/#comment-81693
    ; ----- expanded form -----
    ; in input we have references to the objects in this array:
    ;
    ;            $aRefs[0] = $hoIE                  ; HWND of the passed browser
    ;            $aRefs[1] = $item                  ; item nr, of the browser Obj within the Shell.Application.Windows collection
    ;            $aRefs[2] = _GetPathTo($oElement)  ; xPath of the Element we need to manage within the browser
    ;
    ; 1) Instantiate the shell obj
    ; Local $ObjShell = ObjCreate("Shell.Application")
    ;
    ; 2) get collection of all ShellWindows (IE and File Explorer)
    ; Local $ObjShellWindows = $ObjShell.Windows()
    ;
    ; 3) Point to the targhet browser using the received item nr.
    ;    something like _IEAttach() ....
    ;    so we retrieve an Obj
    ; Local $ObjIE = $ObjShellWindows.item($aRefs[1])
    ;
    ; 4) Check if obtained obj has the same HWND of our targhet browser (it should)
    ;  .... to do
    ;
    ; 5) Point to the .Document obj
    ; Local $oDocument = $ObjIE.Document
    ;
    ; 6)  Construct the method from the given xPath
    ;     xPath for example is something like this:
    ;     /HTML[0]/BODY[0]/BUTTON[0]
    ;     and afther the StringReplaces we have something like this:
    ;     .getElementsByTagname("HTML").item(0).getElementsByTagname("BODY").item(0).getElementsByTagname("BUTTON").item(0).click()
    ;
    ; Local $sMethod = StringReplace(StringReplace(StringReplace($aRefs[2], '/', '.getElementsByTagname("'), '[', '").item('), ']', ')') & ".click()"
    ;
    ; 7) call the wanted method ageinst the element
    ; $Dummy = Execute("$oDocument" & $sMethod)
    ; ------------------------------------------------------------------------------
    ; the complete list of above Commands stacked on a single line should be like this
    ; Local $ObjShell = ObjCreate("Shell.Application"), $ObjShellWindows = $ObjShell.Windows(), $ObjIE = $ObjShellWindows.item($aRefs[1]), $oDocument = $ObjIE.Document, $Dummy = Execute("$oDocument" & $sMethod)
    ; replacing the $aRefs[*] and the $sMethod with it's values whe should has
    Local $sMethod = StringReplace(StringReplace(StringReplace($aRefs[2], '/', '.getElementsByTagname("'), '[', '").item('), ']', ')') & ".click()"
    Local $sCommandLine = 'local $ObjShell = ObjCreate("Shell.Application"), $ObjShellWindows = $ObjShell.Windows(), $ObjIE = $ObjShellWindows.item(' & $aRefs[1] & '), $oDocument = $ObjIE.Document, $Dummy = Execute("$oDocument"' & $sMethod & ')'
    $sCommandLine = StringReplace($sCommandLine, '"', '""')
    $sCommandLine = '"' & $sCommandLine & '"'
    ; and now we can run it from 'external' ...??  maybe...
    ; MsgBox(0, "Debug", $sCommandLine)
    Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $sCommandLine)
    MsgBox(0, "Debug: CommadLine", $sCommandLine) ; this is the resulting Command Line
EndFunc   ;==>_CallFromExternal

 

[Gianni]

  On 3/25/2016 at 11:52 AM, Jos said:

That's is not a run-able line for me as I am missing the variables. so can't really test as you also haven't defined what you mean with "crash".

Jos

Expand  

The script from Post #6 (within spoiler) is runnable and I get an "APPCRASH" window running it:

[Gianni]

just for the record
the APPCRASH was caused by the presence of the Execute() statement within the $sCommandLine string.
by replacing this part   $Dummy = Execute("$oDocument"' & $sMethod & ')'
with this part   $Dummy = $oDocument' & $sMethod  solved the problem.

[mLipok]

  On 3/25/2016 at 11:15 AM, mLipok said:

This can be used for a workaround for some JavaScript Dialog box popuped with IE.au3 (was discused recently here on the forum)

Expand  

Here is example how this can be used with IE.au3 :