Microsoft Edge - WebView2, embed web code in your native application

[mLipok]

you may want to take a look at:

 

https://learn.microsoft.com/en-us/dotnet/api/microsoft.web.webview2.core.corewebview2.printtopdfasync?view=webview2-dotnet-1.0.1901.177

https://learn.microsoft.com/en-us/dotnet/api/microsoft.web.webview2.core.corewebview2.printtopdfstreamasync?view=webview2-dotnet-1.0.1901.177

https://learn.microsoft.com/en-us/dotnet/api/microsoft.web.webview2.core.corewebview2.capturepreviewasync?view=webview2-dotnet-1.0.1901.177

https://github.com/MicrosoftEdge/WebView2Feedback/issues/529#issuecomment-719520840

https://stackoverflow.com/q/70961143/5314940

https://learn.microsoft.com/en-us/answers/questions/668586/how-can-i-capture-the-whole-page-to-a-picture-whil

Edited September 7, 2023 by mLipok

[mLipok]

@LarsJ and others.
Is it good time to start separate GitHub project for this our project to have cohesive UDFs ?

[UEZ]

1 hour ago, KaFu said:

Edit2:

Do you assume that "Shell.Explorer.2" will not work on Win11, or did you try it? I'm still on Win10, but search results indicate it still should work,

Try it:

expandcollapse popup

#include <Clipboard.au3>
#include <IE.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
;Coded by UEZ 2011 - beta version

If @OSBuild < 6000 Then Exit MsgBox(16, "Error!", "Script is running only on Vista+ os properly!", 10)

;https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", @ScriptName)
If @error Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", @ScriptName, "REG_DWORD", 11001)


Global Const $hDwmApiDll = DllOpen("dwmapi.dll")
Global $sChkAero = DllStructCreate("int;")
DllCall($hDwmApiDll, "int", "DwmIsCompositionEnabled", "ptr", DllStructGetPtr($sChkAero))
Global $aero = DllStructGetData($sChkAero, 1)
DllClose($hDwmApiDll)
If Not $aero Then Exit MsgBox(16, "Error", "Aero must be enabled to grab web sites properly!", 20)
$sChkAero = 0

Global $URL, $btn, $msg, $hWnd, $input, $i
$hWnd = GUICreate("Save Web Page as an image", 320, 120)
$input = GUICtrlCreateInput("https://focus.de", 10, 5, 300, 20)
$btn = GUICtrlCreateButton("Ok", 40, 35, 240, 70)
ControlFocus($hWnd, "", $btn)
GUISetState()

While $msg <> -3
    $msg = GUIGetMsg()
    Select
        Case $msg = $btn
            Start()
        Case $msg = -3
            GUIDelete($hWnd)
            Exit
    EndSelect
WEnd

Func Start()
    $URL = GUICtrlRead($input)
    SplashTextOn("Screenshooting Web Site", "Please wait while taking screenshot", 300, 40, -1, -1, 1 + 2 + 4 + 32, "")
    AdlibRegister("Wait", 300)
    Web_Screenshot($URL)
    AdlibUnRegister("Wait")
    SplashOff()
    MsgBox(0, "Information", "Web Site Image copied to clipboard!", 10)
EndFunc

Func Web_Screenshot($url, $IEwidth = 1045)
    Local $oIE, $GUIActiveX, $oDocument,  $oBody, $BodyWidth, $BodyHeight, $oHtml
    Local $hGUI_WebGrab, $hWin, $aWin, $aMP
    Local Const $BrowserNavConstant = 2 + 256 + 2048 ;BrowserNavConstant -> http://msdn.microsoft.com/en-us/library/dd565688(v=vs.85).aspx
    $oIE = ObjCreate("Shell.Explorer.2") ;http://msdn.microsoft.com/en-us/library/aa752084(v=vs.85).aspx

    $hWin = WinGetHandle("Program Manager")
    $aWin = WinGetPos($hWin)

    #region render web site to get height
    $hGUI_WebGrab = GUICreate("",  0, 0, $aWin[0] - $BodyWidth + 1, $aWin[1] - $BodyHeight + 1, BitOR($WS_CLIPSIBLINGS, $WS_CLIPCHILDREN, $WS_POPUP),Default, WinGetHandle(AutoItWinGetTitle()))
;~  $hGUI_WebGrab = GUICreate("",  1024, 768, 0, 0, BitOR($WS_CLIPSIBLINGS, $WS_CLIPCHILDREN, $WS_POPUP),Default, WinGetHandle(AutoItWinGetTitle()))
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $IEwidth, 256)
    GUISetState(@SW_MINIMIZE, $hGUI_WebGrab)
;~  GUISetState(@SW_SHOW, $hGUI_WebGrab)


    Local $timeout = 30 * 1000
    Local $timer = TimerInit()
    With $oIE
        .Silent = True
        .FullScreen = True
        .Resizable = False
        .Visible = False
        .StatusBar = False
        .AddressBar = False
        .Navigate($URL, $BrowserNavConstant, "_top")
        Do
            If TimerDiff($timer) > $timeout Then ExitLoop
            Sleep(100)
        Until $oIE.ReadyState = 4
        .Stop
        Sleep(500)
    EndWith
    $oDocument = $oIE.document
    $oBody = $oDocument.body
    $oBody.scroll = "no"
    $oBody.style.borderStyle = "none"
    $BodyWidth = $oBody.scrollWidth ;Min($oBody.scrollWidth, 4096)
    $BodyHeight = $oBody.scrollHeight ;Min($oBody.scrollHeight, 8192)
    GUIDelete($hGUI_WebGrab)
    $GUIActiveX = 0
    #endregion

    Local $IE_Ver = RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer", "Version"), $height
;~  If $IE_Ver > 8 Then $BodyHeight = Min($BodyHeight, 8192)

;~  ConsoleWrite($oIE.Path & @CRLF)

;~  $hGUI_WebGrab = GUICreate("",  $BodyWidth,  $BodyHeight, $aWin[0] - $BodyWidth + 10, $aWin[1] - $BodyHeight + 10, BitOR($WS_CLIPSIBLINGS, $WS_CLIPCHILDREN, $WS_POPUP), Default, WinGetHandle(AutoItWinGetTitle()))
    $hGUI_WebGrab = GUICreate("",  $BodyWidth,  $BodyHeight, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW, $hGUI_WebGrab) ;Show GUI for some milli seconds to make a screenshot
    $GUIActiveX = GUICtrlCreateObj ($oIE, 0, 0, $BodyWidth,  $BodyHeight)

    $timer = TimerInit()
    With $oIE
        .Silent = True
        .FullScreen = True
        .Resizable = False
        .Visible = False
        .StatusBar = False
        .AddressBar = False
        .Navigate($URL, $BrowserNavConstant, "_top")
        Do
            If TimerDiff($timer) > $timeout Then ExitLoop
            Sleep(100)
        Until $oIE.ReadyState = 4
        .Stop
        Sleep(1000)
    EndWith

    $oDocument = $oIE.document
    $oBody =$oDocument.body
    $oHtml = $oDocument.documentElement
    $oBody.scroll = "no"
    $oBody.style.borderStyle = "none"
    $oBody.style.border = "0px"
    $oHtml.style.overflow = 'hidden'

    GUISetState(@SW_SHOW, $hGUI_WebGrab)      ;Show GUI

    Local $hDC = _WinAPI_GetWindowDC($hGUI_WebGrab)
    Local $hDC_Dummy = _WinAPI_GetWindowDC(0)
    Local $hMemDC = _WinAPI_CreateCompatibleDC($hDC_Dummy)
    Local $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC_Dummy, $BodyWidth, $BodyHeight)

;~  Local $tBIV5HDR = DllStructCreate($tagBITMAPINFOHEADER)
;~  DllStructSetData($tBIV5HDR, 'biSize', DllStructGetSize($tBIV5HDR))
;~  DllStructSetData($tBIV5HDR, 'biWidth', $BodyWidth)
;~  DllStructSetData($tBIV5HDR, 'biHeight', -$BodyHeight)
;~  DllStructSetData($tBIV5HDR, 'biPlanes', 1)
;~  DllStructSetData($tBIV5HDR, 'biBitCount', 32)
;~  DllStructSetData($tBIV5HDR, 'biCompression', $BI_RGB)
;~  Local $pBits
;~  Local $hBitmap = _WinAPI_CreateDIBSection(0, $tBIV5HDR, $DIB_RGB_COLORS, $pBits)

    _WinAPI_SelectObject($hMemDC, $hBitmap)
    _WinAPI_BitBlt($hMemDC, 0, 0, $BodyWidth, $BodyHeight, $hDC, 0, 0, $SRCCOPY)
    ;ConsoleWrite(_WinAPI_StretchDIBits($hMemDC, 0, 0, $BodyWidth, $BodyHeight, 0, 0, $BodyWidth, $BodyHeight, $tBIV5HDR, $DIB_RGB_COLORS, $pBits, $SRCCOPY) & @CRLF)

    _WinAPI_DeleteDC($hMemDC)
    _WinAPI_ReleaseDC($hGUI_WebGrab, $hDC)
    _WinAPI_ReleaseDC(0, $hDC_Dummy)
    _WinAPI_ReleaseDC(0, $hDC)

    _ClipBoard_Open(0)
    _ClipBoard_Empty()
    _ClipBoard_SetDataEx($hBitmap, $CF_BITMAP)
    _ClipBoard_Close()
    _WinAPI_DeleteObject ($hBitmap)

    $GUIActiveX = 0
    $oIE = 0
    GUIDelete($hGUI_WebGrab)
    _ReduceMemory()
EndFunc

Func Min($a, $b)
    If $a < $b Then Return $a
    Return $b
EndFunc

Func Wait()
    Switch Mod($i, 4)
        Case 0
            ControlSetText("Screenshooting Web Site", "", "Static1", "Please wait while taking screenshot")
        Case 1
            ControlSetText("Screenshooting Web Site", "", "Static1", "Please wait while taking screenshot .")
        Case 2
            ControlSetText("Screenshooting Web Site", "", "Static1", "Please wait while taking screenshot ..")
        Case 3
            ControlSetText("Screenshooting Web Site", "", "Static1", "Please wait while taking screenshot ...")
    EndSwitch
    $i += 1
EndFunc

Func _ReduceMemory($ProcID = 0)
    If $ProcID = 0 or ProcessExists($ProcID) = 0 Then ; No process id specified or process doesn't exist - use current process instead.
        Local $ai_GetCurrentProcess = DllCall('kernel32.dll', 'ptr', 'GetCurrentProcess')
        Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'ptr', $ai_GetCurrentProcess[0])
        Return $ai_Return[0]
    EndIf
    Local $ai_Handle = DllCall("kernel32.dll", 'ptr', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $ProcID)
    Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'ptr', $ai_Handle[0])
    DllCall('kernel32.dll', 'int', 'CloseHandle', 'ptr', $ai_Handle[0])
    Return $ai_Return[0]
EndFunc

It works but result is not good because based on IE engine.

Edited September 7, 2023 by UEZ

[Gianni]

11 hours ago, mLipok said:

you may want to take a look at:

 

https://learn.microsoft.com/en-us/dotnet/api/microsoft.web.webview2.core.corewebview2.printtopdfasync?view=webview2-dotnet-1.0.1901.177

https://learn.microsoft.com/en-us/dotnet/api/microsoft.web.webview2.core.corewebview2.printtopdfstreamasync?view=webview2-dotnet-1.0.1901.177

https://learn.microsoft.com/en-us/dotnet/api/microsoft.web.webview2.core.corewebview2.capturepreviewasync?view=webview2-dotnet-1.0.1901.177

https://github.com/MicrosoftEdge/WebView2Feedback/issues/529#issuecomment-719520840

https://stackoverflow.com/q/70961143/5314940

https://learn.microsoft.com/en-us/answers/questions/668586/how-can-i-capture-the-whole-page-to-a-picture-whil

Hi @mLipok

just a clarification, when you consult the WebView2 documentation on the Microsoft website, to remain compatible with the environment created here by @LarsJ you need to choose the pages relating to Win32/c++ and not those relating to .NET or c#
Make sure you choose the page versions as highlighted by the red circle in the images below:

https://learn.microsoft.com/en-us/microsoft-edge/webview2/webview2-api-reference?tabs=win32cpp

https://learn.microsoft.com/en-us/microsoft-edge/webview2/reference/win32/?view=webview2-1.0.1938.49

[mLipok]

Related interesting YouTube channel:

https://www.youtube.com/@MSFTEdge

for example:

 

Edited September 9, 2023 by mLipok

[TheDcoder]

Too bad all of that is locked behind Microsoft's downstream Edge browser filled with trackers 🤬.

This is why we need copyleft licenses like GPL, so that companies can't just leech off of good open-source work, make a few improvements and sell that off as their own product

Also the JSON viewer is a joke, Firefox has had a much better viewer since forever and you don't even need to enable it with a flag

[SOLVE-SMART]

On 9/7/2023 at 10:04 AM, mLipok said:

@LarsJ and others.
Is it good time to start separate GitHub project for this our project to have cohesive UDFs ?

@mLipok I would love to see such GitHub project. I would start contributing (but first learning about the API structure of WebView2 etc.).
Is there any mature approach already live anywhere here? I guess only what is listed/posted here, right?

Btw: I did not read all about WebView2 here in this thread, but I probably will. Let's see what @LarsJ already achieved 😇 .

Best regards
Sven

[mLipok]

@LarsJ what is your opinion about moving to GitHib ?

[squadjot]

On 5/20/2022 at 5:01 PM, ptrex said:

If you want to run ActiveX web page components in MS Edge (or even Chrome), you can still run them using the fabulous IETab extension for Chrome.

Which also works in MS Edge...

 

See here for more info :

https://audministrator.wordpress.com/2018/01/08/sharepoint-online-activex-in-chrome-browser/

 

Enjoy !!

 

Just to clarify..

var fso =new ActiveXObject("Scripting.FileSystem");

The line above has nothing to do with ActiveX web page components, It's just name for a function used in JSCRIPT for WSH scripting.
With that function you can get COM Objects ( javascript objects )

I tried making my own custom ActiveXObject method in Edge WebView2, hosted in a C# .NET app. I could retrieve the javascript COM object just fine, so it's definitely possible.. ( And no... not using any "legacy IE mode" or whatever )  I didn't complete that project because i didn't like the fact that it was dependent on .NET.  But the point is.. the windows COM / JS interface works 100% in a modern Webview. 

I'm following this because my wish is to be able to replicate what mshta.exe does.
mshta.exe renders html (commonly .hta) in a "window" that has access to the COM objects ( just like vb and  jscript ) 
This alone is pretty powerful. The downsides are that mshta can , at best , use IE11 standard + it has old jscript engine.

Being able to produce fully fledged and modern HTML applications in a AutoIT+WebView Host, would be pretty hot i think..  

Edited November 28 by squadjot

[squadjot]

Have anyone noticed that the autoit webview is kind of blurred, compared to the bing site running in edge?

[squadjot]

Is there a way to define (shared) location of the EBWebView folder? 

[Gianni]

58 minutes ago, squadjot said:

Is there a way to define (shared) location of the EBWebView folder? 

you can set the path for that directory in the second parameter of the "CreateCoreWebView2EnvironmentWithOptions" function call.
That path must be writable or else an error will be thrown.
take a look here: https://www.autoitscript.com/forum/topic/204362-microsoft-edge-webview2-embed-web-code-in-your-native-application/?do=findComment&comment=1475295

... and also here: What is the 'EBWebView' folder created for? · Issue #2023 · MicrosoftEdge/WebView2Feedback · GitHub

[argumentum]

2 hours ago, squadjot said:

webview is kind of blurred