vbscript网页模拟登录效果代码
更新时间:2018年04月30日 15:22:01 投稿:mdxy-dxy
电脑浏览器记住密码功能好蛋疼~有时候不好用~~登录CMCC-EDU的时候老是要输入帐号。。看了看登录页面的网页源码~~撸起个Vbs脚本~读取配置文件,简单实现了自己登录CMCC-EDU,把帐号存在同级目录下就好,需要的朋友可以参考下
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud)
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
闲的蛋疼今天~
电脑浏览器记住密码功能好蛋疼~有时候不好用~~登录CMCC-EDU的时候老是要输入帐号。。看了看登录页面的网页源码~~撸起个Vbs脚本~读取配置文件,简单实现了自己登录CMCC-EDU,把帐号存在同级目录下就好。一行帐号,一行密码。
好久不用vbs~都忘记了快~~
'自动登录CMCC-EDU 'By:Seven 2014/2/25 On Error Resume Next Set WshShell = CreateObject("wscript.Shell") Set fso = CreateObject("scripting.filesystemobject") Set ie = CreateObject("InternetExplorer.Application") Set list = fso.OpenTextFile("帐号.txt") ie.Visible=1 ie.Navigate "www.baidu.com" Do Until ie.ReadyState =4 : WScript.Sleep 200 : Loop ie.document.getElementByIdx_x("bpssUSERNAME").Value=List.ReadLine ie.document.getElementByIdx_x("bpssBUSPWD").Value=List.ReadLine Set AllElement=ie.Document For i=0 To AllElement.all.length-1 if AllElement.all(i).tagname="INPUT" Then if AllElement.all(i).value="登录" Then AllElement.all(i).click End If End if Next
效果图
相关文章
VBScript把json字符串解析成json对象的2个方法
这篇文章主要介绍了VBScript把json字符串解析成json对象的2个方法,本文通过MSScriptControl.ScriptControl和jscript实现,需要的朋友可以参考下2014-08-08
最新评论