vbs打开网页并全屏

最新推荐文章于 2024-08-06 13:01:10 发布

Anson_wen

最新推荐文章于 2024-08-06 13:01:10 发布

阅读量2.1k

点赞数 4

分类专栏： VBS 文章标签： vbs

本文链接：https://blog.csdn.net/wenyuanshow/article/details/108670646

版权

VBS 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

vbs打开网页并全屏脚本

IE浏览器

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = true
IE.FullScreen = true
IE.Navigate "http://localhost/login.do"

set s = WScript.createObject("WScript.Shell")
WScript.Sleep 1000
s.SendKeys "{TAB}"
s.SendKeys "admin"'账号！
s.SendKeys "{ENTER}"
s.SendKeys "{TAB}"
WScript.Sleep 500
s.SendKeys "123456"'密码！
s.SendKeys "{TAB}"
WScript.Sleep 500
s.SendKeys "{ENTER}"

chrome浏览器

Set s = CreateObject("WScript.Shell")
s.Run"""C:\Users\Local\Google\Chrome\Application\chrome.exe""" & "http://localhost/login.do"

WScript.Sleep 5000
s.SendKeys "{F11}" 
WScript.Sleep 500
s.SendKeys "{TAB}"
s.SendKeys "admin"'账号！
s.SendKeys "{ENTER}"
s.SendKeys "{TAB}"
WScript.Sleep 500
s.SendKeys "123456"'密码！
s.SendKeys "{TAB}"
WScript.Sleep 1000
s.SendKeys "{ENTER}"