the2008 发表于 2012-6-7 23:07:00

阿里旺旺2012简单的自动登录,抛砖引玉了

;此程序测试环境为win7 阿里旺旺2012,再此程序的同一目录下新建一个文件名为1.txt的文本文档,第一行输入用户名 第二行输入密码
Dim $user,$psw
$user = FileReadLine("1.txt",1 );在此文件的相同目录下有一个文件名txt文件,第一行为用户名
$psw=FileReadLine("1.txt",2 );获取txt文件的第二行作为密码
MsgBox(0,"username","用户名是"&$user&"密码是"&$psw);显示你的用户名和密码
WinActivate("")
Sleep(1000)
ControlSetText("", "", "", $user);输入用户名
Sleep(1000)
ControlSend ("", "", "", $psw,1);输入密码
Sleep(1000)
ControlClick("", "", "");不知道为什么第一次点击“登录”失败,在提示密码错误后再点击一次“登路”,居然登陆成功了
Sleep(5000)
ControlClick("", "", "");在登陆失败再次点击一次“登录”,竟然神奇的登录成功了本程序虽然可以登陆阿里旺旺2012,但是为什么第一次点击“登录”失败,而第二次点击“登录”就成功登录了;另外如果密码框里面有错误密码如何用语句清除;,本人是新手希望论坛里面高手指点一二,谢谢!

user3000 发表于 2012-6-7 23:19:52

本帖最后由 user3000 于 2012-6-7 23:22 编辑

回复 1# the2008
发送密码前, 清除掉密码框的字符就可以了!
发送20个退格键; 应该没有比这还长的密码了吧?!
ControlSend ("", "", "", '{BS 20}', 0)

the2008 发表于 2012-6-9 00:05:54

感谢楼上的热情回答,有机会试一试
页: [1]
查看完整版本: 阿里旺旺2012简单的自动登录,抛砖引玉了