用VBS启动程序并输入账号密码登陆

# 新建文本文档,并复制内容,保存。修改文件后缀为“.vbs”。即可双击运行

dim program
program="程序路径"
set Wshell=CreateObject("Wscript.Shell")
set oexec=Wshell.Exec(program)
Wshell.Run "https:www.baidu.com" #打开网页,不用可以删掉。如果没有设置程序路径,自动用默认浏览器打开网页。
wscript.Sleep 2000 #程序睡眠时间,单位为ms'
Wshell.SendKeys "{TAB}"#模拟按键TAB,用来选择输入框
Wshell.SendKeys "账号" #模拟输入的字符串		
wscript.Sleep 1000
Wshell.SendKeys "{TAB}" 
Wshell.SendKeys "密码"     	 
Wshell.SendKeys "{ENTER}"#模拟按键ENTER,用来提交表单	
Wscript.quit

找不到中文路径的解决办法:vbs脚本文件,编码更改成ANSI即可。

posted @ 2022-11-07 18:04  C羽言  阅读(2000)  评论(0)    收藏  举报