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

the2008

;此程序测试环境为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("[class:StandardFrame]")
Sleep(1000)
ControlSetText("[class:StandardFrame]", "", "[CLASS:EditComponent; INSTANCE:2]", $user);输入用户名
Sleep(1000)
ControlSend ("[class:StandardFrame]", "", "[CLASS:ATL:Edit; INSTANCE:1]", $psw,1);输入密码
Sleep(1000)
ControlClick("[class:StandardFrame]", "", "[CLASS:StandardButton; INSTANCE:8]");不知道为什么第一次点击“登录”失败，在提示密码错误后再点击一次“登路”，居然登陆成功了
Sleep(5000)
ControlClick("[class:StandardFrame]", "", "[CLASS:StandardButton; INSTANCE:8]");在登陆失败再次点击一次“登录”，竟然神奇的登录成功了

本程序虽然可以登陆阿里旺旺2012，但是为什么第一次点击“登录”失败，而第二次点击“登录”就成功登录了；另外如果密码框里面有错误密码如何用语句清除；，本人是新手希望论坛里面高手指点一二，谢谢！

user3000

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

the2008

感谢楼上的热情回答，有机会试一试