windows自动启动程序并登陆账号密码VBS脚本

一、设置vbs脚本开机自启动

'═══代═══码═══开═══始═════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set f=fso.getfile(wscript.scriptfullname)
ws.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.path
'═══代═══码═══结═══束═════

二、打开指定网页并进行登录操作

dim program
program="程序路径"
set Wshell=CreateObject("Wscript.Shell")
set oexec=Wshell.Exec(program)
Wshell.Run "https:www.baidu.com" 
wscript.Sleep 2000
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "账号" 		
wscript.Sleep 1000
Wshell.SendKeys "{TAB}" 
Wshell.SendKeys "密码"     	 
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{ENTER}"		
Wscript.quit

'{TAB}:该标签等同于键盘TAB键作用,提前在网页测试登录用户和密码之间tab键的次数'
'wscript.Sleep 程序睡眠时间,ms为单位'
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值