【说明】
用对象的属性描述对象,并利用randomnumber函数随机点击某个按钮
【代码】
Dim buttontext
Dim randnumber
Dialog("Login").WinEdit("Agent Name:").Set "mercury"
Dialog("Login").WinEdit("Password:").Set "mercury"
'Dialog("Login").WinButton("OK").Click 描述性编程
randnumber=randomnumber.Value(1,3)
Select Case randnumber