Adjusting the page size in the GUI.

[danek90099]

Hi, I'm giving an example code at the bottom. Can anyone explain how to do it so that the page size fits the size of the GUI window without scrolling. Thanks

#include <IE.au3>
#include <Process.au3>
Local $regValue = "0x2AF8"

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)

Global $mainwin = GUICreate("IE test", 968, 688)
Global $OBJECT = ObjCreate("Shell.Explorer.2")
Global $OBJECT_CTRL = GUICtrlCreateObj($OBJECT, 0, 0, 968, 688)

GUISetState()
_IENavigate($OBJECT, "http://www.google.pl/")


While 1
    Sleep(10)
    If GUIGetMsg() = -3 Then ExitLoop
WEnd

 

[Andreik]

Try to use _IEPropertyGet to retrieve width and height of the page.

[danek90099]

Unfortunately, it only reduces my GUICtrlCreateObj instead of matching the page to it. If this is not possible, can you remove the slider from the right side of the window from the page scroll? The GUICtrlCreateObj slider

[mLipok]

check here:

and here:

https://support.microsoft.com/en-us/help/2689447/how-to-set-the-zoom-level-in-internet-explorer-9

 

btw.
Cześć.

 

[danek90099]

unfortunately, it will not help me. So I have to look for a different way. How can I make a mouse to stretch gui and guiobiect?

[mLipok]

You can try this:

#include <IE.au3>
#include <Process.au3>
Local $regValue = "0x2AF8"

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)

Global $mainwin = GUICreate("IE test", 968, 688)
Global $OBJECT = ObjCreate("Shell.Explorer.2")
Global $OBJECT_CTRL = GUICtrlCreateObj($OBJECT, 0, 0, 968, 688)

GUISetState()
_IENavigate($OBJECT, "http://www.google.pl/")

Sleep(1000)
;~ ControlSend('IE Test','','Internet Explorer_Server','^-')
SendKeepActive('IE Test')
Send('^-')
SendKeepActive('')

While 1
    Sleep(10)
    If GUIGetMsg() = -3 Then ExitLoop
WEnd