Jump to content

Recommended Posts

Posted (edited)
  On 3/31/2022 at 3:35 AM, mLipok said:

edge://settings/?search=explorer

Expand  

Even easier: 
edge://settings/defaultBrowser

Edited by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted
  On 3/7/2022 at 12:31 AM, mLipok said:

Little refactored version:

; Trap COM errors so that 'Back' and 'Forward'
; outside of history bounds does not abort script
; (expect COM errors to be sent to the console)

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>

Global $oIE
Global $g_idError_Message

_Example()
Exit

Func _Example()
    $oIE = _IECreateEmbedded()
    GUICreate("Embedded Web control Test", 640, 580, _
            (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
            $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    Local $iEmbededIE = GUICtrlCreateObj($oIE, 5, 5, 640-10, 360)
    GUICtrlSetResizing($iEmbededIE, $GUI_DOCKAUTO)

    Local $idButton_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
    Local $idButton_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
    Local $idButton_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
    Local $idButton_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
    GUICtrlCreateLabel("Examples", 10, 462, 100, 21)
    Local $idExamples = GUICtrlCreateCombo("", 110, 460, 300, 25)
    GUICtrlSetData($idExamples, "basic|form|table|frameset|iframe", "basic")
    $g_idError_Message = GUICtrlCreateLabel("", 100, 500, 500, 30)
    GUICtrlSetColor(-1, 0xff0000)

    GUISetState(@SW_SHOW) ;Show GUI

    __IE_Example(GUICtrlRead($idExamples))
    _IEAction($oIE, "stop")

    ; Waiting for user to close the window
    While 1
        Local $iMsg = GUIGetMsg()
        Select
            Case $iMsg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $iMsg = $idButton_Home
                _IENavigate($oIE, "http://www.autoitscript.com")
                _IEAction($oIE, "stop")
                _IEAction($oIE, "back")
                CheckError("Home", @error, @extended)
            Case $iMsg = $idButton_Back
                _IEAction($oIE, "back")
                CheckError("Back", @error, @extended)
            Case $iMsg = $idButton_Forward
                _IEAction($oIE, "forward")
                CheckError("Forward", @error, @extended)
            Case $iMsg = $idButton_Stop
                _IEAction($oIE, "stop")
                CheckError("Stop", @error, @extended)
            Case $iMsg = $idExamples
                __IE_Example(GUICtrlRead($idExamples))
        EndSelect
    WEnd

    GUIDelete()

EndFunc   ;==>_Example


Func CheckError($sMsg, $iError, $iExtended)
    If $iError Then
        $sMsg = "Error using " & $sMsg & " button (" & $iExtended & ")"
    Else
        $sMsg = ""
    EndIf
    GUICtrlSetData($g_idError_Message, $sMsg)
EndFunc   ;==>CheckError

Func __IE_Example($sModule = "basic")
    Local $sHTML = ""
    Switch $sModule
        Case "basic"
            $sHTML &= '<!DOCTYPE html>' & @CR
            $sHTML &= '<html>' & @CR
            $sHTML &= '<head>' & @CR
            $sHTML &= '<meta content="text/html; charset=UTF-8" http-equiv="content-type">' & @CR
            $sHTML &= '<title>_IE_Example("basic")</title>' & @CR
            $sHTML &= '<style>body {font-family: Arial}</style>' & @CR
            $sHTML &= '</head>' & @CR
            $sHTML &= '<body>' & @CR
            $sHTML &= '<a href="http://www.autoitscript.com"><img src="http://www.autoitscript.com/images/logo_autoit_210x72.png" id="AutoItImage" alt="AutoIt Homepage Image" style="background: #204080;"></a>' & @CR
            $sHTML &= '<p></p>' & @CR
            $sHTML &= '<div id="line1">This is a simple HTML page with text, links and images.</div>' & @CR
            $sHTML &= '<br>' & @CR
            $sHTML &= '<div id="line2"><a href="http://www.autoitscript.com">AutoIt</a> is a wonderful automation scripting language.</div>' & @CR
            $sHTML &= '<br>' & @CR
            $sHTML &= '<div id="line3">It is supported by a very active and supporting <a href="http://www.autoitscript.com/forum/">user forum</a>.</div>' & @CR
            $sHTML &= '<br>' & @CR
            $sHTML &= '<div id="IEAu3Data"></div>' & @CR
            $sHTML &= '</body>' & @CR
            $sHTML &= '</html>'
            _IENavigate($oIE, "about:blank")
            _IEDocWriteHTML($oIE, $sHTML)
        Case "table"
            $sHTML &= '<!DOCTYPE html>' & @CR
            $sHTML &= '<html>' & @CR
            $sHTML &= '<head>' & @CR
            $sHTML &= '<meta content="text/html; charset=utf-8" http-equiv="content-type">' & @CR
            $sHTML &= '<title>_IE_Example("table")</title>' & @CR
            $sHTML &= '<style>body {font-family: Arial}</style>' & @CR
            $sHTML &= '</head>' & @CR
            $sHTML &= '<body>' & @CR
            $sHTML &= '$oTableOne = _IETableGetObjByName($oIE, "tableOne")<br>' & @CR
            $sHTML &= '&lt;table border=1 id="tableOne"&gt;<br>' & @CR
            $sHTML &= '<table border=1 id="tableOne">' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>AutoIt</td>' & @CR
            $sHTML &= '     <td>is</td>' & @CR
            $sHTML &= '     <td>really</td>' & @CR
            $sHTML &= '     <td>great</td>' & @CR
            $sHTML &= '     <td>with</td>' & @CR
            $sHTML &= '     <td>IE.au3</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>1</td>' & @CR
            $sHTML &= '     <td>2</td>' & @CR
            $sHTML &= '     <td>3</td>' & @CR
            $sHTML &= '     <td>4</td>' & @CR
            $sHTML &= '     <td>5</td>' & @CR
            $sHTML &= '     <td>6</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>the</td>' & @CR
            $sHTML &= '     <td>quick</td>' & @CR
            $sHTML &= '     <td>red</td>' & @CR
            $sHTML &= '     <td>fox</td>' & @CR
            $sHTML &= '     <td>jumped</td>' & @CR
            $sHTML &= '     <td>over</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>the</td>' & @CR
            $sHTML &= '     <td>lazy</td>' & @CR
            $sHTML &= '     <td>brown</td>' & @CR
            $sHTML &= '     <td>dog</td>' & @CR
            $sHTML &= '     <td>the</td>' & @CR
            $sHTML &= '     <td>time</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>has</td>' & @CR
            $sHTML &= '     <td>come</td>' & @CR
            $sHTML &= '     <td>for</td>' & @CR
            $sHTML &= '     <td>all</td>' & @CR
            $sHTML &= '     <td>good</td>' & @CR
            $sHTML &= '     <td>men</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>to</td>' & @CR
            $sHTML &= '     <td>come</td>' & @CR
            $sHTML &= '     <td>to</td>' & @CR
            $sHTML &= '     <td>the</td>' & @CR
            $sHTML &= '     <td>aid</td>' & @CR
            $sHTML &= '     <td>of</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= '</table>' & @CR
            $sHTML &= '<br>' & @CR
            $sHTML &= '$oTableTwo = _IETableGetObjByName($oIE, "tableTwo")<br>' & @CR
            $sHTML &= '&lt;table border="1" id="tableTwo"&gt;<br>' & @CR
            $sHTML &= '<table border=1 id="tableTwo">' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td colspan="4">Table Top</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>One</td>' & @CR
            $sHTML &= '     <td colspan="3">Two</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>Three</td>' & @CR
            $sHTML &= '     <td>Four</td>' & @CR
            $sHTML &= '     <td colspan="2">Five</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>Six</td>' & @CR
            $sHTML &= '     <td colspan="3">Seven</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= ' <tr>' & @CR
            $sHTML &= '     <td>Eight</td>' & @CR
            $sHTML &= '     <td>Nine</td>' & @CR
            $sHTML &= '     <td>Ten</td>' & @CR
            $sHTML &= '     <td>Eleven</td>' & @CR
            $sHTML &= ' </tr>' & @CR
            $sHTML &= '</table>' & @CR
            $sHTML &= '</body>' & @CR
            $sHTML &= '</html>'
            _IENavigate($oIE, "about:blank")
            _IEDocWriteHTML($oIE, $sHTML)
        Case "form"
            $sHTML &= '<!DOCTYPE html>' & @CR
            $sHTML &= '<html>' & @CR
            $sHTML &= '<head>' & @CR
            $sHTML &= '<meta content="text/html; charset=UTF-8" http-equiv="content-type">' & @CR
            $sHTML &= '<title>_IE_Example("form")</title>' & @CR
            $sHTML &= '<style>body {font-family: Arial}' & @CR
            $sHTML &= 'td {padding:6px}</style>' & @CR
            $sHTML &= '</head>' & @CR
            $sHTML &= '<body>' & @CR
            $sHTML &= '<form name="ExampleForm" onSubmit="javascript:alert(''ExampleFormSubmitted'');" method="post">' & @CR
            $sHTML &= '<table style="border-spacing:6px 6px;" border=1>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>ExampleForm</td>' & @CR
            $sHTML &= '<td>&lt;form name="ExampleForm" onSubmit="javascript:alert(''ExampleFormSubmitted'');" method="post"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>Hidden Input Element<input type="hidden" name="hiddenExample" value="secret value"></td>' & @CR
            $sHTML &= '<td>&lt;input type="hidden" name="hiddenExample" value="secret value"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<input type="text" name="textExample" value="http://" size="20" maxlength="30">' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;input type="text" name="textExample" value="http://" size="20" maxlength="30"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<input type="password" name="passwordExample" size="10">' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;input type="password" name="passwordExample" size="10"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<input type="file" name="fileExample">' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;input type="file" name="fileExample"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<input type="image" name="imageExample" alt="AutoIt Homepage" src="http://www.autoitscript.com/images/logo_autoit_210x72.png" style="background: #204080;>' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;input type="image" name="imageExample" alt="AutoIt Homepage" src="http://www.autoitscript.com/images/logo_autoit_210x72.png"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<textarea name="textareaExample" rows="5" cols="15">Hello!</textarea>' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;textarea name="textareaExample" rows="5" cols="15"&gt;Hello!&lt;/textarea&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<input type="checkbox" name="checkboxG1Example" value="gameBasketball">Basketball<br>' & @CR
            $sHTML &= '<input type="checkbox" name="checkboxG1Example" value="gameFootball">Football<br>' & @CR
            $sHTML &= '<input type="checkbox" name="checkboxG2Example" value="gameTennis" checked>Tennis<br>' & @CR
            $sHTML &= '<input type="checkbox" name="checkboxG2Example" value="gameBaseball">Baseball' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;input type="checkbox" name="checkboxG1Example" value="gameBasketball"&gt;Basketball&lt;br&gt;<br>' & @CR
            $sHTML &= '&lt;input type="checkbox" name="checkboxG1Example" value="gameFootball"&gt;Football&lt;br&gt;<br>' & @CR
            $sHTML &= '&lt;input type="checkbox" name="checkboxG2Example" value="gameTennis" checked&gt;Tennis&lt;br&gt;<br>' & @CR
            $sHTML &= '&lt;input type="checkbox" name="checkboxG2Example" value="gameBaseball"&gt;Baseball</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<input type="radio" name="radioExample" value="vehicleAirplane">Airplane<br>' & @CR
            $sHTML &= '<input type="radio" name="radioExample" value="vehicleTrain" checked>Train<br>' & @CR
            $sHTML &= '<input type="radio" name="radioExample" value="vehicleBoat">Boat<br>' & @CR
            $sHTML &= '<input type="radio" name="radioExample" value="vehicleCar">Car</td>' & @CR
            $sHTML &= '<td>&lt;input type="radio" name="radioExample" value="vehicleAirplane"&gt;Airplane&lt;br&gt;<br>' & @CR
            $sHTML &= '&lt;input type="radio" name="radioExample" value="vehicleTrain" checked&gt;Train&lt;br&gt;<br>' & @CR
            $sHTML &= '&lt;input type="radio" name="radioExample" value="vehicleBoat"&gt;Boat&lt;br&gt;<br>' & @CR
            $sHTML &= '&lt;input type="radio" name="radioExample" value="vehicleCar"&gt;Car&lt;br&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<select name="selectExample">' & @CR
            $sHTML &= '<option value="homepage.html">Homepage' & @CR
            $sHTML &= '<option value="midipage.html">Midipage' & @CR
            $sHTML &= '<option value="freepage.html">Freepage' & @CR
            $sHTML &= '</select>' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;select name="selectExample"&gt;<br>' & @CR
            $sHTML &= '&lt;option value="homepage.html"&gt;Homepage<br>' & @CR
            $sHTML &= '&lt;option value="midipage.html"&gt;Midipage<br>' & @CR
            $sHTML &= '&lt;option value="freepage.html"&gt;Freepage<br>' & @CR
            $sHTML &= '&lt;/select&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<select name="multipleSelectExample" size="6" multiple>' & @CR
            $sHTML &= '<option value="Name1">Aaron' & @CR
            $sHTML &= '<option value="Name2">Bruce' & @CR
            $sHTML &= '<option value="Name3">Carlos' & @CR
            $sHTML &= '<option value="Name4">Denis' & @CR
            $sHTML &= '<option value="Name5">Ed' & @CR
            $sHTML &= '<option value="Name6">Freddy' & @CR
            $sHTML &= '</select>' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;select name="multipleSelectExample" size="6" multiple&gt;<br>' & @CR
            $sHTML &= '&lt;option value="Name1"&gt;Aaron<br>' & @CR
            $sHTML &= '&lt;option value="Name2"&gt;Bruce<br>' & @CR
            $sHTML &= '&lt;option value="Name3"&gt;Carlos<br>' & @CR
            $sHTML &= '&lt;option value="Name4"&gt;Denis<br>' & @CR
            $sHTML &= '&lt;option value="Name5"&gt;Ed<br>' & @CR
            $sHTML &= '&lt;option value="Name6"&gt;Freddy<br>' & @CR
            $sHTML &= '&lt;/select&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td>' & @CR
            $sHTML &= '<input name="submitExample" type="submit" value="Submit">' & @CR
            $sHTML &= '<input name="resetExample" type="reset" value="Reset">' & @CR
            $sHTML &= '</td>' & @CR
            $sHTML &= '<td>&lt;input name="submitExample" type="submit" value="Submit"&gt;<br>' & @CR
            $sHTML &= '&lt;input name="resetExample" type="reset" value="Reset"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '</table>' & @CR
            $sHTML &= '<input type="hidden" name="hiddenExample" value="secret value">' & @CR
            $sHTML &= '</form>' & @CR
            $sHTML &= '</body>' & @CR
            $sHTML &= '</html>'
            _IENavigate($oIE, "about:blank")
            _IEDocWriteHTML($oIE, $sHTML)
        Case "frameset"
            $sHTML &= '<!DOCTYPE html>' & @CR
            $sHTML &= '<html>' & @CR
            $sHTML &= '<head>' & @CR
            $sHTML &= '<meta content="text/html; charset=UTF-8" http-equiv="content-type">' & @CR
            $sHTML &= '<title>_IE_Example("frameset")</title>' & @CR
            $sHTML &= '</head>' & @CR
            $sHTML &= '<frameset rows="25,200">' & @CR
            $sHTML &= ' <frame name=Top SRC=about:blank>' & @CR
            $sHTML &= ' <frameset cols="100,500">' & @CR
            $sHTML &= '     <frame name=Menu SRC=about:blank>' & @CR
            $sHTML &= '     <frame name=Main SRC=about:blank>' & @CR
            $sHTML &= ' </frameset>' & @CR
            $sHTML &= '</frameset>' & @CR
            $sHTML &= '</html>'
            _IENavigate($oIE, "about:blank")
            _IENavigate($oIE, "about:blank")
            _IEDocWriteHTML($oIE, $sHTML)
            _IEAction($oIE, "refresh")
            Local $oFrameTop = _IEFrameGetObjByName($oIE, "Top")
            Local $oFrameMenu = _IEFrameGetObjByName($oIE, "Menu")
            Local $oFrameMain = _IEFrameGetObjByName($oIE, "Main")
            _IEBodyWriteHTML($oFrameTop, '$oFrameTop = _IEFrameGetObjByName($oIE, "Top")')
            _IEBodyWriteHTML($oFrameMenu, '$oFrameMenu = _IEFrameGetObjByName($oIE, "Menu")')
            _IEBodyWriteHTML($oFrameMain, '$oFrameMain = _IEFrameGetObjByName($oIE, "Main")')
        Case "iframe"
            $sHTML &= '<!DOCTYPE html>' & @CR
            $sHTML &= '<html>' & @CR
            $sHTML &= '<head>' & @CR
            $sHTML &= '<meta content="text/html; charset=UTF-8" http-equiv="content-type">' & @CR
            $sHTML &= '<title>_IE_Example("iframe")</title>' & @CR
            $sHTML &= '<style>td {padding:6px}</style>' & @CR
            $sHTML &= '</head>' & @CR
            $sHTML &= '<body>' & @CR
            $sHTML &= '<table style="border-spacing:6px" border=1>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td><iframe name="iFrameOne" src="about:blank" title="iFrameOne"></iframe></td>' & @CR
            $sHTML &= '<td>&lt;iframe name="iFrameOne" src="about:blank" title="iFrameOne"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '<tr>' & @CR
            $sHTML &= '<td><iframe name="iFrameTwo" src="about:blank" title="iFrameTwo"></iframe></td>' & @CR
            $sHTML &= '<td>&lt;iframe name="iFrameTwo" src="about:blank" title="iFrameTwo"&gt;</td>' & @CR
            $sHTML &= '</tr>' & @CR
            $sHTML &= '</table>' & @CR
            $sHTML &= '</body>' & @CR
            $sHTML &= '</html>'
            _IENavigate($oIE, "about:blank")
            _IEDocWriteHTML($oIE, $sHTML)
            _IEAction($oIE, "refresh")
            Local $oIFrameOne = _IEFrameGetObjByName($oIE, "iFrameOne")
            Local $oIFrameTwo = _IEFrameGetObjByName($oIE, "iFrameTwo")
            _IEBodyWriteHTML($oIFrameOne, '$oIFrameOne = _IEFrameGetObjByName($oIE, "iFrameOne")')
            _IEBodyWriteHTML($oIFrameTwo, '$oIFrameTwo = _IEFrameGetObjByName($oIE, "iFrameTwo")')
        Case Else
            __IEConsoleWriteError("Error", "_IE_Example", "$_IESTATUS_InvalidValue")
            Return SetError($_IESTATUS_InvalidValue, 1, 0)
    EndSwitch

    ;   at least under IE10 some delay is needed to have functions as _IEPropertySet() working
    ;   value can depend of processor speed ...
    Sleep(500)
    Return SetError($_IESTATUS_Success, 0, $oIE)
EndFunc   ;==>__IE_Example

 

It is compiliant with Au3Check, and includes some GUI improvements (resizing).

Expand  

 

  On 3/31/2022 at 3:38 AM, mLipok said:

Hah...

Expand  

..the error is in reference to the above.

Follow the link to my code contribution ( and other things too ).
FAQ - Please Read Before Posting.
autoit_scripter_blue_userbar.png

Posted
  On 3/31/2022 at 3:48 AM, argumentum said:

..the error is in reference to the above.

Expand  

Thanks.

Modified:

 

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted
  On 3/31/2022 at 3:52 AM, argumentum said:

ok, sat it to "Always".  The run the script, Explorer pop-up and it went to Edge right after.

Expand  

As you set it to "Always... run Edge" do not expect it will stick with Explorer.

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 4 weeks later...
Posted (edited)

Interestning:

https://www.winhelponline.com/blog/disable-auto-redirect-unsupported-sites-ie-to-edge/

Question:
How to use this following DLL ?

  Quote

C:\Program Files (x86)\Microsoft\Edge\Application\100.0.1185.50\BHO\ie_to_edge_bho.dll
C:\Program Files (x86)\Microsoft\Edge\Application\100.0.1185.50\BHO\ie_to_edge_bho_64.dll

Expand  


EDIT:
Btw. I know that there are Win Registry Key to use.

RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Ext\CLSID', '{1FD49718-1D00-4B19-AF5F-070AF6D5D54C}', "REG_SZ", 0)

 

Edited by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted (edited)

https://www.lansweeper.com/eol/internet-explorer-11-end-of-life/

https://techcommunity.microsoft.com/t5/windows-it-pro-blog/internet-explorer-11-desktop-app-retirement-faq/ba-p/2366549

 

  Quote

Windows 10 Enterprise, version 20H2

5/9/2023

Windows 10 Enterprise, version 2004

12/14/2021

Expand  

 

What this really mean ?

Does this mean that MS simply ends support but leaves the product still available, in principle you can use it, but don't count on us anymore in this regard ?

Edited by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted
  On 4/26/2022 at 12:46 PM, Danp2 said:

What would you want to do with it? How would having access to it be useful?

Expand  

I am just trying to figure out the answer to these two questions.

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 4 weeks later...
Posted
  On 4/26/2022 at 8:17 AM, mLipok said:

Interestning:

https://www.winhelponline.com/blog/disable-auto-redirect-unsupported-sites-ie-to-edge/

Question:
How to use this following DLL ?


EDIT:
Btw. I know that there are Win Registry Key to use.

RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Ext\CLSID', '{1FD49718-1D00-4B19-AF5F-070AF6D5D54C}', "REG_SZ", 0)

 

Expand  

It's a DLL specifically for IE. BHO stands for browser helper object. Here's a MS article on them from 2007. Not sure if it'll be useful outside of IE.

My UDFs are generally for me. If they aren't updated for a while, it means I'm not using them myself. As soon as I start using them again, they'll get updated.

My Projects

WhyNotWin11
Cisco FinesseGithubIRC UDFWindowEx UDF

 

  • 3 months later...
Posted (edited)
  On 3/31/2022 at 3:38 AM, mLipok said:

so here is modified script:

#include <IE.au3>
_IEErrorHandlerRegister()

_Example()
Exit

Func _Example()
    Local $oIE = _IECreate()
    Sleep(2000)
    _IENavigate($oIE, 'www.google.com')
EndFunc   ;==>_Example

 

Expand  

 

  On 3/31/2022 at 2:43 AM, mLipok said:

REQUEST:
To anybody who have Windows 11 installed from scratch (not migrated from Windows 10):
Please try to use my script which I posted above.

Expand  

I recently bought a Mini S computer and installed Windows 11 Pro from scratch. In the Windows Settings for Apps I set Chrome as default app for .htm and .html documents. I didn't change anything in Edge's settings.
The above code runs flawlessly.

Edited by CYCho
  • 6 months later...
Posted
  On 3/31/2022 at 3:35 AM, mLipok said:

 

There is still a need to change settings:

 

image.png.bc9d5e4bb24c7f6431ec34326bbc7371.png

edge://settings/?search=explorer

 

Just try to set NEVER and DEFAULT

image.png.830890e75320a193bc56cd7c3affb025.png

Expand  

on some system I had to add this following Registry entries:

;~ https://admx.help/?Category=EdgeChromium&Policy=Microsoft.Policies.Edge::InternetExplorerIntegrationLevel&Language=pl-pl
RegWrite('HKEY_CURRENT_USER\Software\Policies\Microsoft\Edge', 'InternetExplorerIntegrationLevel', 'REG_DWORD', 2)
;~ https://support.waters.com/KB_Inf/Other/WKB191566_How_to_enable_Open_sites_in_Internet_Explorer_mode_in_Microsoft_Edge
RegWrite('HKLM\Software\WOW6432Node\Policies\Microsoft\Edge', 'InternetExplorerIntegrationLevel', 'REG_DWORD', 1)
RegWrite('HKCU\Software\Policies\Microsoft\Edge', 'InternetExplorerIntegrationLevel', 'REG_DWORD', 1)
RegWrite('HKLM\Software\Policies\Microsoft\Edge', 'InternetExplorerIntegrationLevel', 'REG_DWORD', 1)
_IECreate("https://www.google.com")

 

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted

On some other system this is not working when 

#RequireAdmin

is used.
 

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...