简单介绍vbs实现web自动登录网站的方法

共计 1680 个字符，预计需要花费 5 分钟才能阅读完成。

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

环境：window10 专业版

网页其中 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 文档，复制粘贴下面代码：

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
 
end if
loop

保存，修改文件格式为 vbs，确认，打开。

“”双引号里面可以随意修改内容，看别人很多都是写表白的

注意：第五行的 exit do 表示退出 就是说第一次点击 yes 之后可以点确定退出弹窗，否则无限循环。（把 exit do 这句去掉就是死循环了，但是可以通过结束进程来关闭，这个就不多说了，有问题多百度！）

到此这篇关于 vbs 实现 web 自动登录网站的文章就介绍到这了

阿里云 2 核 2G 服务器 3M 带宽 61 元 1 年，有高配

腾讯云新客低至 82 元 / 年，老客户 99 元 / 年

代金券：在阿里云专用满减优惠券