vbs實現(xiàn)web自動登錄網(wǎng)站的方法
背景:我們的電腦需要開機登錄一個網(wǎng)址輸入信息才能夠上網(wǎng),這樣對遠程的話,很不友好。因此查了查vbs可以進行開機在網(wǎng)頁上自動登錄,實現(xiàn)開機聯(lián)網(wǎng)。(不同的網(wǎng)頁使用的登錄方法是不同的,下面的僅作參考)
環(huán)境:window10專業(yè)版
一,編寫vbs
網(wǎng)頁其中DDDDD是賬號的位置,upass為密碼,我在網(wǎng)上看的一些方法對于我這個并不適用,因此就結(jié)合他們的自己改了改。(有些代碼是猜的之前沒接觸過vbs)
在上面的情況下使用如下的代碼登錄(可以先創(chuàng)建一個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/是你要登錄網(wǎng)站的網(wǎng)址,其中的f3是form的name,f3.DDDDD是在form表下面的賬號的name,f3.upass是form下面的密碼的name。(我一直想用f3.0MKKey表示那個登錄按鈕,但是不知道怎么用,后來試著發(fā)現(xiàn)onsubmit也可以當作提交登錄)
如果想讓它自動退出,可以在最后加兩句
wscript.sleep 2000 IE.quit
二,配置為開機自啟
這個比較簡單,只需要將這個vbs文件放到下面目錄中就可以了。
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
(注意ProgramData是個隱藏文件夾,想要顯示隱藏文件夾可以打開查看中的隱藏的項目,如下圖所示)
補充:下面給大家分享一段有趣的代碼,基于vbs實現(xiàn)惡搞無限彈窗,復制粘貼就能用。
vbs簡單實現(xiàn)彈窗
直接新建txt文檔,復制粘貼下面代碼:
do a =msgbox("你怕是個ZZ吧?",vbYesNoCancel,"一份認真的問卷調(diào)查") if a =vbYes then ? ? msgbox "emmmm,還算有點自知之明",,"恭喜你,真正的認識了自己!" exit do elseif a =vbNo then ? ? b =msgbox("心里沒點AC數(shù)嗎?",vbYesNo,"不要想太多,你就是!") ? ? if b =vbYes then ? ? msgbox "沒點數(shù),自己照照鏡子啊!",,"這就是你學習好的原因啊" ? ? else ? ? msgbox "能認識錯誤還是好的",,"MDZZ" ? ? end if else ? ? d =msgbox("取消你嗎呢",vbYesNo,"還想點取消?") ? ? if d =vbYes then ? ? msgbox "取消也沒用",,"這是一個輪回" ? ? else ? ? msgbox "不取消就趕緊承認吧",,"ZZ" ? ? end if end if loop
保存,修改文件格式為vbs,確認,打開。
“”雙引號里面可以隨意修改內(nèi)容,看別人很多都是寫表白的
注意:第五行的 exit do 表示退出 就是說第一次點擊yes之后可以點確定退出彈窗,否則無限循環(huán)。(把exit do這句去掉就是死循環(huán)了,但是可以通過結(jié)束進程來關(guān)閉,這個就不多說了,有問題多百度!)
到此這篇關(guān)于vbs實現(xiàn)web自動登錄網(wǎng)站的文章就介紹到這了,更多相關(guān)vbs自動登錄網(wǎng)站內(nèi)容請搜索本站以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持本站!
版權(quán)聲明:本站文章來源標注為YINGSOO的內(nèi)容版權(quán)均為本站所有,歡迎引用、轉(zhuǎn)載,請保持原文完整并注明來源及原文鏈接。禁止復制或仿造本網(wǎng)站,禁止在非www.sddonglingsh.com所屬的服務器上建立鏡像,否則將依法追究法律責任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來,僅供學習參考,不代表本站立場,如有內(nèi)容涉嫌侵權(quán),請聯(lián)系alex-e#qq.com處理。