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

314次阅读

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

导读	这篇文章主要介绍了 vbs 实现 web 自动登录网站, 首先编写 vbs，接着配置为开机自启，这个比较简单，只需要将这个 vbs 文件放到下面目录中就可以了，需要的朋友可以参考下

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

环境：window10 专业版

一，编写 vbs

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

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

在上面的情况下使用如下的代码登录（可以先创建一个 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 实现 web 自动登录网站的方法

补充：下面给大家分享一段有趣的代码，基于 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 自动登录网站的文章就介绍到这了