尝试自动登录电信网站遇到的问题

hlssoft

自动登陆网站还是初次尝试，看了不少帖子。因工作性质需要，常要上电信网站查看话费情况，尝试着自动登录，“客户编号”和“客户密码”已可以自动填写上了，“验证码”只能手工填了，“登录”总是搞不定？我知道这一行有问题：
.Document.all("submitForm")(4).submit
但不知该如何改，请教高手和能人帮个忙。 自动登录.rar (8.77 KB, 下载次数: 33)

2012-7-5 14:15 上传

点击文件名下载附件

以下是相关网页源代码：

<div class="tab-content" style="overflow: visible">

<div class="box on" style="display: block;">

<div class="login-5 width-auto">

<div class="row common-tips">

<div id="acctNoTip_4" class="col-1">

客户编号

</div>

<div class="col-2 tips-title">

<input id="acctNo_4"

onkeydown="if(event.keyCode==13) event.keyCode=9"

tabindex="1" type="text"

style="width: 100%" class="mouse-position" name=""

maxlength="16">

</div>

</div>

<div class="row common-tips">

<div id="passwdTip_4" class="col-1">

客户密码:

</div>

<div class="col-2 tips-title">

<input id="passwd_4"

onkeydown="if(event.keyCode==13) event.keyCode=9"

tabindex="1" type="password"

style="width: 50%;" class="mouse-position" name=" "

maxlength="15">

<a id="fetchPassword_4"

href="/service/manage/findPassword.action">找回密码</a>

</div>

</div>

<div class="row">

<div class="col-1">

验证码:

</div>

<div class="col-2">

<span class="validate-col"> <a

href="javascript:void(0)" id="code"> <img id="imgCode_4"

alt="验证码" src="/biz/authImg?type=0&"

+ Math.random()

onclick="javascript:changeImage('imgCode_4')"

class="validate-col" /> </a> </span>

<input id="randCode_4"

tabindex="5" type="text"

style="width: 50px;" class="float-left yzm" name=" ">

</div>

</div>

<p class="align-center btn-panel">

<a class="btn-2 btn-2-3" href="javascript:submitForm(4)"

tabindex="5"><span>登录</span>

</a>

请大家帮个忙，先谢谢了！

wudixin96

把submit改成click？？？

蓝天630902

Sub 中国电信网上营业厅()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://bj.189.cn/biz/login/login.action"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Document.All.tags("INPUT")(24).Value = "客户编号"
        .Document.All.tags("INPUT")(25).Value = "客户密码: "
        .Document.All.tags("INPUT")(26).Value = "验证码: "
        .Document.All.tags("span")(9).Click
    End With
End Sub

hlssoft

改成“click”也不行。运行提示如下：

hlssoft

感谢3楼出手相助，看过很多3楼的帖子，谢谢了！马上试试。

hlssoft

解决了，可以正常登录了！谢谢3楼！高手就是不一样！
我刚才只改了 .Document.All.tags("span")(9).Click这一句，其他的一会再试试。

hlssoft

三楼的代码没有问题，谢谢！

hlssoft

现在这一句又不起作用了： .Document.All.tags("span")(9).Click
尝试着各种办法没有解决，水平有限，已经无能为力，不知是网页有变化还是其它什么原因，请老师您再给看看，先谢谢了！

719404338

楼主的验证码怎么输入？