RegisterUserFunc方法

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"