当前位置:主页 > 脚本语言 > VBS >

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

时间:2022-06-16 09:48:34 | 栏目:VBS | 点击:

背景:我们的电脑需要开机登录一个网址输入信息才能够上网,这样对远程的话,很不友好。因此查了查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

end if
loop

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

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

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

您可能感兴趣的文章:

相关文章