qtp：鼠标放在webedit上出现提示框，移出消失对象的获取---急---已解决 - 第2页 - [QuickTest Professional] - 51Testing软件测试论坛

renquande 发表于 2011-5-25 16:39:07

此贴已结：
解决办法如下：
1、spy的时候按住ctrl键，鼠标已到相应的地方，等显示提示信息时，放开ctrl键，然后点击提示信息，就可以捕获该对象了
2、加入对象库的方式，qtp上面有个类似数据库的东西（object repository），弹出页面点+号的小图标（add objects to local)，按住ctrl键，鼠标已到相应的地方，等显示提示信息时，放开ctrl键，然后点击提示信息，就可以捕获该对象了

代码示例：
WithBrowser("人保财险营销平台").Page("人保财险营销平台").Frame("baofeishisuan")
   Dim i
rows = .WebTable("保障项目_2").RowCount
msgbox rows
For i=3 to rows
wait 2
setttt=.WebTable("保障项目_2").ChildItem (i,4, "WebEdit",0)
ttt.FireEvent "onmouseover"
   If .webelement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").exist Then
            xx= .WebElement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").GetROProperty("outertext")
      msgbox xx

' =======================================================================================================================
   '获取总共有多少行数据，test是sheet页的名字
   ' =======================================================================================================================
   H=DataTable.GetSheet("Action1").GetRowCount
   ' =======================================================================================================================
   '获取行，即使该行为焦点
   ' =======================================================================================================================
   DataTable.SetCurrentRow(H+1)
   ' =======================================================================================================================
   '给该行赋值，test和上面一样，是写入的sheet页的名字，tishi是该sheet页中存在的一个列名
   ' =======================================================================================================================
   DataTable.value("tishi","Action1")=xx
   else
End If
Next
End With

renquande 发表于 2011-5-25 16:43:09

此贴已结：
使用spy时候按住ctrl键不放，等鼠标异动到相应的地方后，显示提示信息后，放开ctrl键，点击该提示信息就可以获取该对象了

renquande 发表于 2011-5-25 16:44:27

代码示例
WithBrowser("人保财险营销平台").Page("人保财险营销平台").Frame("baofeishisuan")
Dim i
rows = .WebTable("保障项目_2").RowCount
msgbox rows
For i=3 to rows
wait 2
setttt=.WebTable("保障项目_2").ChildItem (i,4, "WebEdit",0)
ttt.FireEvent "onmouseover"
   If .webelement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").exist Then
            xx= .WebElement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").GetROProperty("outertext")
      msgbox xx

renquande 发表于 2011-5-25 16:45:04

代码示例：
setttt=.WebTable("保障项目_2").ChildItem (i,4, "WebEdit",0)
ttt.FireEvent "onmouseover"
   If .webelement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").exist Then
            xx= .WebElement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").GetROProperty("outertext")
      msgbox xx

linna.zhou 发表于 2012-5-29 18:24:26

嗯，这个是个不错的法子。

页: 1 [2]

51Testing软件测试论坛 's Archiver