Vbs打开网页并登陆

因需求,需使用脚本打开指定网站并登陆,解决方法如下:
打开记事本,复制下面代码,将用户名、密码、网址 换成你的。保存成.vbs文件,双击看效果

dim u,p,l

u="用户名"
p="密码"
l="网址"

on error resume next
Set ie=WScript.CreateObject("InternetExplorer.Application") 
ie.navigate l
ie.visible=true
Do 
Wscript.Sleep 500
Loop Until ie.ReadyState=4 
ie.document.getElementById("username").value=u
ie.document.getElementById("password").value=p
set WshShell = CreateObject("WScript.Shell") 
WshShell.SendKeys "{Enter}"

注意:
此方法会将密码信息明文保存!

标签:

更新时间: