Dialog("Login").WinEdit("Agent Name:").Set "kemin" '输入用户名
' msgbox "用户名正确"
Dialog("Login").WinEdit("Password:").Set"kemin" '密码不等于mercury 时,登录失败
' msgbox "密码不正确"
Dialog("Login").WinButton("OK").Click ' 点击ok进行登录
If Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Exist Then
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
Dialog("Login").WinEdit("Password:").SetSecure "mercury" '重新输入正确的密码
Dialog("Login").WinButton("OK").Click
End If