Jump to content
tarretarretarre

_IEEmbedded2! UDF

Recommended Posts

tarretarretarre

Yet another IE UDF, but this time I "covered all angels" to make it as close to "embedded" as possible, the biggest inspiration came from Dale

Anyway, one of the issues with the other "snipplets\UDF's" is that $WS_POPUP style will cause other Windows to overlap, even though you clicked on the GUI's "Embedded window". see picture:

r5EWBge.png

This issue is solved, but there is an option to disable it, if the user want

One more small issue with others IE Embedded UDF's is that implementation should not be so much different than the original implementation was. I am not ranting, I am just speaking for my mind.

So here we go:

This is how the classic _IeCreateEmbedded() implementation goes down

#include <IE.au3>

Local $hGUI = GUICreate("_IECreateEmbedded", 800, 600)

Local $oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 0, 0, 800, 600)

GUISetState()

_IENavigate($oIE, "https://www.google.se")

While GUIGetMsg() <> - 3
wend

and this is how _IeCreateEmbedded2() is implemented

#include <IE.au3>
#include <_IECreateEmbedded2.au3>

Local $hGUI = GUICreate("_IECreateEmbedded", 800, 600)

Local $oIE = _IEEmbedded2_Create($hGUI, 0, 0, 800, 600)

GUISetState()

_IENavigate($oIE, "https://www.google.se")

While GUIGetMsg() <> - 3
wend

The only downside with this implementation is that _IECreateEmbedded2() is not an GUI control, it only has our Com Object, so I added basic manipulation.

I will change \ add more options based on user requests or if I feel like it.

_IEEmbedded2_Move($iLeft, $iTop, $iWidth = Default, $iHeight = Default) ;Similar to AutoIT's WinMove
_IEEmbedded2_Hide()
_IEEmbedded2_Show()


Here is a GUI example with different options, so you can test some of the functionality

 Example.au3

#include <_IEEmbedded2.au3>

Local $hGUI = GUICreate("_IEEmbedded2 Example Gui", 1575, 600)
Local $iDMove = GUICtrlCreateButton("Move", 0, 0, 225, 50)
Local $iDHide = GUICtrlCreateButton("Hide", 225, 0, 225, 50)
Local $iDShow = GUICtrlCreateButton("Show", 450, 0, 225, 50)
Local $iDnav = GUICtrlCreateButton("Navigate", 675, 0, 225, 50)
Local $iDestroy = GUICtrlCreateButton("Destroy", 900, 0, 225, 50)
Local $iDCreate = GUICtrlCreateButton('Create with ($iCmdLine = "-extoff -private")', 1125, 0, 225, 50)
Local $iDCreateNoWsChildOnBlur = GUICtrlCreateButton("Create with ($iWsChildOnBlurMS = 0)", 1350, 0, 225, 50)

Local $oIE = _IEEmbedded2_Create($hGUI, 0, 50, 1575, 550, "http://www.google.se/", Default, Default, Default)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            _IEQuit($oIE)
            Exit
        Case $iDMove
            _IEEmbedded2_Move(Random(0, 10, 1), Random(50, 60, 1))
            If @error Then MsgBox(0, "Error", "Failed to move window")
        Case $iDHide
            _IEEmbedded2_Hide()
            If @error Then MsgBox(0, "Error", "Failed to hide window")
        Case $iDShow
            _IEEmbedded2_Show()
            If @error Then MsgBox(0, "Error", "Failed to show window")
        Case $iDnav
            If IsObj($oIE) Then
                _IENavigate($oIE, "https://www.autoitscript.com/site/")
            Else
                MsgBox(0, "Error", "Failed to navigate")
            EndIf
        Case $iDestroy
            If IsObj($oIE) Then
                _IEQuit($oIE)
                 ___IEEmbedded2_Data(0, 0, 0, 0); only required if $iWsChildOnBlurMS = 0
            Else
                MsgBox(0, "Error", "Failed to destroy object.")
            EndIf
        Case $iDCreate
            Local $tmpOie = _IEEmbedded2_Create($hGUI, 0, 50, 1575, 550, "https://www.google.com/", "-extoff -private", Default, Default)
            If Not @error Then
                $oIE = $tmpOie
            Else
                MsgBox(0, "Error", "Failed to _IEEmbedded2_Create, error code: "&@error)
            EndIf
        Case $iDCreateNoWsChildOnBlur
            Local $tmpOie = _IEEmbedded2_Create($hGUI, 0, 50, 1575, 550, Default, Default, Default, 0)
            If Not @error Then
                $oIE = $tmpOie
            Else
                MsgBox(0, "Error", "Failed to _IEEmbedded2_Create, error code: "&@error)
            EndIf
    EndSwitch
WEnd


 _IEEmbedded2.au3

#include-once
#include <IE.au3>
#include <WinAPI.au3>
#include <GuiConstants.au3>
Opt("WinWaitDelay", 1)

; #FUNCTION# ====================================================================================================================
; Name ..........: _IEEmbedded2_Create
; Description ...: Creates an "embedded Internet Explorer window" for a parent window (E.ex GuiCreate), and returns a webbrowser object refrence which can be used with _IE* Functions
; Syntax ........: _IEEmbedded2_Create($hWndParent, $iLeft, $iTop, $iWidth, $iHeight, $iCmdLine = Default, $iTimeoutMS = Default, $iWsChildOnBlurMS = Default)
; Parameters ....: $hWndParent         - The handle of the window you would like to embed internet explorer in
;                  $iLeft             - X1
;                  $iTop              - Y1
;                  $iWidth            - X2
;                  $iHeight           - Y2
;                  $iDefaultPage      - [optional] Default page on launch, _IeNavigate will be used as soon as the object exists and the script does not wait for the page to load (Default = about:blank)
;                  $iCmdLine          - [optional] Parameters passed when starting Iexplore, see remarks. (Default = "")
;                  $iTimeoutMS        - [optional] Max wait time in milliseconds before SetError, se @error 5 and 6. (Default = 30000 ms)
;                  $iWsChildOnBlurMS  - [optional] How often in milliseconds we want to make sure $hParrent does not get overlapped by other Windows gui's, set 0 to disable (Default = 100 ms)
; Return values .: Success      - a Webbrowser object reference.
;                  Failure      - 0 and sets @error to non zero.
; Author ........: TarreTarreTarre
; Modified.......:
; Remarks .......: Max 1 instance is allowed.
;
;                  Set $iWsChildOnBlurMS to 0 if you do not wish to have $hWndChild altered when the $hWndParent is not active, this will however cause other windows to overlap your Gui and more.
;                  Also, if $iAdlibCalltime is 0, you have to manually reset _IEEmbedded2_Createdata's data if you want to invoke _IEEmbedded2_Create again.
;                  Use ___IEEmbedded2_Data(0, 0, 0, 0) to reset data
;
;                  For $iCmdLine, these commands are avilable -extoff, -framemerging, -noframemerging, -nohangrecovery, -private, -nosessionmerging And -sessionmerging
;                  Read more about Command-Line Options at https://msdn.microsoft.com/en-us/library/hh826025(v=vs.85).aspx
; Link ..........:
; Example .......:
; @error ........: 1 - $hWndParent is not a valid window handle.
;                  2 - Iexplore.exe not found.
;                  3 - Another instance of _IEEmbedded2_ is already running.
;                  4 - $iCmdLine is provided with invalid parameters
;                  5 - Load Wait Timeout, was not able to retrive Iexplore.exe window handle.
;                  6 - (IE >= 10 only) Load Wait Timeout, failed to force $hWndChild into a minimized state.
;                  7 - Windows API error, check @extended for more information
Func _IEEmbedded2_Create($hWndParent, $iLeft, $iTop, $iWidth, $iHeight, $iDefaultPage = Default, $iCmdLine = Default, $iTimeoutMS = Default, $iWsChildOnBlurMS = Default)

    $iDefaultPage = ($iDefaultPage == Default ? "about:blank" : $iDefaultPage)
    $iCmdLine = ($iCmdLine == Default ? "" : StringRegExpReplace($iCmdLine, "([a-zA-Z]*)\s*[-]{1}", "$1 -"))
    $iTimeoutMS = ($iTimeoutMS == Default ? 30000 : $iTimeoutMS)
    $iWsChildOnBlurMS = ($iWsChildOnBlurMS == Default ? 100 : $iWsChildOnBlurMS)

    Local $sIexplorePath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE", "")
    Local $sUrl = StringFormat("about:blank#%s", Chr(Random(65, 90, 1)) & Random(1, 100, 1))

    If Not IsHWnd($hWndParent) Then Return SetError(1, 0, 0)
    If Not FileExists($sIexplorePath) Then Return SetError(2, 0, 0)
    If ___IEEmbedded2_IsInited() Then Return SetError(3, 0, 0)
    If Not StringRegExp($iCmdLine, _
            "^((|-extoff|-framemerging|-noframemerging|-nohangrecovery|-private|-nosessionmerging|-sessionmerging)\s*){1,}+$") Then Return SetError(4, 0, 0)

    Local $Pid = Run(StringFormat("%s -k %s %s", $sIexplorePath, $iCmdLine, $sUrl), "", @SW_HIDE)
    Local $Timeout = TimerInit()
    Local $_IEErrorNotify = _IEErrorNotify(False)

    Do
        Local $oIE = _IEAttach($sUrl, "url")

        If TimerDiff($Timeout) > $iTimeoutMS Then
            _IEErrorNotify($_IEErrorNotify)
            ProcessClose($Pid)
            Return SetError(5, 0, 0)
        EndIf

        Sleep(0)
    Until IsObj($oIE)
    _IEErrorNotify($_IEErrorNotify)

    Local $hWndChild = _IEPropertyGet($oIE, "hwnd")

    _WinAPI_MoveWindow($hWndChild, -1000, -1000, -1000, -1000, True)
    _IENavigate($oIE, $iDefaultPage, 0)

    ;IEVer >= 10 needs to be minimized or it will not disappear from the taskbar @ windows 7 32\64 bit & mby other win vers.
    If Int(FileGetVersion($sIexplorePath)) >= 10 Then
        Do
            WinActivate($hWndChild, "")
            WinSetState($hWndChild, "", @SW_MINIMIZE)
            If TimerDiff($Timeout) > $iTimeoutMS Then
                ProcessClose($Pid)
                Return SetError(6, 0, 0)
            EndIf
        Until WinGetState($hWndChild) == 23 ; $WIN_STATE_EXISTS + $WIN_STATE_VISIBLE + $WIN_STATE_MINIMIZED
    EndIf

    _WinAPI_SetParent($hWndChild, $hWndParent)
    _WinAPI_MoveWindow($hWndChild, $iLeft, $iTop, $iWidth, $iHeight, True)
    _WinAPI_SetWindowLong($hWndChild, $GWL_STYLE, $WS_POPUP + $WS_VISIBLE)

    If @error Then
        SetExtended(1, _WinAPI_GetLastError())
        ProcessClose($Pid)
        Return SetError(7, 1, 0)
    EndIf

    Local $aDimensions = [$iLeft, $iTop, $iWidth, $iHeight]

    ___IEEmbedded2_Data($hWndParent, $hWndChild, $aDimensions, $iWsChildOnBlurMS)

    If $iWsChildOnBlurMS Then
        AdlibRegister("___IEEmbedded2_WsChildOnBlur", $iWsChildOnBlurMS)
    EndIf

    Return $oIE
EndFunc   ;==>_IEEmbedded2_Create

; #FUNCTION# ====================================================================================================================
; Name ..........: _IEEmbedded2_Move
; Description ...: Moves a previously created _IEEmbedded2_Create window
; Syntax ........: _IEEmbedded2_Move($iLeft, $iTop, $iWidth = Default, $iHeight = Default)
; Parameters ....: $iLeft           - X1
;                  $iTop            - Y1
;                  $iWidth          - X2 [optional] (Default = Original value)
;                  $iHeight         - Y2 [optional] (Default = Original value)
; Return values .: Success      - True
;                  Failure      - 0 and sets @error to non zero.
; Author ........: TarreTarreTarre
; Modified.......:
; Remarks .......: Similar to AutoIt's WinMove
;                  Do not use this to "hide" objects, use _IEEmbedded2_Hide() instead
; Link ..........:
; Example .......:
; @error ........: 1 - _IEEmbedded2_Create is not invoked
Func _IEEmbedded2_Move($iLeft, $iTop, $iWidth = Default, $iHeight = Default)

    Local $e = ___IEEmbedded2_Data()
    Local $hc = $e[1]
    Local $d = $e[2]
    Local $alr = $e[3]

    If Not IsHWnd($hc) Then Return SetError(1, 0, 0)

    $iWidth = ($iWidth == Default ? $d[2] : $iWidth)
    $iHeight = ($iHeight == Default ? $d[3] : $iHeight)

    _WinAPI_MoveWindow($hc, $iLeft, $iTop, $iWidth, $iHeight, True)
    Local $nd = [$iLeft, $iTop, $iWidth, $iHeight]
    ___IEEmbedded2_Data(Null, Null, $nd)

    If $alr Then AdlibRegister("___IEEmbedded2_WsChildOnBlur", $alr)

    Return True
EndFunc   ;==>_IEEmbedded2_Move

; #FUNCTION# ====================================================================================================================
; Name ..........: _IEEmbedded2_Hide
; Description ...: Hides a previously created _IEEmbedded2_Create window
; Syntax ........: _IEEmbedded2_Hide()
; Parameters ....:
; Return values .: Success      - True
;                  Failure      - 0 and sets @error to non zero.
; Author ........: TarreTarreTarre
; Modified.......:
; Remarks .......:
; Link ..........:
; Example .......:
; @error ........: 1 - _IEEmbedded2_Create is not invoked
Func _IEEmbedded2_Hide()

    Local $e = ___IEEmbedded2_Data()
    Local $hc = $e[1]

    If Not IsHWnd($hc) Then Return SetError(1, 0, 0)

    _WinAPI_MoveWindow($hc, 0, 0, 0, 0, True)

    AdlibUnRegister("___IEEmbedded2_WsChildOnBlur")

    Return True
EndFunc   ;==>_IEEmbedded2_Hide

; #FUNCTION# ====================================================================================================================
; Name ..........: _IEEmbedded2_Show
; Description ...: Restore the window to its original size, a counter to _IEEmbedded2_Move() \ _IEEmbedded2_Hide()
; Syntax ........: _IEEmbedded2_Show()
; Parameters ....:
; Return values .: Success      - True
;                  Failure      - 0 and sets @error to non zero.
; Author ........: TarreTarreTarre
; Modified.......:
; Remarks .......:
; Link ..........:
; Example .......:
; @error ........: 1 - _IEEmbedded2_Create is not invoked
Func _IEEmbedded2_Show()

    Local $e = ___IEEmbedded2_Data()
    Local $hc = $e[1]

    If Not IsHWnd($hc) Then Return SetError(1, 0, 0)

    Local $d = $e[2]
    Local $alr = $e[3]

    _WinAPI_MoveWindow($hc, $d[0], $d[1], $d[2], $d[3], True)

    If $alr Then AdlibRegister("___IEEmbedded2_WsChildOnBlur", $alr)

    Return True
EndFunc   ;==>_IEEmbedded2_Show

#Region  IECreateEmbedded2 Internals functions
Func ___IEEmbedded2_Data($_hWndParent = Null, $_hWndChild = Null, $_aDimensions = Null, $_iWsChildOnBlurMS = Null)
    Local Static $hWndParent = 0
    Local Static $hWndChild = 0
    Local Static $aDimensions = 0
    Local Static $iWsChildOnBlurMS = 0

    If $_hWndParent <> Null Then $hWndParent = $_hWndParent
    If $_hWndChild <> Null Then $hWndChild = $_hWndChild
    If IsArray($_aDimensions) Then $aDimensions = $_aDimensions
    If $_iWsChildOnBlurMS <> Null Then $iWsChildOnBlurMS = $_iWsChildOnBlurMS

    Local $aRet = [$hWndParent, $hWndChild, $aDimensions, $iWsChildOnBlurMS]
    Return $aRet
EndFunc   ;==>___IEEmbedded2_Data

Func ___IEEmbedded2_IsInited()
    Local $e = ___IEEmbedded2_Data()
    Return IsHWnd($e[1])
EndFunc   ;==>___IEEmbedded2_IsInited

Func ___IEEmbedded2_WsChildOnBlur()
    Local Static $p
    Local $c = 0
    Local $e = ___IEEmbedded2_Data()
    Local $hp = $e[0]
    Local $hc = $e[1]

    If Not IsHWnd($hc) Then
        ___IEEmbedded2_Data(0, 0, 0, 0)
        Return AdlibUnRegister("___IEEmbedded2_WsChildOnBlur")
    EndIf

    If WinActive($hp) Or WinActive($hc) Then $c = 1

    If $c And $p <> $c Then

        Local $gmp = _WinAPI_GetMousePos()
        Local $wfp = _WinAPI_WindowFromPoint($gmp)
        Local $gp = _WinAPI_GetParent($wfp)

        _WinAPI_SetWindowLong($hc, $GWL_STYLE, $WS_POPUP + $WS_VISIBLE)
        _WinAPI_UpdateWindow($hp)

        If $wfp <> $hp And $gp <> $hp Then
            WinActivate($hc)
        EndIf

        $p = $c
    ElseIf Not $c And $p <> $c Then

        _WinAPI_SetWindowLong($hc, $GWL_STYLE, $WS_CHILD + $WS_VISIBLE)
        _WinAPI_UpdateWindow($hp)

        $p = $c
    EndIf
EndFunc   ;==>___IEEmbedded2_WsChildOnBlur
#EndRegion IECreateEmbedded2 Internals functions

This is currently tested with (AutoIt v3.3.14.0):
Windows 7 x86: Ie 8-9-10-11
Windows 7 x64: Ie 8-9-10-11

Error-report on this thread: IE version, @error code, Operationg system ex: (Windowx 10 64 bit)

 

Trevlig Helg /Tarre

Edited by tarretarretarre
Visual updates

Share this post


Link to post
Share on other sites
JohnOne

If you are looking to improve this for general use, you might replace the following line, to get the path ti IE from the registry.

Local $sIexplorePath = @ProgramFilesDir & "\Internet Explorer\Iexplore.exe"

 


AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites
tarretarretarre
9 minutes ago, JohnOne said:

If you are looking to improve this for general use, you might replace the following line, to get the path ti IE from the registry.

Local $sIexplorePath = @ProgramFilesDir & "\Internet Explorer\Iexplore.exe"

 

You are correct, but before I change my code, I want to know if its possible for non admin users to still obtain this value

RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE", "")

/Tarre

Share this post


Link to post
Share on other sites
coffeeturtle

Hello Tarre,

Excellent job! I am grateful that I don't have to change much of my code to implement your new UDF!

However, in your example, when it starts or if I launch a newly created 'embedded' window, the first thing I see is a big white screen covering my entire display. It appears to shrink down into the parent window and display the correct page, but is there a way to prevent the initial Full-Screen 'embedded' browser window?

Thank you!

Share this post


Link to post
Share on other sites
coffeeturtle

The initial Full-Screen 'embedded' browser window is by design, or am I just missing something? Anyone else?

  • Like 1

Share this post


Link to post
Share on other sites
tarretarretarre

Hello @coffeeturtle, the big window you see is the iexplore in kioskmode. The udf tries to minimize it as soon as possible to hide it on ie11>. Is it stuck for a long time? Or does it disappear after a while?

I will see if its possible to make it silent on creation

/tarre

Edited by tarretarretarre

Share this post


Link to post
Share on other sites
tarretarretarre
On 3/21/2016 at 5:01 PM, coffeeturtle said:

The initial Full-Screen 'embedded' browser window is by design, or am I just missing something? Anyone else?

I have updated the UDF to hide the iexplore window as soon as it shows up.

 

/Tarre

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • Seminko
      By Seminko
      Wrote a script that grabs all of the IP addresses from Netflix's IP log, checks the IPs and returns suspicious activity.
      Everything works as it should but only when _IECreate is set to visible. When visible is set to false, it fails to login for some reason.
      Any ideas what might cause it and/or how to circumvent that?
    • nooneclose
      By nooneclose
      I need to send a string of text to this popup and click on the ok button to save it.
      Here is the code I have so far:
      ;Start IE Sleep(7000) $oIE = _IECreate("http://www.google.com") Sleep(500) _IELoadWait($oIE) $hIE = _IEPropertyGet($oIE, "hwnd") ; Get Handle of the IE window Sleep(500) WinSetState($hIE, "", @SW_MAXIMIZE) ;Wait for a browser page load to complete Sleep(3000) _IENavigate($oIE, "https://properURL.com") Sleep(8000) _IELoadWait($oIE) ;Attach to a browser control embedded in another window $oIE = _IEAttach("https://"properURL.com", url") ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oIE = ' & $oIE & @CRLF & '>Error code: ' & @error & ' Extended code: 0x' & Hex(@extended) & @CRLF) ;### Debug Console Sleep(2000) ;Get the title of the webpage ;Local $wTitle = _IEPropertyGet($oIE, "title") ;MsgBox($MB_SYSTEMMODAL, "Webpage title:", $wTitle) ;Clicks the new button Sleep(3000) _IEAction($nWorkOrderB, "focus") _IEAction($nWorkOrderB, "click") Sleep(5000) ;Store the Element names where the important data will be sent ;Store the long description button Local $wLongDButton = _IEGetObjById($oIE, "m65d795a4-img") ;Store the long Description field id Local $wComments = _IEGetObjById($oIE, "ma6499a9c-rte_iframe") ;Store the ok button id that is in the long description Local $wCommOk = _IEGetObjById($oIE, "m74031266-pb") ;******************************************************************************* ; Send the stored data to the proper field ;******************************************************************************* ;Click the long description button Sleep(300) _IEAction($wLongDButton, "focus") _IEAction($wLongDButton, "click") Sleep(300) ;Sends the Comments Sleep(500) _IEAction($wComments, "focus") _IEAction($wComments, "click") Sleep(500) _IEFormElementSetValue($wComments, "hello darkness my old friend") ;Click the ok button Sleep(500) _IEAction($wCommOk, "focus") _IEAction($wCommOk, "click") Sleep(500)  
      Here is the popup:

    • hemichallenger
      By hemichallenger
      Hello,
      If anyone can help, it would be greatly appreciated. The code is just an example and similar to the issue with an internal webpage. I'm trying to autofill than click the submit button. I get the same error running the script.
      _IEFormElementSetValue, $_IESTATUS_InvalidObjectType
      IEGetObjById, $_IESTATUS_NoMatch
      Is it possible to edit the <textarea></textarea>  field with AutoIt?  If anyone could assist me on how. Than I could have a better understanding and chance in figuring it out on my main script. Thank you
      #include <IE.au3> Local $oIE1 = _IECreate ("https://www.w3schools.com/tags/tryit.asp?filename=tryhtml_textarea") _IELoadWait($oIE1) local $oFormCollection = _IEFormGetCollection($oIE1,0) local $oid = _IEGetObjByid($oFormCollection, "iframeResult") _IEFormElementSetValue($oid, "test") sleep (2000) Local $oIE2 = _IECreate ("https://www.w3schools.com/html/tryit.asp?filename=tryhtml_scripts_intro") _IELoadWait($oIE2) $oForm2 = _IEFormGetCollection($oIE2,0) $oClickMe = _IEGetObjById($oForm2, "demo") _IEAction($oClickMe, "focus") _IEAction($oClickMe, "click")
    • Blueman
      By Blueman
      Hey Guys,
      Hope that you can help me with something, maybe this is a bug in the new version of AUTOIT but first i will check it with you to know for sure.
      I have made a simple GUI with a Embedded IE Object, then i would like to read the HTML with _IEBodyReadHTML(), easy right?
      When i use the old IE.au3 include from a year back or so, it is working fine!
      When i use the new IE.au3 include came with the new installation that is currently available on autoitscript.com it isnt working (i get a result that says; 0).
      Let me show you.
       
      Working Example
      #include <GUIConstantsEx.au3> #include <IE_EmbeddedVersioning.au3> #include <IE_PreVersion.au3> ;Older Version Example() Func Example() ; Create a GUI with various controls. Local $hGUI = GUICreate("Example", 1000, 1000) Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25) Global $oIE_1 = _IECreateEmbedded() ; CREATE IE OBJECT(S) GUICtrlCreateObj($oIE_1, 355, 5, 600, 360) _IENavigate($oIE_1, "https://www.google.nl", 1) Local $CheckHTML_T = _IEBodyReadHTML($oIE_1) ; Display the GUI. GUISetState(@SW_SHOW, $hGUI) MsgBox(48,"",$CheckHTML_T) ; Loop until the user exits. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $idOK ExitLoop EndSwitch WEnd ; Delete the previous GUI and all controls. GUIDelete($hGUI) EndFunc ;==>Example  
      Failing Example
      #include <GUIConstantsEx.au3> #include <IE_EmbeddedVersioning.au3> #include <IE.au3> ;New Version Example() Func Example() ; Create a GUI with various controls. Local $hGUI = GUICreate("Example", 1000, 1000) Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25) Global $oIE_1 = _IECreateEmbedded() ; CREATE IE OBJECT(S) GUICtrlCreateObj($oIE_1, 355, 5, 600, 360) _IENavigate($oIE_1, "https://www.google.nl", 1) Local $CheckHTML_T = _IEBodyReadHTML($oIE_1) ; Display the GUI. GUISetState(@SW_SHOW, $hGUI) MsgBox(48,"",$CheckHTML_T) ; Loop until the user exits. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $idOK ExitLoop EndSwitch WEnd ; Delete the previous GUI and all controls. GUIDelete($hGUI) EndFunc ;==>Example  
      I have attachted all files and i am testing on Windows 10 with the latest SciTe Program (Not compiled). 
      When i compile the script it is showing the same result.
      Thanks guys!
      IE_PreVersion.au3
      IE.au3
      IE_EmbeddedVersioning.au3
    • rm4453
      By rm4453
      I have a table I am parsing, to find specific vehicle information. I am unable to get _ArrayFindAll to return the only valid result with my test data.
      Below is a sample of the table's HTML:
      <td class="textCenter">2010</td> <td>TOYOTA</td> <td>TACOMA 4X4 DB</td> <td></td> <td>BLACK</td> <td class="textCenter">C</td> <td class="textCenter">6</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter">4X4</td> <td class="textCenter">Y</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">80,975</td> <td class="textRight" nowrap="nowrap">$16,800</td> </tr> <tr><!-- 308 --> <td class="textCenter">2010</td> <td>TOYOTA</td> <td>TACOMA 4X4 RG</td> <td></td> <td>BLACK</td> <td class="textCenter">R</td> <td class="textCenter">4</td> <td>GAS</td> <td class="textCenter">5</td> <td class="textCenter">4X4</td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">95,224</td> <td class="textRight" nowrap="nowrap">$9,500</td> </tr> <tr><!-- 309 --> <td class="textCenter">2011</td> <td>BUICK</td> <td>REGAL</td> <td>CXL RL4</td> <td>BLACK</td> <td class="textCenter">4</td> <td class="textCenter">4</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter"></td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">SR</td> <td class="textCenter">L</td> <td class="textRight" nowrap="nowrap">102,694</td> <td class="textRight" nowrap="nowrap">$5,000</td> </tr> <tr><!-- 310 --> <td class="textCenter">2011</td> <td>CHEVROLET</td> <td>AVALANCH 4X4 CR</td> <td>LS</td> <td>GRAY</td> <td class="textCenter">C</td> <td class="textCenter">8</td> <td>E</td> <td class="textCenter">A</td> <td class="textCenter">4X4</td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">64,759</td> <td class="textRight" nowrap="nowrap">$16,300</td> </tr> <tr><!-- 311 --> <td class="textCenter">2011</td> <td>CHEVROLET</td> <td>EQUINOX AWD 4C</td> <td>LT W/2LT</td> <td>BLACK</td> <td class="textCenter">S</td> <td class="textCenter">4</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter">AWD</td> <td class="textCenter">Y</td> <td>CD</td> <td class="textCenter">SR</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">91,896</td> <td class="textRight" nowrap="nowrap">$4,400</td> </tr> <tr><!-- 312 --> <td class="textCenter">2011</td> <td>CHEVROLET</td> <td>TAHOE 4X4 V8</td> <td>LTZ</td> <td>WHITE</td> <td class="textCenter">S</td> <td class="textCenter">8</td> <td>C</td> <td class="textCenter">A</td> <td class="textCenter">4X4</td> <td class="textCenter">A</td> <td>N</td> <td class="textCenter">MR</td> <td class="textCenter">L</td> <td class="textRight" nowrap="nowrap">126,982</td> <td class="textRight" nowrap="nowrap">$17,800</td> </tr> <tr><!-- 313 --> <td class="textCenter">2011</td> <td>CHEVROLET</td> <td>1500 SLV 4X4 EX</td> <td>LT</td> <td>GRAY</td> <td class="textCenter">X</td> <td class="textCenter">8</td> <td>GAS</td> <td class="textCenter">O</td> <td class="textCenter">4X4</td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">60,303</td> <td class="textRight" nowrap="nowrap">$18,100</td> </tr> <tr><!-- 314 --> <td class="textCenter">2011</td> <td>CHEVROLET</td> <td>1500 SLV 4X4 EX</td> <td>LT</td> <td>SILVER</td> <td class="textCenter">X</td> <td class="textCenter">8</td> <td>E</td> <td class="textCenter">O</td> <td class="textCenter">4X4</td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">89,403</td> <td class="textRight" nowrap="nowrap">$15,900</td> </tr> <tr><!-- 315 --> <td class="textCenter">2011</td> <td>CHEVROLET</td> <td>1500 SLV 4X4 EX</td> <td>LTZ</td> <td>BLUE</td> <td class="textCenter">X</td> <td class="textCenter">8</td> <td>E</td> <td class="textCenter">A</td> <td class="textCenter">4X4</td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">L</td> <td class="textRight" nowrap="nowrap">53,087</td> <td class="textRight" nowrap="nowrap">$17,700</td> </tr> <tr><!-- 316 --> <td class="textCenter">2011</td> <td>CHEVROLET</td> <td>3500 CUTAWAY</td> <td>WORK VAN</td> <td>WHITE</td> <td class="textCenter">S</td> <td class="textCenter"></td> <td></td> <td class="textCenter">A</td> <td class="textCenter">4X2</td> <td class="textCenter"></td> <td>N</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">202,477</td> <td class="textRight" nowrap="nowrap">$2,700</td> </tr> <tr><!-- 317 --> <td class="textCenter">2011</td> <td>CHRYSLER</td> <td>TOWN &amp; COUNTRY</td> <td>TOURING</td> <td>BLACK</td> <td class="textCenter">4</td> <td class="textCenter">6</td> <td>E</td> <td class="textCenter">A</td> <td class="textCenter">4X2</td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter"></td> <td class="textRight" nowrap="nowrap">198,541</td> <td class="textRight" nowrap="nowrap">$1,900</td> </tr> <tr><!-- 318 --> <td class="textCenter">2011</td> <td>DODGE</td> <td>DURANGO AWD V6</td> <td>CREW</td> <td>BLUE</td> <td class="textCenter">S</td> <td class="textCenter">6</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter">AWD</td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">SR</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">176,036</td> <td class="textRight" nowrap="nowrap">$2,800</td> </tr> <tr><!-- 319 --> <td class="textCenter">2011</td> <td>FORD</td> <td>FOCUS</td> <td>SE</td> <td>SILVER</td> <td class="textCenter">4</td> <td class="textCenter">4</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter"></td> <td class="textCenter">Y</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">101,929</td> <td class="textRight" nowrap="nowrap">$3,100</td> </tr> <tr><!-- 320 --> <td class="textCenter">2011</td> <td>FORD</td> <td>FUSION FWD 4C</td> <td>SEL</td> <td>WHITE</td> <td class="textCenter">4</td> <td class="textCenter">4</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter"></td> <td class="textCenter">Y</td> <td>CD</td> <td class="textCenter">SR</td> <td class="textCenter">L</td> <td class="textRight" nowrap="nowrap">78,290</td> <td class="textRight" nowrap="nowrap">$5,500</td> </tr> <tr><!-- 321 --> <td class="textCenter">2011</td> <td>FORD</td> <td>F150 4X4 CR</td> <td>XLT</td> <td>BLACK</td> <td class="textCenter">C</td> <td class="textCenter">8</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter">4X4</td> <td class="textCenter">Y</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">70,909</td> <td class="textRight" nowrap="nowrap">$16,000</td> </tr> <tr><!-- 322 --> <td class="textCenter">2011</td> <td>FORD</td> <td>MUSTANG V6 CPE</td> <td>V6 PREMIUM</td> <td>BLACK</td> <td class="textCenter">2</td> <td class="textCenter">6</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter">4X2</td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">L</td> <td class="textRight" nowrap="nowrap">92,531</td> <td class="textRight" nowrap="nowrap">$2,700</td> </tr> <tr><!-- 323 --> <td class="textCenter">2011</td> <td>GMC</td> <td>ACADIA FWD</td> <td>SLE</td> <td>RED</td> <td class="textCenter">4</td> <td class="textCenter">6</td> <td>GAS</td> <td class="textCenter">A</td> <td class="textCenter"></td> <td class="textCenter">A</td> <td>CD</td> <td class="textCenter">HT</td> <td class="textCenter">C</td> <td class="textRight" nowrap="nowrap">79,199</td> <td class="textRight" nowrap="nowrap">$10,700</td> A picture of the table test data is attached here:

      Here is the _query function, and all other relevant code that I can share.
       
      Func _query($aSel, $aUrls) $oIE = _login() If $oIE = "Return" Then Return EndIf $j = 0 While $j < UBound($aSel) - 1 $i = 1 $aucID ;Unable To Share What This Is Other Than Var Name. _IENavigate($oIE, "Something" & $aucID[0] & "Something") _IELoadWait($oIE, 100, 2000) $oObj = _IETableGetCollection($oIE, 3) $cars = _IETableWriteToArray_ProgressBar($oObj, True, "Processing Requested Information!") ;<---- Modified Version See Post For It: https://www.autoitscript.com/forum/topic/195335-solved-how-to-add-a-progress-bar-to-_ietablewritetoarray/?tab=comments#comment-1400699 $carsYear = _filter($cars, 0, 0, GUICtrlRead($year)) $carsMake = _filter($carsYear, 0, 1, GUICtrlRead($make)) Global $carsModel = _filter($carsMake, 0, 2, GUICtrlRead($model)) $i = 0 $engine = GUICtrlRead($engine) If $engine <> "" Then While $i < StringLen($engine) $carsEngine = _filter($carsModel, 0, 6 + $i, StringLeft($engine, 1)) ;_ArrayDisplay($carsModel, "Cars Model Before Array Delete") $x = 1 While $x <= UBound($carsModel) _ArrayDelete($carsModel, $x) $x += 1 WEnd ;_ArrayDisplay($carsModel, "Cars Model After Array Delete") ;_ArrayConcatenate($carsModel, $carsEngine) ;_ArrayDisplay($carsModel, "Cars Model After Concatenate") $engine = StringTrimLeft($engine, 1) $i += 1 WEnd Else Dim $carsEngine[1][16] EndIf _ArrayConcatenate($carsEngine, $carsModel) _ArrayDisplay($carsEngine, "Cars Engine") Dim $carsDriveTrain[1][16] Dim $carsDriveTrain2[1][16] $driveTrainVal = GUICtrlRead($driveTrain) If $driveTrainVal = "4x4" Or $driveTrainVal = "awd" Then $carsDriveTrain = _filter($carsEngine, 0, 9, "4") $carsDriveTrain2 = _filter($carsEngine, 0, 9, "a") ;~ _ArrayDisplay($carsDriveTrain, "Drive Train Before") ;~ If @error Then ;~ MsgBox("", "", "Cars Drive Train Error: " & @error) ;~ EndIf ;~ _ArrayDisplay($carsDriveTrain2, "Drive Train2 Before") ;~ If @error Then ;~ MsgBox("", "", "Cars Drive Train 2 Error: " & @error) ;~ EndIf _ArrayConcatenate($carsDriveTrain, $carsDriveTrain2) _ArrayDisplay($carsDriveTrain, "Drive Train After Concat") ElseIf $driveTrainVal = "" Then _ArrayConcatenate($carsDriveTrain, $carsEngine) Else $carsDriveTrain = _filter($carsEngine, 0, 9, $driveTrain) EndIf Dim $carsOdom[1][16] $min = GUICtrlRead($odomMin) $max = GUICtrlRead($odomMax) For $i = 0 To UBound($carsDriveTrain) - 1 If $carsDriveTrain[$i][14] > $min And $carsDriveTrain[$i][14] < $max Then _ArrayAdd($carsOdom, $carsDriveTrain[$i]) MsgBox("", "", "ADDED!") EndIf Next _ArrayDisplay($carsOdom, "Cars Odom") $j += 1 WEnd _IEQuit($oIE) EndFunc ;==>_query Func _filter($tofilter, $xpos1, $ypos1, $str) ;~ If UBound($tofilter, 1) <= 1 Then ;~ $endx = 0 ;~ Else ;~ $endx = UBound($tofilter, 1) - 1 ;~ EndIf ;~ $cars = _ArrayFindAll($tofilter, $str, $tofilter[$xpos1][$ypos1], $tofilter[$endx][$ypos1], 0, 1, $ypos1, False) $cars = _ArrayFindAll($tofilter, $str, Default, Default, 0, 1, $ypos1) Dim $carsFiltered[1][16] = [["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p"]] ;_ArrayDisplay($carsFiltered) $i = 0 $uBound = UBound($cars) - 1 While $i < $uBound $filtered = _ArrayExtract($tofilter, $cars[$i], $cars[$i], 0, 15) ;_ArrayDisplay($filtered, "_filter Array of Filtered") _ArrayConcatenate($carsFiltered, $filtered) $i += 1 WEnd _ArrayDelete($carsFiltered, 0) Return $carsFiltered EndFunc ;==>_filter  
      If you know of a more efficient way of doing this please let me know would be more than happy to chew down my inefficiency while learning! (It's like my grandpa used to say, "The only criticism I can't use is that which is not given to me.")
       
      The Item an I am using to test the filter is:

       
×