关于自动登录126邮箱点击“登录”按钮的程序求助（已解决）

changwang

我想自动登录网易126邮箱，用户名密码已经能输进去了，就是最后那个“登录”按钮点击不成功。
程序：
    #include <Date.au3>  
    #include <IE.au3>  
        Run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE http://mail.126.com/")
    sleep(2000) ;等待IE启动
    $oIE = _IEAttach ("126网易免费邮--你的专业电子邮局" )        
        $name=_IEGetObjById($oIE,"idInput")
        _IEFormElementSetValue ($name, "wa888888")  
    $pass=_IEGetObjById($oIE,"pwdInput")
        _IEFormElementSetValue ($pass, "6546464645")
    $okk= _IEGetObjById($oIE, "loginBtn")
   _IEAction($okk,"click")
最后那个“click”实现不了
那位帮助小弟一下啊
（第一次发帖，有些规矩不懂，大家将就看吧
网页原代码就是现在126邮箱登录的那个）

ajian55

经测试，以上代码可以正常登录。

猜测楼主无法登录的原因：
1.是否帐号或密码错误？
2.是否登录次数过多需要验证码？

nivisde

#include <IE.au3>
Global $ie=_IECreate("http://mail.126.com/")
Global $form=_IEFormGetObjByName($ie,"login126")
Global $user=_IEFormElementGetObjByName($form,"idInput")
Global $pawd=_IEFormElementGetObjByName($form,"pwdInput")
Global $button=_IEFormElementGetObjByName($form,"loginBtn")
_IEFormElementSetValue($user,"username")
_IEFormElementSetValue($pawd,"password")
_IEFormSubmit($form);或
;_IEAction($button,"click")

用这个代码，然后你看IE有什么弹出来不？
剩下的当然自己排除了

changwang

回复 3# nivisde

不自动弹出来
我的电脑win7，安装有360，默认浏览器原来是火狐，现在刚设置为IE，但是还是不自动弹出来，把360关了也不行

账号密码肯定没问题，问题是，我的程序根本就没有执行“单击登录按钮“的动作

nivisde

回复 4# changwang


    把360卸载了。
我一般就装2种，IE8或以上版本。
谷歌 chrome

用谷歌 chrome 是因为他有一个同步设置，收藏夹，书签等等这个功能。
又可以右键审查元素，方便看到网页标签等。

#include <IE.au3>
Global $ie=_IECreate("http://mail.126.com/")
Global $form=_IEFormGetObjByName($ie,"login126")
Global $user=_IEFormElementGetObjByName($form,"idInput")
Global $pawd=_IEFormElementGetObjByName($form,"pwdInput")
Global $button=_IEFormElementGetObjByName($form,"loginBtn")
_IEFormElementSetValue($user,"users")
_IEFormElementSetValue($pawd,"pwd")
;_IEFormSubmit($form)或
_IEAction($button,"click")

这个代码在 server2003
IE8下 测试成功

komaau3

#include <IE.au3>

$oIE = _IECreate('http://mail.126.com/', 1)
$oid = _IEGetObjById($oIE, 'idInput')
If IsObj($oid) Then $oid.Value = 'wa888888'
$oid = _IEGetObjById($oIE, 'pwdInput')
If IsObj($oid) Then $oid.Value = '6546464645'
$oid = _IEGetObjById($oIE, 'loginBtn')
If IsObj($oid) Then $oid.Click()

我这没什么问题，可能是你的系统环境有问题

changwang

问题解决了，原来我安装的autoit的版本有点低，我重新安装了最新的版本就行了，可能是新版本对IE9支持的更好吧。
多谢上面热心的帮助者

allspark

问题解决了，原来我安装的autoit的版本有点低，我重新安装了最新的版本就行了，可能是新版本对IE9支持的更好 ...
changwang 发表于 2012-8-19 11:23

好吧，我倒是觉得那个点击要注意是张图片！

navy

回复 6# komaau3

win7下测试可用，源码拷走，留下脚印