vbs实现web自动登录网站的方法

admin VBS

2023-12-01 0 970

背景：我们的电脑需要开机登录一个网址输入信息才能够上网，这样对远程的话，很不友好。因此查了查vbs可以进行开机在网页上自动登录，实现开机联网。（不同的网页使用的登录方法是不同的，下面的仅作参考）环境：window10专业版

一，编写vbs

网页其中DDDDD是账号的位置，upass为密码，我在网上看的一些方法对于我这个并不适用，因此就结合他们的自己改了改。（有些代码是猜的之前没接触过vbs）

在上面的情况下使用如下的代码登录（可以先创建一个txt文件之后将后缀改为vbs，如果看不到后缀，需要打开查看中的文件拓展名，就像本文的最后一个图一样）

Dim username,password,IE,dom,form,Shell
username = \”*****\”
password = \”*****\”
Set IE =CreateObject(\”InternetExplorer.Application\”)
ie.FullScreen=0
IE.Visible = True
IE.Navigate \”http://10.20.3.2/\”
Do while IE.ReadyState<> 4 or IE.busy
wscript.sleep 2000
loop
IE.document.f3.DDDDD.value=username
IE.document.f3.upass.value=password
IE.document.f3.onsubmit

其中http://10.20.3.2/是你要登录网站的网址，其中的f3是form的name，f3.DDDDD是在form表下面的账号的name，f3.upass是form下面的密码的name。（我一直想用f3.0MKKey表示那个登录按钮，但是不知道怎么用，后来试着发现onsubmit也可以当作提交登录）如果想让它自动退出，可以在最后加两句

wscript.sleep 2000
IE.quit

二，配置为开机自启

这个比较简单，只需要将这个vbs文件放到下面目录中就可以了。C:\\ProgramData\\Microsoft\\Windows\\Start Menu\\Programs\\StartUp（注意ProgramData是个隐藏文件夹，想要显示隐藏文件夹可以打开查看中的隐藏的项目，如下图所示）

补充：下面给大家分享一段有趣的代码，基于vbs实现恶搞无限弹窗，复制粘贴就能用。

vbs简单实现弹窗

直接新建txt文档，复制粘贴下面代码：

do
a =msgbox(\”你怕是个ZZ吧？\”,vbYesNoCancel,\”一份认真的问卷调查\”)
if a =vbYes then
msgbox \”emmmm，还算有点自知之明\”,,\”恭喜你，真正的认识了自己！\”
exit do
elseif a =vbNo then
b =msgbox(\”心里没点AC数吗？\”,vbYesNo,\”不要想太多，你就是！\”)
if b =vbYes then
msgbox \”没点数，自己照照镜子啊！\”,,\”这就是你学习好的原因啊\”
else
msgbox \”能认识错误还是好的\”,,\”MDZZ\”
end if
else
d =msgbox(\”取消你吗呢\”,vbYesNo,\”还想点取消？\”)
if d =vbYes then
msgbox \”取消也没用\”,,\”这是一个轮回\”
else
msgbox \”不取消就赶紧承认吧\”,,\”ZZ\”
end if