|
不会啊,下面是我在本地跑的描述性代码:
Dim pageobj
Set pageobj = Browser("CreationTime:=2").Page("index:=").WebEdit("name:=TextboxUserCode")
RegisterUserFunc "WebEdit", "Set", "mySet"
pageobj.Set "jinsentest1"
UnRegisterUserFunc "WebEdit", "Set"
Function mySet(obj,val1)
Dim tempValue
tempValue = obj.GetROProperty("value")
If tempValue = val1 Then
Reporter.ReportEvent micDone, "test check point", "val1 = " & val1
Else
Reporter.ReportEvent micDone, "test check point", "tempValue = " & tempValue
End If
tempValue = "val1 = " & val1
obj.Set(val1)
End Function
以上可以通过,但是要传多个参数没有想到办法。 |
|