楼主:
femlro (母猪教谋神异端审问官1.5)
2023-09-12 19:36:16Sub OpenAndScrollChrome()
'启动Chrome浏览器
Shell "C:\Program Files\Google\Chrome\Application\chrome.exe"
'等待Chrome开启
Application.Wait (Now + TimeValue("00:00:05"))
'模拟下箭头键
Application.SendKeys "{DOWN 5}", True
'等待30秒
Application.Wait (Now + TimeValue("00:00:30"))
'关闭当前网页(Ctrl+W)
Application.SendKeys "^{w}", True
End Sub