阿里旺旺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("[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]");在登陆失败再次点击一次“登录”，竟然神奇的登录成功了