QTP 无法识别web 大全

说明：这里以一个登陆框为例，展示了各种方式供你选择。

假设你喜欢对象的话。也能够手动加入对象webedit。

依据以上信息，我们就能够玩转web对象了：

1、採用WebElement的描写叙述编程方式：
        Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("name:=name").Object.value= "test1"
 msgbox Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("name:=name").Object.value
 msgbox Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("name:=name").GetROProperty("value")

2、顺便添加2个右键操作的，左键方法类似：
Setting.WebPackage("ReplayType") = 2
  Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("name:=name").RightClick
  wait 2
  Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("name:=name").Click
  Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("name:=name").FireEvent "onclick",,,micRightBtn
  wait 2
 Setting.WebPackage("ReplayType") = 1
 

3、依据webElement的id：
        Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("html id:=userName").Object.value ="test2"
 msgbox Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("html id:=userName").Object.value 
 

4、依据对象的多个属性来确定唯一对象：
          Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("class:=input_div","type:=text").Object.value ="test3"
 msgbox Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").WebElement("html id:=userName").Object.value 
 

5、採用DOM方式的getelementByid方式：
       Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").Object.getelementbyid("userName").value = "test4"
msgbox Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").Object.getelementbyid("userName").value

6、採用DOM方式的getelementByName方式：
'这里仅仅取对象名为name的第一个对象的值
       Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").Object.getElementsByName("name").item(0).value = "test5"
msgbox Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").Object.getElementsByName("name").item(0).value
       Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").Object.getElementsByName("name")(0).value = "test6"
msgbox Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").Object.getElementsByName("name")(0).value


'假设有多个同名的则会返回多个
Set oEdites = Window("360安全浏览器 7.1").Page("好视通BOSS管理系统").Object.getElementsByName("name")
For each oEdit in oEdites
msgbox oEdit
msgbox oEdit.value
Next