1.为“WinEdit”创建一个新的copy方法:
Sub Copy (edit)
Edit.Click 3, 3
Edit.SetSelection 0, Len(Edit.GetROProperty("text"))
Edit.Type micCtrlDwn + "c" + micCtrlUp
End Sub
'注册
RegisterUserFunc "WinEdit", "Copy", "Copy"
'调用
Dialog("Login").WinEdit("Agent Name:").Copy
2.为“WebEdit”创建一个新的Set方法:(新的方法会给出report:Set前WebEdit值)
Function MySet (obj, x)
dim y
y = obj.GetROProperty("value")
Reporter.ReportEvent micDone, "previous value", y
MySet=obj.Set(x)
End Function
'注册
RegisterUserFunc"WebEdit", "Set", "MySet"
'调用
Browser("MercuryTours").Page("FindFlights").WebEdit("Country").Set "Canada"
'注销
UnRegisterUserFunc "WebEdit", "Set"