Hallo Zusammen,
hier mal ein kleines Skript, welches ein IE Fenster in einer GUI darstellt.
Ein Problem war, dass _IECreateEmbedded als Browseremulation nicht den IE 11 nutzt, somit war kein JavaScript verfügbar.
Meine Frage an Euch, lässt sich hier noch etwas verbessern?
Spoiler anzeigen
C
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#NoTrayIcon
$tWorkArea = DllStructCreate("long Left;long Top;long Right;long Bottom")
DllCall("user32.dll", "bool", "SystemParametersInfoW", "uint", 48, "uint", 0, "ptr", DllStructGetPtr($tWorkArea), "uint", 0)
;MsgBox(0,"", DllStructGetData($tWorkArea, "Right") & @crlf & DllStructGetData($tWorkArea, "Bottom"))
$DesktopWidth = DllStructGetData($tWorkArea, "Right")
$DesktopHeight = DllStructGetData($tWorkArea, "Bottom")
$URL = "https://www.google.de"
;Local $oIE = ObjCreate("Shell.Explorer.2")
$oIE = _IECreateEmbedded()
If @Compiled Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", @ScriptName, "REG_DWORD", 11001)
Else
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", "AutoIt3.exe", "REG_DWORD", 11001)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", "autoit3_x64.exe", "REG_DWORD", 11001)
EndIf
$CosmonoutGUI = GUICreate("", $DesktopWidth, $DesktopHeight, 0,0)
GUICtrlCreateObj($oIE, 1, 1, $DesktopWidth, $DesktopHeight -30)
;$oIE.navigate($URL)
_IENavigate($oIE, $URL)
$title = _IEPropertyGet($oIE, "title")
WinSetTitle($CosmonoutGUI, "", $title)
Sleep(500)
GUISetState(@SW_SHOW) ;Show GUI
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
If Not @Compiled Then
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", "AutoIt3.exe")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", "autoit3_x64.exe")
EndIf
GUIDelete()
Exit
Alles anzeigen
Gruß gmmg