背景：我們的電腦需要開機(jī)登錄一個(gè)網(wǎng)址輸入信息才能夠上網(wǎng)，這樣對(duì)遠(yuǎn)程的話，很不友好。因此查了查vbs可以進(jìn)行開機(jī)在網(wǎng)頁上自動(dòng)登錄，實(shí)現(xiàn)開機(jī)聯(lián)網(wǎng)。（不同的網(wǎng)頁使用的登錄方法是不同的，下面的僅作參考）
環(huán)境：window10專業(yè)版

一，編寫vbs

網(wǎng)頁其中DDDDD是賬號(hào)的位置，upass為密碼，我在網(wǎng)上看的一些方法對(duì)于我這個(gè)并不適用，因此就結(jié)合他們的自己改了改。（有些代碼是猜的之前沒接觸過vbs）

在上面的情況下使用如下的代碼登錄（可以先創(chuàng)建一個(gè)txt文件之后將后綴改為vbs，如果看不到后綴，需要打開查看中的文件拓展名，就像本文的最后一個(gè)圖一樣）

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/是你要登錄網(wǎng)站的網(wǎng)址，其中的f3是form的name，f3.DDDDD是在form表下面的賬號(hào)的name，f3.upass是form下面的密碼的name。（我一直想用f3.0MKKey表示那個(gè)登錄按鈕，但是不知道怎么用，后來試著發(fā)現(xiàn)onsubmit也可以當(dāng)作提交登錄）
如果想讓它自動(dòng)退出，可以在最后加兩句

wscript.sleep 2000
IE.quit

二，配置為開機(jī)自啟

這個(gè)比較簡單，只需要將這個(gè)vbs文件放到下面目錄中就可以了。
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
（注意ProgramData是個(gè)隱藏文件夾，想要顯示隱藏文件夾可以打開查看中的隱藏的項(xiàng)目，如下圖所示）

補(bǔ)充：下面給大家分享一段有趣的代碼，基于vbs實(shí)現(xiàn)惡搞無限彈窗，復(fù)制粘貼就能用。

vbs簡單實(shí)現(xiàn)彈窗

直接新建txt文檔，復(fù)制粘貼下面代碼：

do
a =msgbox("你怕是個(gè)ZZ吧？",vbYesNoCancel,"一份認(rèn)真的問卷調(diào)查")
if a =vbYes then
? ? msgbox "emmmm，還算有點(diǎn)自知之明",,"恭喜你，真正的認(rèn)識(shí)了自己！"
exit do
elseif a =vbNo then
? ? b =msgbox("心里沒點(diǎn)AC數(shù)嗎？",vbYesNo,"不要想太多，你就是！")
? ? if b =vbYes then
? ? msgbox "沒點(diǎn)數(shù)，自己照照鏡子?。?,,"這就是你學(xué)習(xí)好的原因啊"
? ? else
? ? msgbox "能認(rèn)識(shí)錯(cuò)誤還是好的",,"MDZZ"
? ? end if
else
? ? d =msgbox("取消你嗎呢",vbYesNo,"還想點(diǎn)取消？")
? ? if d =vbYes then
? ? msgbox "取消也沒用",,"這是一個(gè)輪回"
? ? else
? ? msgbox "不取消就趕緊承認(rèn)吧",,"ZZ"
? ? end if

end if
loop

保存，修改文件格式為vbs，確認(rèn)，打開。

“”雙引號(hào)里面可以隨意修改內(nèi)容，看別人很多都是寫表白的

注意：第五行的 exit do 表示退出  就是說第一次點(diǎn)擊yes之后可以點(diǎn)確定退出彈窗，否則無限循環(huán)。（把exit do這句去掉就是死循環(huán)了，但是可以通過結(jié)束進(jìn)程來關(guān)閉，這個(gè)就不多說了，有問題多百度！） 

到此這篇關(guān)于vbs實(shí)現(xiàn)web自動(dòng)登錄網(wǎng)站的文章就介紹到這了,更多相關(guān)vbs自動(dòng)登錄網(wǎng)站內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

最新評(píng)論