以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何切取网页屏幕,保存为图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141453)

--  作者:xluoping
--  发布时间:2019/9/29 14:25:00
--  如何切取网页屏幕,保存为图片
如以下网址,如何切取网页屏幕,保存为图片,请老师帮助

Dim weba As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
weba.Address = "https://720yun.com/t/ff426cpkae6"
Dim web As System.Windows.Forms.WebBrowser = weba.Basecontrol
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
    ‘切取网页屏幕,保存为d://aaa.jpg 代码

--  作者:有点蓝
--  发布时间:2019/9/29 16:53:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119335&skin=0