|
#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 这个没汉字的就可以直接登录。
请教如何修改 |
|