Jump to content
Ascend4nt

IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI)

Recommended Posts

JohnOne

Cheers bud, pretty ace.

Any Idea why protected mode is turned off, and if so how to enable it?

EDIT: scrap that question Protected mode was not introduced until IE 8 I believe.

EDIT2: Discovered while the control is good for html5 it still will not handle flash games like those bingo or card games on the face book.

Edited by JohnOne

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
Ascend4nt

JohnOne, I'm not sure about Protected mode.  There may be a way to enable/disable it, but I haven't looked into it myself yet.

Also, I've just tested the control on a random flash game (from armorgames.com), and it worked fine.  Did you successfully login to facebook before trying to run those games?  Maybe there's some other incompatibility issue?

By the way, I'm using IE11 and the latest flash plugin for my tests.

Share this post


Link to post
Share on other sites
JohnOne

I use IE 11 and have latest flash also.

It simply would not load any games I tried, including farmville, slingo bingo and others.

Just tried on IE normal and when entered game area got a security message about the content which I choose show all content.

Never seen this with UDF, could be related.

Edited by JohnOne

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
Ascend4nt

JohnOne, all the UDF does is set a value in the registry.  You can try experimenting with different IE versions if you like, or the DOCTYPE setting, etc.  As far as IE browser and security settings, I am not sure how that would be done programmatically.  But the UDF has nothing to do with that stuff :)

Also, I saw a message from mesale0077 earlier that I see he deleted (dude, stop deleting your posts!), referencing >his thread in General Help & Support.

Anyway, he solved the problem he was having by deleting the key, but really the problem stems from the fact that the HTMLDocumentEvents2 interface has changed starting IE11.  See MSDNs HTMLDocumentEvents2 interface page for information on the changes in IE11.  The workaround?  Either figure out how to work with the new interface, or set the Browser Emulation mode to IE 10 or lower.

Edit: Turns out the problem mesale0077 was having isn't related to the new IE11 event objects, but rather to the fact that the <a> anchor elements (without text) weren't registering as being clicked.  Moving the id="#" attributes to the <img> element (or even the <span> element) actually solves the problem.

Edit2: A better option was conceived: on a click, check the parentNode to see if it is an <a> anchor element and if so, what its id attribute is. (see the code in >this post).

Edited by Ascend4nt

Share this post


Link to post
Share on other sites
Ascend4nt

Since everyone likes to look at pictures, I added one ;)

Also, some changes:

2014-08-19:

Changed: UDF Renamed to IE_EmbeddedVersioning

Changed: Function _IE_EmbeddedSetBrowserEmulation() can be called with no parameters - in this case, it sets the Browser Emulation Flags to reflect the current installed version of IE

Updated: HTML5 Canvas demo

  • Like 1

Share this post


Link to post
Share on other sites
mesale0077

IE_EmbeddedVersioning.au3
mini changed
 
added
#include <Process.au3>
OnAutoItExitRegister("_IE_Embedded_unregistry")
 
 
 
Func _IE_Embedded_unregistry()
     RegDelete('HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainFeatureControlFEATURE_BROWSER_EMULATION', _ProcessGetName(@AutoItPID))
  endfunc

Edited by mesale0077
Copied UDF code removed

Share this post


Link to post
Share on other sites
Ascend4nt

IE_EmbeddedVersioning.au3

mini changed

added

#include <Process.au3>

OnAutoItExitRegister("_IE_Embedded_unregistry")

 

Func _IE_Embedded_unregistry()

     RegDelete('HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainFeatureControlFEATURE_BROWSER_EMULATION', _ProcessGetName(@AutoItPID))

  endfunc

 

mesale0077, a 'feature request' might work better, than adding your own (flawed) code.  And why post the entire UDF? Please delete it from your post as it will not reflect the current and new versions of the UDF.

Anyway, even though you didn't really ask, I went ahead and added a 'Remove' function to the UDF, which actually works correctly for both HKCU and HKLM branches..

2014-08-19 Update 2:

Added: _IE_EmbeddedRemoveBrowserEmulation() per (pseudo-request) by mesale0077

Changed: _IE_EmbeddedGetBrowserEmulation() parameters are rearranged to match other function signatures

Update in 1st post

  • Like 1

Share this post


Link to post
Share on other sites
Ascend4nt

I suppose it might be of interest how the Canvas example would be done in Javascript, and how it compares to the AutoiIt script, so here's the html & Javascript code:

HTML:

<!DOCTYPE html>
<html>
 <head>
     <meta content="text/html; charset=UTF-8" http-equiv="content-type">
     <title>Experiments</title>
     <style>
         canvas { display:block; background-color:white; outline:#00FF00 dotted thin;}
     </style>     
    <script src="html5-canvas-click-example.js" type="text/javascript" language="javascript"></script>
 </head>
 <body>
    <!-- onevent="func()" attributes fail to pass event objects correctly in Firefox, so addEventListener() is used instead
    <canvas width=420 height=320 id="myCanvas" onmousedown="MouseDownCanv()" onmouseup="MouseUpCanv()" oncontextmenu="OnCanvCtxMenu()">
     -->
    <canvas width=420 height=320 id="myCanvas">
    If you are seeing this, your browser doesn't support HTML5 Canvas.
    </canvas>
 </body>
</html>

Javascript (named "html5-canvas-click-example.js"):

// Simple interactive HTML5 Canvas demo
// Author: Ascend4nt (except MouseEventToCanvasCoords() by Mark Pilgrim)

// Globals
var g_Canvas, g_Ctx;
var g_LastX, g_LastY;
var g_bMouseDown = false;

// Canvas event coordinate transfer
// (from http://diveintohtml5.info/canvas.html)
// Author: Mark Pilgrim
function MouseEventToCanvasCoords(e, Canvas)
{
    var x, y;
    if (e.pageX != undefined && e.pageY != undefined) {
        x = e.pageX;
        y = e.pageY;
    }
    else {
        x = e.clientX + document.body.scrollLeft +
            document.documentElement.scrollLeft;
        y = e.clientY + document.body.scrollTop +
            document.documentElement.scrollTop;
    }
    x -= Canvas.offsetLeft;
    y -= Canvas.offsetTop;
    return [x, y];
}
// "oncontextmenu" handler for Canvas
function OnCanvCtxMenu(evt)
{
    evt = evt || window.event;    
    //console.log("Canvas Context-menu event");

    // Prevent the Default context menu from showing up:
    evt.preventDefault();
    evt.returnValue = false;    
}
// "onmousedown" handler for Canvas
// - Draws small box, records X, Y position -
function MouseDownCanv(evt)
{
    evt = evt || window.event;
    //var elem = evt.target || event.SrcElement;

    // evt.x doesn't work on Firefox:
    //g_LastX = evt.x - g_Canvas.offsetLeft;
    //g_LastY = evt.y - g_Canvas.offsetTop;
    var coords = MouseEventToCanvasCoords(evt, g_Canvas);
    g_LastX = coords[0];
    g_LastY = coords[1];
    
    //console.log("Mouse down recvd, X = " + g_LastX);
    
    g_bMouseDown = true;
    g_Ctx.fillStyle = "blue";
    g_Ctx.fillRect(g_LastX - 2, g_LastY - 2, 3, 3);
}
// "onmouseup" handler for Canvas
// - Draws either a line from last X, Y, or draws a circle if no movement -
function MouseUpCanv(evt)
{
    evt = evt || window.event;
    if (g_bMouseDown)
    {
        var coords = MouseEventToCanvasCoords(evt, g_Canvas);
        var x2 = coords[0], y2 = coords[1];
        
        // Assemble random color string
        // as a # followed by 3 hex pairs: "#1A2B3C"
        var sColor = "#";
        for (i = 0; i < 3; i++)
            sColor += Math.floor((Math.random() * 256)).toString(16);
        
        //console.log("Color = " + sColor);

        // Draw either a line or circle depending on where the mouse button is released
        if (x2 == g_LastX && y2 == g_LastY)
        {
            // Circle if mouse start = mouse end
            g_Ctx.beginPath();
            g_Ctx.arc(x2, y2, 8, 0, Math.PI * 2);
            g_Ctx.fillStyle = sColor;
            g_Ctx.fill();
        } else {
            // Line if mouse start <> mouse end
            g_Ctx.beginPath();
            g_Ctx.lineWidth = "3";
            g_Ctx.strokeStyle = sColor;
            g_Ctx.moveTo(g_LastX, g_LastY);
            g_Ctx.lineTo(x2, y2);
            g_Ctx.stroke();
        }
        g_bMouseDown = false;
    }    
}
// Main function (runs after page is loaded)
function main()
{
    //console.log("HTML loaded");
    
    // Get Canvas element and Context
    g_Canvas = document.getElementById("myCanvas");
    if (!g_Canvas) return;
    g_Ctx = g_Canvas.getContext("2d");
    if (!g_Ctx) return;   
    
    // Add event handlers (The onevent="func()" attributes work incorrectly
    // in Firefox [event objects aren't passed])
    // Also, older IE versions might need .attachEvent()
    g_Canvas.addEventListener("mousedown", MouseDownCanv, false);
    g_Canvas.addEventListener("mouseup", MouseUpCanv, false);
    g_Canvas.addEventListener("contextmenu", OnCanvCtxMenu, false);
    
    // Example Drawing: Gradient:    
    var Grad = g_Ctx.createLinearGradient(0,0,0,60);
    if (Grad)
    {
        Grad.addColorStop(0, "red");
        Grad.addColorStop(1, "blue");
        g_Ctx.fillStyle = Grad;
    }
    g_Ctx.fillRect(0,0,419,60);
     
    // Example Drawing: Text
    g_Ctx.font = "30px serif";
    g_Ctx.fillStyle = "white";
    g_Ctx.textBaseline = "top";
    g_Ctx.fillText("HTML5 Canvas Drawing!", 50, 10);
    
    // Example Drawing: Circle, Line
    g_Ctx.beginPath();
    g_Ctx.arc(200, 100, 20, 0, Math.PI * 2);
    g_Ctx.fillStyle = "red";
    g_Ctx.fill();

    g_Ctx.beginPath();
    g_Ctx.lineWidth = "3";
    g_Ctx.strokeStyle = "green";
    g_Ctx.moveTo(185, 85);
    g_Ctx.lineTo(215, 115);
    g_Ctx.stroke();
    
    // End main [event handlers will continue to run]
}

window.onload = main;

_

edit: see >1st post for the 'standalone' ZIP file with these 2 files inside

Edited by Ascend4nt

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

    • SkysLastChance
      By SkysLastChance
      I have a goofy problem. I am hoping someone could shed some light. The example is not going around the text box. It is way off. 
      I have seen some post blaming IE 11, however I have IE11 on my desktop and it works fine.
      Is there anything I can do that might fix this? 
       
      ; Open a browser with the form example and get a reference to the form ; textarea element. Get the coordinates and dimensions of the text area, ; outline its shape with the mouse and come to rest in the center #include <IE.au3> Local $oIE = _IE_Example("form") Local $oForm = _IEFormGetObjByName($oIE, "ExampleForm") Local $oTextArea = _IEFormElementGetObjByName($oForm, "textareaExample") ; Get coordinates and dimensions of the textarea Local $iScreenX = _IEPropertyGet($oTextArea, "screenx") Local $iScreenY = _IEPropertyGet($oTextArea, "screeny") Local $iWidth = _IEPropertyGet($oTextArea, "width") Local $iHeight = _IEPropertyGet($oTextArea, "height") ; Outline the textarea with the mouse, come to rest in the center Local $iMousespeed = 50 MouseMove($iScreenX, $iScreenY, $iMousespeed) MouseMove($iScreenX + $iWidth, $iScreenY, $iMousespeed) MouseMove($iScreenX + $iWidth, $iScreenY + $iHeight, $iMousespeed) MouseMove($iScreenX, $iScreenY + $iHeight, $iMousespeed) MouseMove($iScreenX, $iScreenY, $iMousespeed) MouseMove($iScreenX + $iWidth / 2, $iScreenY + $iHeight / 2, $iMousespeed)  
       
    • Rskm
      By Rskm
      Hi, for a script of mine, I wish to keep a time frame on till how the program will work.. basically, I want the program to read the date and if the read date < 'a particular date', the program continues, else it exit. I don't want to read the time from the computer as the program can be fooled by resetting the pc time. is there a way to read time from internet - so that the user cannot fool the program by date reset? thanks
    • SkysLastChance
      By SkysLastChance
      So I have two things I am trying to click.
      Policy which works.
      $oInputs3 = _IETagNameGetCollection($oIE, "div") For $oInput3 in $oInputs3 If StringStripWS($oInput3.innertext,1) = "Policy" Then $target = $oInput3 _IELoadWait($target,"",70000) ExitLoop EndIf Next _IEAction($target, "click")  

      And Add Insurance which I havent been able to get to work. 
      $oInputs2 = _IETagNameGetCollection($oIE, "div") For $oInput2 in $oInputs2 If StringStripWS($oInput2.innertext,1) = "Add Insurance" Then $target = $oInput2 _IELoadWait($target,"",70000) ExitLoop EndIf Next _IEAction($target, "click")

      Any Ideas on what I am doing wrong?  I feel like it might be the spaces between >  Add Insurance  < but I am not sure. 
    • FMS
      By FMS
      Hello,
      I'm trying to read a div element and wait until it hits 100%.
      The structure is like :
      <div class="progress-bar" style="width: 48.0219%;  overflow: hidden; "></div>
      And want to wait until :
      <div class="progress-bar" style="width: 100%;  overflow: hidden; "></div>
      because afther this there will be an redirection whish i don't know the URL from and want to catsh this URL.
      And want to push a button on this redidertion page.

      Is there a best pratice way how to do this or is there a better way to wait for the redirection?
      Maybe wait until button exist or something?

      Does anybody could give me some tips about this challange?
       
      thnx in advanced.
       
      #include <IE.au3> Global $IE_flvto = _IECreate("https://www.website.com/",0,1,1,1) Global $oForm = _IEFormGetObjByName ($IE_flvto, "convertForm") Global $oText = _IEFormElementGetObjByName ($oForm, "convertUrl") _IEFormElementSetValue ($oText, "some text") _IEFormSubmit($oForm) ;wait for redirection ;if redirection loaded push button  
    • Juvigy
      By Juvigy
       Hi Guys,
      Could you please try out my script on win10 machine (simple site scrape)? One of my users complains it doesnt work on his win10, but it works fine on my win7. The error he gets is on the .FireEvent call. I think it is admin rights or IE / Edge issue, but don't have win10 to test it out.
      Thanks in advance.
       
      #include <IE.au3> #include <Array.au3> #include <Excel.au3> Global $oIE,$string Dim $destination[8] = ["Viña del Mar", "Rancagua", "Pucon", "Copiapo", "Temuco", "La serena", "Puerto Montt", "Valdivia"] Dim $FinalResult[1][3] $FinalResult[0][0] = "Destination" $FinalResult[0][1] = "Ida" $FinalResult[0][2] = "Vuelta" Attach("https://www.turbus.cl/") If IsObj($oIE) = 0 Then ConsoleWrite("IE error??"&@CRLF) $oIE = _IECreate() EndIf For $i=0 to UBound($destination)-1 Step 1 _IENavigate($oIE,"https://www.turbus.cl/") $site1 = _IEGetObjById($oIE,"j_id_id122:cmbCiudadOrigenV2") While @error Sleep(1000) $site1 = _IEGetObjById($oIE,"j_id_id122:cmbCiudadOrigenV2") WEnd $site2 = _IEGetObjById($oIE,"j_id_id122:cmbCiudadDestinoV2") $date1 = _IEGetObjById($oIE,"j_id_id122:calIdaV2InputDate") $date2 = _IEGetObjById($oIE,"j_id_id122:calVueltaV2InputDate") $buttun1 = _IEGetObjById($oIE,"j_id_id122:botonContinuarV2") $site1.Value = "Santiago" $site2.Value = $destination[$i] $date1.Value = @MDAY+1&"/"&@MON&"/"&@YEAR $date2.Value = @MDAY+4&"/"&@MON&"/"&@YEAR _IEAction($buttun1,"click") _IELoadWait($oIE) $array = GetResult(GetData()) If IsArray($array) = 0 OR UBound($array,1) < 1 Or UBound($array,2) < 2 Then MsgBox(0,UBound($array,1), UBound($array,2)) _ArrayDisplay($array,"$array") ContinueLoop EndIf _ArrayAdd($FinalResult,"Santiago-"&$destination[$i]&"|"&$array[0][0]&"|"&$array[0][1]) Next ;~ _ArrayDisplay($FinalResult) Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Local $oWorkbook = _Excel_BookNew($oExcel) If @error Then MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example", "Error creating the new workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $FinalResult, "A1") If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example 2", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Func GetData() Local $string1,$string2 $ida = _IEGetObjById($oIE,"tbIda_lbl") While @error Sleep(1000) $ida = _IEGetObjById($oIE,"tbIda_lbl") WEnd _IEAction($ida,"click") Sleep(2000) $result1 = _IEGetObjById($oIE,"pnlReglaIda:idPersonalizaPasaje:tb") While @error $ida.FireEvent("onmouseover") Sleep(1000) $ida.FireEvent("onclick") Sleep(1000) $result1 = _IEGetObjById($oIE,"pnlReglaIda:idPersonalizaPasaje:tb") WEnd $string1 = $string1 & $result1.innertext&@CRLF $vuelta = _IEGetObjById($oIE,"tbVuelta_lbl") _IEAction($vuelta,"click") Sleep(2000) $result2 = _IEGetObjById($oIE,"pnlReglaVuelta:idPersonalizaPasajeRegreso:tb") While @error $vuelta.FireEvent("onmouseover") Sleep(1000) $vuelta.FireEvent("onclick") Sleep(1000) $result2 = _IEGetObjById($oIE,"pnlReglaVuelta:idPersonalizaPasajeRegreso:tb") WEnd $string2 = $string2 & $result2.innertext&@CRLF Return $string1&"|"&$string2 EndFunc Func Attach($atachadres) Local $i = 1 While 1 $oIE = _IEAttach("", "instance", $i) If @error = $_IEStatus_NoMatch Then $oIE = 0 ExitLoop EndIf If StringLeft(_IEPropertyGet($oIE, "locationurl"),StringLen($atachadres)) = $atachadres Then ExitLoop $i += 1 WEnd EndFunc Func GetResult($String) Dim $Master[0][2] ,$Master2[1][2] $2strings = StringSplit($String,"|",2) $Strings = StringSplit($2strings[0],@CRLF,2) $Strings = _ArrayUnique($Strings) For $i=0 to UBound($Strings)-1 Step 1 $Data = StringSplit($Strings[$i],"$",2) $add = _ArrayToString($Data) _ArrayAdd($Master,$add) Next For $i=UBound($Master,1)-1 to 0 Step -1 If $Master[$i][1] = "" Then _ArrayDelete($Master,$i) Next _ArraySort($Master,0, 0, 0,1) $Master2[0][0] = $Master[0][0]&$Master[0][1] Dim $Master[0][2] $Strings = StringSplit($2strings[1],@CRLF,2) $Strings = _ArrayUnique($Strings) For $i=0 to UBound($Strings)-1 Step 1 $Data = StringSplit($Strings[$i],"$",2) $add = _ArrayToString($Data) _ArrayAdd($Master,$add) Next For $i=UBound($Master,1)-1 to 0 Step -1 If $Master[$i][1] = "" Then _ArrayDelete($Master,$i) Next _ArraySort($Master,0, 0, 0,1) $Master2[0][1] = $Master[0][0]&$Master[0][1] Return $Master2 EndFunc  
×