# 新建文本文档,并复制内容,保存。修改文件后缀为“.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即可。
标签:set,账号密码,程序,VBS,program,输入,TAB,Wshell,SendKeys From: https://www.cnblogs.com/yuyanc/p/16866914.html