Web2Image

[Lucas]

I tried to create the Web2Image function to capture an HTML element without success.
Error (RT) in <open ": 4709: / 840"> Macro53: 0x80004002, Interface not supported.

Can you create the function?

Macro Macro53

Code:

Copy      Help

int w=wait(3 WV win("Nueva pestaña - Internet Explorer" "IEFrame"))
Htm e=htm("DIV" "" "" w "0" 46 0x20 3)

__MemBmp b.Create(1000 1000)


MSHTML.IHTMLElementRender r=+e.el.document
MSHTML._RemotableHandle* workaround=+b.dc ;;DrawToDC is declared incorrectly in the type library
r.DrawToDC(workaround)

str sFile.expandpath("$temp$\1.bmp")
SaveBitmap b.bm sFile

run sFile