找回密码
 加入
搜索
查看: 2105|回复: 4

[IE类操作] 请教 中文用户名 不能登录的问题

[复制链接]
发表于 2010-12-25 17:03:37 | 显示全部楼层 |阅读模式
#include <IE.au3>
Dim $oIE,$ID,$PW,$login
Dim $a1,$a2,$a3,$a4,$a5,$a6
$a1=IniRead("config.ini","addr","url","notFound") ;获取地址
$a2=IniRead("config.ini","username","usern","notFound") ;获取用户名
$a3=IniRead("config.ini","password","pass","notFound") ;获取密码
$a4=IniRead("config.ini","user","logname","notFound") ;获取登录名
$a5=IniRead("config.ini","tim","tims","notFound") ;获取时间
$a6=IniRead("config.ini","IE","key","notFound") ;浏览器

$single_a2 = StringSplit($a2,",")  ;获取单独的用户名
$single_a3 = StringSplit($a3,",")  ;获取单独的密码
$single_a4 = StringSplit($a4,",")  ;获取单独的的登录名称

$a5*=60000

For $i=1 To $single_a2[0] Step 1       
       
        ;MsgBox(1,"titile",$a1&$single_a4[1]&$single_a2[$i]&$single_a4[2]&$single_a3[$i])
        openIE($a1,$single_a4[1],$single_a2[$i],$single_a4[2],$single_a3[$i])
        sleep($a5)
        closeIE($a6)
Next


Func openIE($b1,$b2,$b3,$b4,$b5)
$oIE=_IECreate($b1)  ;地址
_IELoadWait($oIE)
$ID = _IEGetObjById ($oIE,$b2)  ;用户名称
$ID.value = $b3                ;用户名
$PW= _IEGetObjById ($oIE,$b4)   ;密码名称
$PW.value = $b5                 ;密码

;Send("{ENTER}")
$oIE.document.login.submit()
EndFunc

Func closeIE($b6)
ProcessClose($b6)
EndFunc

这个是代码

以下是ini文件
[addr]
;登录的地址
url=http://youxi.mop.com/play/ronhospital.html

[username]
;自动登陆的用户名  多个用户名用逗号隔开
usern=牛XXX人,tangh217

[password]
;密码,同上。不过要与上面的用户名一一对应,英文逗号
pass=*****,******

[user]
;用户名,密码,登录键 名称
;如果登录按钮没有名字,那就填写她在那个form内的数字
logname=user_name,password,0

[tim]
;不同用户登录的间隔时间(分)
tims=1

[IE]
;默认的打开的浏览器 的进程。用户关闭浏览器
;360  :360se.exe
;腾讯TT : TTraveler.exe
;谷歌  ;  chrome.exe
key=TTraveler.exe

现在的问题是 牛XXX人这个号 不能自动登录。手工点可以。tangh217 这个没汉字的就可以直接登录。
请教如何修改
发表于 2010-12-25 17:20:30 | 显示全部楼层
可能是不支持中文。如send就不支持中文。
 楼主| 发表于 2010-12-25 17:46:05 | 显示全部楼层
send  我注释了。用的是
$oIE.document.login.submit()
 楼主| 发表于 2010-12-25 23:06:04 | 显示全部楼层
本帖最后由 tangh217 于 2010-12-25 23:13 编辑

各位 我看到了 点击登陆的时候 还有个事件是 document.charset='gb2312'
请问怎么在 au里面加入这句呢。或者转换成 gb2312的

我这样用
_IENavigate($oIE,"javascript:document.charset='gb2312'")
   不行哦


下面的是原有的 form

<form id="login" name="login" accept-charset="gb2312" action="http://passport.mop.com/Login?url=http://youxi.mop.com/logged.do?url=http://youxi.mop.com/play/qiuqiu.html" target="_top" method="post">
<ul class="wdl">
<li>
昵称或邮箱地址:
</li>
<li>       
<input type="text" maxlength="50" name="user_name" class="inputC" />
</li>
<li>
密码:
</li>
<li>
<input type="password" maxlength="50" name="password" class="inputC" />
</li>
<li class="zddl">
<input type="checkbox" name="auto_login" value="1" class="checkboxC" />
下次自动登录
<a href="http://passport.mop.com/sign/login_1.jsp?from=http://youxi.mop.com/play/qiuqiu.html">没有猫扑帐号?</a>
</li>
<li class="btnarea">
<input type="button" class="btnC btn_dl" value="登录" onclick="javascript:document.charset='gb2312'; if(!CheckForm())return; document.login.submit();" />
<input type="button" class="btnC btn_cz" value="注册"  onclick="javascript:window.location.href='http://passport.mop.com/sign/login_1.jsp?from=http://youxi.mop.com'" />
</li>
</ul>
</form>
 楼主| 发表于 2010-12-26 12:25:27 | 显示全部楼层
搞定了。呼
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-18 11:58 , Processed in 0.084379 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表