Board logo

标题: [问题求助] VBS或则批处理自动登陆电影网站怎么写? [打印本页]

作者: xxwb808    时间: 2011-8-7 17:50     标题: VBS或则批处理自动登陆电影网站怎么写?

我想用VBS或则批处理运行记事本中的多个帐号和密码 来登陆电影网站   (电影网站是http://www.5151c.com/default.aspx  测试帐号xxwb01 密码是86115991ty285    还有N个帐号和密码  一直在论坛里逛 一直写起来的代码都不行
作者: broly    时间: 2011-8-7 20:43

记事本中的多个帐号和密码是什么格式的?比如:
username password

或者?
username
password
作者: xxwb808    时间: 2011-8-8 17:09

回复 3# broly

是这种格式的大哥
xxwb01  86115991ty285

xxwb1   86115991ty285

xxwb2   86115991ty285
作者: xxwb808    时间: 2011-8-8 17:17

我可以把电影网站的源文件 放出来
作者: xxwb808    时间: 2011-8-8 17:18

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>鹿城影院</title>
    <link href="style/index.css" rel="stylesheet" type="text/css" />
    <script src="js/iepng.js" type="text/javascript"></script>
    <script src="js/ChageMenu.js" type="text/javascript"></script>
    <script src="js/ChangeSite.js" type="text/javascript"></script>
    <script src="js/Special_js.js" type="text/javascript"></script>
        <script src="js/AC_RunActiveContent.js" type="text/javascript"></script>
    <script src="js/jquery-1.6.1.min.js" type="text/javascript"></script>
    <script type="text/javascript">
        var isIE = !!window.ActiveXObject;
        var isIE6 = isIE && !window.XMLHttpRequest;
        if (isIE6)
            EvPNG.fix('div, ul, img, li, input,a,img,p');
        function hide(id) {
            document.getElementById(id).style.display = "none";
            writeCookie(id, id,100000);
        }
        function showTip() {
            $("div[id^='tip']").each(function () {
                var id = $(this).attr("id");
                var tipcookie = readCookie(id);
                if (tipcookie == "") {
                    $("#" + id).show();
                }
            });
        }
        window.onload = function () { showTip(); }
    </script>
</head>
<body>

<script type="text/javascript">
    function closediv(i) {
        document.getElementById(i).style.display = 'none';
    }

    function keyInput() {

    }
</script>
<div id="hasIE_level2" style="background:#FFFFBB; text-align: center; padding:2px 0 3px; border-bottom:1px solid #ffd532; top:0; position:absolute; left:0; width:100%;"><div id="iewarning" style="width:19px; float:left;"><img align="absmiddle" src="images/2011news/warning.gif" border="0"></div><div id="closeimg" style="width:19px; float:right;"><a href="javascript:closediv('hasIE_level2');" title="关闭提示"><img src="images/2011news/close1.jpg" align="absmiddle" border="0"></a></div><div style=" margin-top:4px;marign-left:4px;font-size:12px;color:#092E20">本影院只限温州电信用户观看,谢谢合作</div></div>
<div class="warp960">
    <div class="top_nav">
        <div class="top_right">
            <ul>
                <li><a href="http://movie.5151c.com/User/GetPass.html">忘记密码</a></li>
                <li><a href="http://movie.5151c.com/help/play.aspx">帮助中心</a></li>
                <li><a href="http://movie.5151c.com/User/User.html">我要充值</a></li>
            </ul>
        </div>
        <script src="js/checkuser.js" type="text/javascript"></script>
        
        <script src="js/checkuser1.js" type="text/javascript"></script>
        <div id="Head1_login_back" class="top_login">
            <span class="c1"><strong>
                xxwb01
            </strong>欢迎您,</span> <span class="c2"><a href="UCIndex.aspx">
                <img src="images/2011news/bt5.jpg" border="0" /></a></span> <span class="c2"><a style="cursor: hand" href="LoginOut.aspx">
                    <img src="images/2011news/bt6.jpg" border="0" /></a></span> <span class="c2">
                            <div class="move" id="my_movie" style="visibility: hidden" onmouseover="MM_showHideLayers('my_movie','','show')"
                                onmouseout="MM_showHideLayers('my_movie','','hide')">
                                <ul>
                                    <li>暂无影片</li>
                                </ul>
                            </div>
                            <img src="images/2011news/bt8.jpg" border="0" style="cursor: hand" onmouseover="MM_showHideLayers('my_movie','','show')"
                                onmouseout="MM_showHideLayers('my_movie','','hide')" />
                        </span><span class="c2">
                            <div class="move" id="tj_movie" style="visibility: hidden" onmouseover="MM_showHideLayers('tj_movie','','show')"
                                onmouseout="MM_showHideLayers('tj_movie','','hide')">
                                <ul>
                                    
                                            <li><a href="ClipDetails.aspx?TypeId=7&ClipId=13684"
                                                title="蒙特卡罗">
                                                蒙特卡罗</a></li>
作者: broly    时间: 2011-8-8 20:01

刚才写代码测试了,发现你给出的这个网站是自动保存登录状态一段时间的,也就是说,只能上一个帐号,多个帐号不能同时上
  1. Const ForReading = 1
  2. Dim fso,f,objIE
  3. Dim strPath,username,password,ary,strLine,i
  4. '把下面的路径改为你的文本路径
  5. strPath = "C:\UsernamePassword.txt"
  6. Set fso = CreateObject("Scripting.FileSystemObject")
  7. Set f = fso.OpenTextFile(strPath,ForReading,False)
  8. Set objIE = CreateObject("InternetExplorer.Application")
  9. objIE.Visible = True
  10. objIE.Navigate "http://www.5151c.com/default.aspx"
  11. While Not f.AtEndOfLine
  12. strLine = f.ReadLine
  13. If strLine <> "" Then
  14. ary = Split(strLine," ",-1)
  15. username = ary(0)
  16. For i = 1 To UBound(ary)
  17. If ary(i) <> " " Then
  18. password = ary(i)
  19. End If
  20. Next
  21. With objIE
  22. .Navigate "http://www.5151c.com/default.aspx" ,,"_blank"
  23. Do While .Busy Or .ReadyState <> 4
  24.           WScript.Sleep 300
  25.          Loop
  26. .Document.getElementById("Login").UserAccount.value = username
  27. .Document.getElementById("Login").Password.value = password
  28. WScript.Sleep 100
  29. .Document.getElementById("Login").submit()
  30. End With
  31. WScript.Sleep 300
  32. End if
  33. Wend
  34. f.Close
  35. Set fso = Nothing
  36. Set f = Nothing
  37. Set objIE = Nothing
复制代码

作者: xxwb808    时间: 2011-8-9 17:42

回复 6# broly


    谢谢哦 大哥 我测试下




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2