浏览器截图
命令说明
浏览器截图
命令原型
WebBrowser.ScreenShot(hWeb,sPath,objRect,optionArgs)
命令参数
参数 | 必选 | 类型 | 默认值 | 说明 |
---|---|---|---|---|
hWeb | True | expression | hWeb | 使用 WebBrowser.Create 或 WebBrowser.Bind 命令返回的浏览器句柄字符串 |
sPath | True | path | '''C:\Users''' | 截图保存到的文件路径 |
objRect | True | dictionary | {"x": 0, "y": 0, "width": 0, "height": 0} | 截图的矩形范围,传递为 null 则截取整个浏览器的显示区域 |
bContinueOnError | False | boolean | False | 指定即使活动引发错误,自动化是否仍应继续。该字段仅支持布尔值(True,False)。默认值为False |
iDelayAfter | False | number | 300 | 执行活动后的延迟时间(以毫秒为单位)。默认时间为300毫秒 |
iDelayBefore | False | number | 200 | 活动开始执行任何操作之前的延迟时间(以毫秒为单位)。默认的时间量是200毫秒 |
运行实例
/*********************************浏览器截图***************************************
命令原型:
WebBrowser.ScreenShot(hWeb,sPath,objRect,optionArgs)
入参:
hWeb--浏览器对象
sPath--截图保存到的文件路径
objRect--截图的矩形范围,传递为 null 则截取整个浏览器的显示区域
bContinueOnError--错误后是否继续
iDelayAfter--执行后延时
iDelayBefore--执行前延时
出参:
无
注意事项:
使用谷歌内核的浏览器首次使用需要安装扩展并启用扩展
需要打开浏览器后才能使用
*********************************************************************************/
Dim hWeb,bRet
//启动IE浏览器并打开百度首页
hWeb = WebBrowser.Create("ie","www.baidu.com",30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
TracePrint(hWeb)
//浏览器截图保存到指定位置
WebBrowser.ScreenShot(hWeb,'''C:\Users\DVA\OneDrive\Pictures\屏幕快照\dddd.png''',{"x": 500, "y": 500, "width": 0, "height": 0},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})