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