使用 vbscript 自动实现页面滚动

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.example.com"

While objIE.Busy
  WScript.Sleep 100
Wend

Set objDoc = objIE.Document

' 页面向下滚动
objDoc.parentWindow.scrollBy 0, 100

' 页面向上滚动
objDoc.parentWindow.scrollBy 0, -100

' 页面向右滚动
objDoc.parentWindow.scrollBy 100, 0

' 页面向左滚动
objDoc.parentWindow.scrollBy -100, 0

objIE.Quit