自动登录Chinaren校友录脚本

以下为我写的自动登录Chinaren校友录的脚本：
'============================
On Error Resume Next
set Wshell=WScript.createobject("WScript.shell")
while(true)
            'On Error Resume Next
            set ie=WScript.createobject("internetexplorer.application")
           
            ie.navigate " http://alumni.chinaren.com/class/class_index.jsp?classuuid=135876464987354687345"
          ie.visible=true
            do
                Wscript.sleep 6000
            loop until (ie.ReadyState=3  Or ie.ReadyState = 4)
            Wscript.sleep 4000
            Set txt =ie.Document.body.createTextRange()
            If(txt.findText("本班成员登录才可查看")) then
       ie.visible = true
                in_name = ie.Document.getElementsByName("uid")
                in_pass = ie.Document.getElementsByName("passwd")
                in_name.value = "你的用户名"                
    in_pass.value = "你的密码"
                Wscript.sleep 500
          in_pass.focus() 
          wshell.sendkeys "~"          
                Wscript.sleep 1000
    ie.visible = false
                do
                    Wscript.sleep 3000
                loop until (ie.ReadyState = 3 Or ie.ReadyState = 4)
            End if
              
            'if err.number then 
            '    err.Clear              
            'end if 
            wscript.sleep 30000
            'wshell.sendkeys"^w" 
            ie.quit()
            wscript.sleep 1000*60*15
 wend
 
'=======================================
将以上文字拷贝到文本文件中，然后将“ classuuid=135876464987354687345”中的“135876464987354687345”改为你班级主页的id，然后将“ 你的用户名”改为你的用户名，例如：xuwedo2001，将“你的密码”改为你的密码，例如：159753。保存，然后将文件的扩展名改为“.vbs”，例如：autoLoginChinaren.vbs，然后双击即可。 

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！