If Browser("ECRM系统登陆页").Page("Garden HotelCRM_2").Frame("frmright_2").WebElement("outerText:= ADVANTEST SHANGHAI LTD /ZHD[Z] [Andy ZHENG] ").Exist(1) Then
msgbox "ok",,"描述化对象"
End If
下面的对象的属性spy截图:作者: nk9841 时间: 2007-1-25 14:08
上面的程序,我如果用录制的方法,运行就可以找到对象,代码如下:
If Browser("ECRM系统登陆页").Page("Garden HotelCRM_2").Frame("frmright_2").WebElement("全选").Exist(1) Then
msgbox "ok",,"test object"
End If
If Browser("ECRM系统登陆页").Page("Garden HotelCRM_2").Frame("frmright_2").WebElement("outerText:= ADVANTEST SHANGHAI LTD /ZHD[Z] [Andy ZHENG] ").Exist(1) Then
msgbox "ok",,"描述化对象"
End If