Browser("用户登录").Page("用户登录").WebEdit("username").Set "peach_4125"
Dim uname
uname=Browser("用户登录").Page("用户登录").WebEdit("username").GetROProperty("peach_4125")
If uname="peach_4125" Then
msgbox "正确"
Browser("用户登录").Page("用户登录").WebEdit("password").SetSecure "4bc57660319edd6fb657b1dd6ab8e73f64c4"
Browser("用户登录").Page("用户登录").WebButton("登录游戏").Click
Browser("用户登录").Page("选择角色").Link("退出游戏").Click
Browser("用户登录").Page("选择角色").WebButton("确定").Click
Browser("用户登录").Page("用户登录_2").Sync
Browser("用户登录").CloseAllTabs
else
msgbox"错误"
Browser("用户登录").CloseAllTabs
End If