Jump to content
Sign in to follow this  
icu

[Solved] Forcing IE9 into IE8 Browser Mode?

Recommended Posts

Right so IE9 breaks AutoIt scripts... and the Devs are working on it and the Beta may fix things.

Mean time the best 'work around' solution offered from my research of the forum is to set IE9 into an older and compatible mode for AutoIt (F12 and then select the option). Problem is I can't seem to find a UDF for setting the Browser Mode to 'IE8' and while I can set the Document Mode to IE8 (via sending Alt+8) this doesn't fix the problem of running AutoIt IE scripts. I've tried the UDF code offered at this posting however both sets of code offered does not seem to work. After spending an afternoon searching Google for solutions (and not finding anything), then experimenting with Exit's and supersonic's code, and my own stuff from scratch I've come back with nothing so this is a general shout out for help.

Does anyone have a UDF that specifically forces IE9 into IE8 Browser Mode?

Please share if you've got one that is working with IE 9.0.10 running on Win7 64bit.

I don't want to have to learn Scrapy or buy Screen Scraper Studio or use Sikuli if I already know AutoIt :-(

Edited by icu

Share this post


Link to post
Share on other sites

You're being specific with Win7 x64 IE 9.0.10 .

IMO, I don't think IE.au3 should be used outside a "controlled" environment.

So... Why no just run a virtual machine with with XP or something that runs IE6/7 that you know works, instead of spending days ( = $ ) trying to figure out a total re-write of the IE.au3 library is needed?

Unless you're "FLUENT" in Javascript/Ajax/JQuery, no sense in beating the bush ( trust me! ).

Edited by SmOke_N

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites

Good suggestion.

Also you could use an embedded IE perhaps, which I do not think would be IE9 either.

It follows default if you're referring to Shell.Explorer.2

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites

Thank you both for your replies,

@SmOke_N: Yeah a VM running legacy software is another work around idea and is a solution I found when doing my Google research. As for being specific I thought it would be best to actually state what windows and IE version AutoIt is breaking on. Of course a VM will work but I wanted a 'portable' code solution across all my PCs (WinXP, Vista and Win7)--that is, a single compiled AutoIt script that would not be Windows or IE dependent.

However since posting I may have found a solution but it needs more time and energy to test. Basically it would involve creating an account with spoon.net since they have a browser sandbox and then using AutoIt to use the command prompt to execute spoon.net and launch IE8. Once IE is launched, get AutoIt to attach to IE8 and do its thing. I don't have time now to start scripting for this but I thought I would quickly put a post up in case others are also looking for a solution right now.

Share this post


Link to post
Share on other sites

Embedded IE will fix your problem because it will be IE7 rendered (max IE8).

If you dont want embedded, here is a way to force all IE instances to render as <9

$64Bit = ""
If @ProcessorArch = "X64" Then
$64Bit = "64"
EndIf
If StringLeft(RegRead("HKLM" & $64Bit & "SOFTWAREMicrosoftInternet ExplorerVersion Vector", "IE"), 1) > 8 Then ;Check for version 9 or later


$wshNetwork = ObjCreate("WScript.Network")
$struser = $wshNetwork.Username
$objWMIService = ObjGet("winmgmts:.rootcimv2")
$objAccount = $objWMIService.Get('Win32_UserAccount.Name="' & $struser & '",Domain="' & @ComputerName & '"')
RegWrite("HKU" & $64Bit & "" & $objAccount.SID & "SoftwareMicrosoftInternet ExplorerBrowserEmulation", "AllSitesCompatibilityMode", "REG_DWORD", 1)
RegWrite("HKU" & $objAccount.SID & "SoftwareMicrosoftInternet ExplorerBrowserEmulation", "AllSitesCompatibilityMode", "REG_DWORD", 1)
EndIf

I picked it up somewhere on the forum and edited a bit.

Credits to the unknown user.

TESTED: WIN XP, WIN7, WIN8

BTW. Your avatar??

Edited by milos83

Share this post


Link to post
Share on other sites

@milos83 THANK YOU SO MUCH!

However your code needs updating to change @ProcessorArch to @OSArch as per this The modified code is below if any others stumble upon this post.

$64Bit = ""
If @OSArch = "X64" Then
$64Bit = "64"
EndIf
If StringLeft(RegRead("HKLM" & $64Bit & "SOFTWAREMicrosoftInternet ExplorerVersion Vector", "IE"), 1) > 8 Then ;Check for version 9 or later
$wshNetwork = ObjCreate("WScript.Network")
$struser = $wshNetwork.Username
$objWMIService = ObjGet("winmgmts:.rootcimv2")
$objAccount = $objWMIService.Get('Win32_UserAccount.Name="' & $struser & '",Domain="' & @ComputerName & '"')
RegWrite("HKU" & $64Bit & "" & $objAccount.SID & "SoftwareMicrosoftInternet ExplorerBrowserEmulation", "AllSitesCompatibilityMode", "REG_DWORD", 1)
RegWrite("HKU" & $objAccount.SID & "SoftwareMicrosoftInternet ExplorerBrowserEmulation", "AllSitesCompatibilityMode", "REG_DWORD", 1)
EndIf

Again I can't express my gratitude for your post! Just out of interest what code modifications would need to be made to force IE from version 7 to 8 or back to 9? The code above currently sets IE to version 7 and writing to registry is beyond my knowledge of Windows. Also, what was the original forum post that you took this code from?

Lastly, my avatar pic has multilayered meanings to me. PM me if you are curious.

Kind regards,

icu

Share this post


Link to post
Share on other sites

@milos83 THANK YOU SO MUCH!

However your code needs updating to change @ProcessorArch to @OSArch as per this The modified code is below if any others stumble upon this post.

$64Bit = ""
If @OSArch = "X64" Then
$64Bit = "64"
EndIf
If StringLeft(RegRead("HKLM" &amp; $64Bit &amp; "SOFTWAREMicrosoftInternet ExplorerVersion Vector", "IE"), 1) > 8 Then ;Check for version 9 or later
$wshNetwork = ObjCreate("WScript.Network")
$struser = $wshNetwork.Username
$objWMIService = ObjGet("winmgmts:.rootcimv2")
$objAccount = $objWMIService.Get('Win32_UserAccount.Name="' &amp; $struser &amp; '",Domain="' &amp; @ComputerName &amp; '"')
RegWrite("HKU" &amp; $64Bit &amp; "" &amp; $objAccount.SID &amp; "SoftwareMicrosoftInternet ExplorerBrowserEmulation", "AllSitesCompatibilityMode", "REG_DWORD", 1)
RegWrite("HKU" &amp; $objAccount.SID &amp; "SoftwareMicrosoftInternet ExplorerBrowserEmulation", "AllSitesCompatibilityMode", "REG_DWORD", 1)
EndIf

Again I can't express my gratitude for your post! Just out of interest what code modifications would need to be made to force IE from version 7 to 8 or back to 9? The code above currently sets IE to version 7 and writing to registry is beyond my knowledge of Windows. Also, what was the original forum post that you took this code from?

Lastly, my avatar pic has multilayered meanings to me. PM me if you are curious.

Kind regards,

icu

I use @ProcessorArch because my Autoit version is old.

For reverting rendering

$64Bit = ""
If @OSArch = "X64" Then
$64Bit = "64"
EndIf

$wshNetwork = ObjCreate("WScript.Network")
$struser = $wshNetwork.Username
$objWMIService = ObjGet("winmgmts:.rootcimv2")
$objAccount = $objWMIService.Get('Win32_UserAccount.Name="' & $struser & '",Domain="' & @ComputerName & '"')
RegWrite("HKU" & $64Bit & "" & $objAccount.SID & "SoftwareMicrosoftInternet ExplorerBrowserEmulation", "AllSitesCompatibilityMode", "REG_DWORD", 0)
RegWrite("HKU" & $objAccount.SID & "SoftwareMicrosoftInternet ExplorerBrowserEmulation", "AllSitesCompatibilityMode", "REG_DWORD", 0)

Also, what was the original forum post that you took this code from?

Idk,Use search to find that post

Edited by milos83

Share this post


Link to post
Share on other sites

I hope this bumps this post back to the top to get respondents but I need to revive this post. Will this still work today? Does this permanently switches the browser mode to below IE9 or does it do it permanently? I need to find a way to just temporary use IE8 during the execution of Autoit Script but retain the IE9 since I have sites that requires higher than IE8.

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
Sign in to follow this  

  • Similar Content

    • By _leo_
      Hey there!
      I am having a problem with clicking a button in IE. As you can see in the code, there would be a class name to click it, but since this button exists several times with exactly the same code, I can only use the "Noch nicht veröffentlicht" to separate it from the others. But this part is just pure text without any classification. 
      "<div class="checkmark" data-v-1e5b1f70=""><svg xmlns="http://www.w3.org/2000/svg" class="icon" viewBox="0 0 16 16" data-v-1e5b1f70=""><circle cx="8" cy="8" r="8" data-v-1e5b1f70="" /></svg></div>Noch nicht veröffentlicht"
      I was trying to click it with:
      #include <IE.au3> local $oNNVs = _IEFormGetCollection($oIE2) For $oNNV in $oNNVs If String($oNNV.innertext) = "Noch nicht veröffentlicht" Then _IEAction($oNNV, "click") EndIf Next and:
      $inputs = $oIE2.document.getElementsByTagName("div") For $input In $inputs If $input.innertext == "Noch nicht veröffentlicht" then $input.click() EndIf Next But nothing seems to work. Thanks for the help!
    • By TXTechie
      Hello Everyone,
      I'm looking for a way to use an already open Internet Explorer (IE) window (if one is up and running) and then navigate to a new URL in a new IE tab.
      I thought that _IECreate would easily meet my needs. However, when I use the following script:
      #include <IE.au3> Local $oIE = _IECreate("https://" & $Server & ":8444/", 1, 1, 0, 1) ...with one or more open IE windows, it still opens yet a new IE window.
      Are there any other ideas for how to reliably use an already open IE windows and then how to open a new tab in IE to navigate to a new URL?
      Regards,
      TX Techie
    • By WoodGrain
      Hi All,
      I've tried to create a script to browse to a web page in IE, but it only works for some sites, I've tried to simplify the script as much as possible, hoping you can point me in the right direction - thanks.
      This one going to Google does work:
      #include <IE.au3> $oIE = _IECreate("https://www.google.com.au/", 0, 1, 1) _IELoadWait($oIE) _IEQuit($oIE) But this one going to OneDrive opens the IE page, but fails immediately returning the errors, and the IE window is not closed:
      --> IE.au3 T3.0-2 Error from function _IELoadWait, $_IESTATUS_ClientDisconnected (-2147023174, Browser has been deleted prior to operation.)
      --> IE.au3 T3.0-2 Error from function _IELoadWait, $_IESTATUS_InvalidObjectType ()
      --> IE.au3 T3.0-2 Error from function _IEQuit, $_IESTATUS_InvalidObjectType
      #include <IE.au3> $oIE = _IECreate("https://abccorp-my.sharepoint.com/", 0, 1, 1) _IELoadWait($oIE) _IEQuit($oIE) Even if I put a sleep timer in for 10 seconds after the _IECreate it still doesn't work
      Thanks all!
    • By Dent
      https://rmplusportal.rightmove.co.uk/
      On that page is a login form requiring username, password and then the clicking of the button (or pressing enter but I'm not a fan of using Send)
      Here's the section of code from the page that specifically deals with the form...
      <form> <div class="error-message-login" data-test="error-message"></div> <label> <span>User email</span> <div class="ui input"> <input id="email" type="text" placeholder="Your email"> </div> </label> <label> <span>Password</span> <div class="ui input"> <input id="password" type="password" placeholder="Password"> </div> </label> <button class="ui primary button" role="button" data-test="login">Login</button> <p> <a class="forgot-your-password" href="https://www.rightmove.co.uk/forgottenPasswordForm.html">Forgot your password?</a> </p> </form> Specifically the <button class...></button> is causing me problems as I can't find a way to click it. The 'User email' and 'Password' objects have an 'id' so I can reference these in the AutoIT code and interact with them and the button also previously had the id of 'login' but I guess in a change to this page that was altered.
      Oddly, if I get the code to show the instance of IE that is created and manually click Login or press Enter the page gives me an error saying 'Please enter your email address' even though it is there. I have to manually go into each field and make a change i.e. adding a character to the end of each field then deleting it before it will let me in by either clicking Login or pressing enter. So maybe there's so code elsewhere on the page that knows the fields haven't been physically typed in?
      Any help on this would be much appreciated.
    • By JackER4565
      Hi, first of all thanks to all the guys who always help people in the forums, I wouldn't be able to do anything if wasn't for your help, even if I don't ask it myself.
       
      I've created this code to get some info on a monitoring network on my work. It relays on _IETableGetCollection and _IETableWriteToArray.
      It works well, but take around 3:25 minutes to get the info from 28 pages (some of them are large and take longer to load, but most of them are small and fast).
      My question is if you see a way to get the program to go faster...
       
      I've tried to make it easy for you to understand and edited somethings with sensitive info.
      (Some of the pages doesn't have the black divider with MIRA in the end, so I need to search if it is there or not.)
       
      #include <IE.au3> #include <array.au3> Local $oIE = _IECreate("about:blank", 0, 0) Local $paginas[28] = [89, 90, 91, 92, 93, 96, 105, 113, 119, 125, 126, 129, 131, 133, 135, 137, 139, 140, 141, 144, 145, 146, 148, 149, 150, 151, 158, 159] Local $Datos_array[0][2] Local $oTable Local $tabla Local $aux_x = 1 Local $ar = 1 Local $Numtables_datos = 0 MsgBox(0, "asd", "asd") For $pag = 0 To UBound($paginas) - 1 Step 1 _IENavigate($oIE, "<WEBSITE URL>" & $paginas[$pag]) ; <<< the pages to load are always the same except for the last digits. _ArrayAdd($Datos_array, $paginas[$pag] & "|" & "Entrante", 0, "|") ; <<<<<<<<<<<<<<<< adds the page number toarray [0, 0] ;############################################ START counts amount of tables with traffic $oTable = _IETableGetCollection($oIE) Local $iNumTables = @extended For $i = 3 To $iNumTables - 2 Step 1 $oTable = _IETableGetCollection($oIE, $i) $nomb_tabla2 = _IETableWriteToArray($oTable) ; <<<<<<<< TABLE TO ARRAY. $string2 = StringStripWS($nomb_tabla2[1][0], 8) If $string2 <> "MIRA" Then $Numtables_datos = $Numtables_datos + 1 Next $tabla_End = $iNumTables - $Numtables_datos ;############################################ FIN $tabla_Start = 4 $tabla_trafico = 2 For $for = 1 To $Numtables_datos Step 1 $oTable = _IETableGetCollection($oIE, $tabla_Start - 1) ; <<<<<<<<<<< NAME OF THE TABLE; row2 = mira $nomb_tabla = _IETableWriteToArray($oTable) ; <<<<<<<< TABLE TO ARRAY ;########################################### ADDS the traffic number into the row $string = StringStripWS($nomb_tabla[1][0], 8) If $string == "MIRA" Then ;si o si pasa por aca 1 vez _ArrayAdd($Datos_array, $nomb_tabla[0][0]) $nomb_aux = $nomb_tabla[0][0] $aux_x = 1 $tabla_trafico = $tabla_trafico + 2 Else ;esto deberia ser por row _ArrayAdd($Datos_array, $nomb_aux & " " & $aux_x) $aux_x = $aux_x + 1 $tabla_trafico = $tabla_trafico + 1 EndIf $oTable = _IETableGetCollection($oIE, $tabla_trafico) Local $aTableData = _IETableWriteToArray($oTable) $bps = _ArrayToString($aTableData, "|", 0, 0, @CRLF, 0, 0) $bps = StringRight($bps, 5) $bps = StringLeft($bps, 4) $trafico_actual = _ArrayToString($aTableData, "|", 0, 0, @CRLF, 2, 2) If $bps == "Gbps" Then $trafico_actual = $trafico_actual * 1000 If $bps == "Kbps" Then $trafico_actual = $trafico_actual / 1000 $Datos_array[$ar][1] = $trafico_actual $ar = $ar + 1 If $string == "MIRA" Then $tabla_Start = $tabla_Start + 2 Else $tabla_Start = $tabla_Start + 1 EndIf Next $ar = $ar + 1 ;~ ############# CAÍDA ############ ;~ If $actual_entrante = 0 Then ;~ $xxx = 0 ;~ Do ;~ MsgBox(0, "Tráfico Caído", $paginas[$i], 5) ;~ $xxx = $xxx + 1 ;~ Until $xxx = 10 ;~ EndIf ;~ ############# CAÍDA ############. Local $Numtables_datos = 0 Next _ArrayDisplay($Datos_array, "Array display") _IEQuit($oIE) Thanks!! 


      monitoria.html
×
×
  • Create New...