Web2Image

[Gintaras]

Code for IHTMLElementRender.

Macro Macro151

Code:

Copy      Help

HtmlDoc d.SetOptions(2)
d.InitFromWeb("http://www.quickmacros.com/")

__MemBmp b.Create(1000 1000)

MSHTML.IHTMLElementRender r=+d.d.body
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

;Don't ask me how to get web page dimensions, how to capture whole scrolling page, etc.