设置滚动条位置

命令说明

设置当前页面滚动条的位置（像素）

命令原型

WebBrowser.SetScroll(hWeb,dictScrollPostion,optionArgs)

命令参数

参数	必选	类型	默认值	说明
hWeb	True	expression	hWeb	使用 WebBrowser.Create 或 WebBrowser.Bind 命令返回的浏览器句柄字符串
dictScrollPostion	True	expression	{"ScrollLeft": 0,"ScrollTop": 0}	滚动条移动到的新位置，ScrollLeft元素表示横轴滚动条的位置，ScrollTop元素表示纵轴滚动条的位置
bContinueOnError	False	boolean	False	指定即使活动引发错误，自动化是否仍应继续。该字段仅支持布尔值（True，False）。默认值为False
iDelayAfter	False	number	300	执行活动后的延迟时间（以毫秒为单位）。默认时间为300毫秒
iDelayBefore	False	number	200	活动开始执行任何操作之前的延迟时间（以毫秒为单位）。默认的时间量是200毫秒

运行实例

/*********************************设置滚动条位置***************************************
命令原型：
    SetScroll(hWeb,dictScrollPostion,optionArgs)
入参：
    hWeb--浏览器对象
    dictScrollPostion--滚动条移动到的新位置
    bContinueOnError--错误或是否继续
    iDelayAfter--执行后延时
    iDelayBefore--执行前延时 
出参:
    无  
注意事项：
    使用谷歌内核的浏览器首次使用需要安装扩展并启用扩展
    需要打开浏览器后才能使用
*********************************************************************************/
Dim hWeb
//启动IE浏览器并打开百度首页
hWeb = WebBrowser.Create("ie","www.baidu.com",30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
//点击滚动条
Mouse.Action(@ui"块级元素<div>_","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
//设置纵向滚动条到600像素位置
WebBrowser.SetScroll(hWeb,{"ScrollLeft": 0,"ScrollTop": 600},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})

可视化样例