对象库编程是我们平时工作中使用最多的编程方式，在自动化脚本开发中起到举足轻重的作用，与描述性性编程相比，更直接和易于维护，今天就和大家简单的聊聊如何进行对象库编程。
既然是对象库编程，肯定要对已存在于对象库中的对象进行编程，先准备将要使用的网页，我们将上一节的例子稍加修改，做出一个简单的用户调查页面。
点击【提交】，跳转到用户信息显示页面。
依然采用wamp环境，下面是页面代码，很简单。
<html>
<head>
<title>web对象演示</title>
<meta http-equiv="Content-type" content="text/html" charset="utf-8">
<style>
.content{
width:260px;
height:30px;
}
.edit{
width:170px;
border-color: gray;
border-width: 1px;
}
span{
width:70px;
}
table{
border: 1px solid black;
padding:0;
margin:0 auto;
border-collapse: collapse;
} td{
border: 1px solid black;
font-size:12px;
padding: 3px 3px 3px 8px;
color: black;
}
</style>
</head>
<body>
<form action="user-info.php" method="post">
<div class="content">
<span>用户名</span><input type="text" name="username" class="edit">
</div>
<div class="content">
<span>邮箱</span><input type="mail" name="mail" class="edit">
</div>
<div class="content">
<span>个人介绍</span><textarea rows="5" cols="20" class="edit"></textarea>
</div>
<div class="content">
<br><span>开发语言</span>
<select name="language">
<option value ="php">php</option>
<option value ="java">java</option>
<option value ="vbs">vbs</option>
<option value ="python">python</option>
</select>
</div>
<div class="content">
<br><span>爱好</span>
<input type="checkbox" name="hobby[0]" value="电影" id="film">电影
<input type="checkbox" name="hobby[1]" value="游戏" id="game">游戏
<input type="checkbox" name="hobby[2]" value="阅读" id="read">阅读
</div>
<div class="content">
<br><span>性别</span>
<input type="radio" name="man" value="男" checked="checked">男
<input type="radio" name="woman" value="女">女
</div>
<div class="content">
<br><span>点此提交</span>
<input type="submit" name="sub" value="提交" class="button1">
</div>
</form>
<div class="content">
<span>友情链接</span><a href="http://www.baidu.com">百度</a>
</div>
</body>
</html>
<html>
<head>
<title>用户信息示</title>
<meta http-equiv="Content-type" content="text/html" charset="utf-8">
<style>
table{
border: 1px solid black;
padding:0;
margin:0 auto;
border-collapse: collapse;
} td{
border: 1px solid black;
font-size:20px;
padding: 3px 3px 3px 8px;
color: black;
}
</style>
</head>
<body>
<table>
<tr><td>用户名</td><td>邮箱</td><td>性别</td><td>爱好</td><td>开发语言</td></tr>
<?php
if($_POST["hobby"]){
foreach($_POST["hobby"] as $value){
$hobbies.=$value;
}
} if($_POST["sub"]){
echo "<tr><td>".$_POST["username"]."</td><td>".$_POST["mail"]."</td><td>".$_POST["sex"]."</td><td>".$hobbies."</td><td>".$_POST["language"]."</td></tr>";
}
?>
</table>
</body>
</html>
将对象添加至对象库
编写代码的两种方式
- 拖动对象自动生成代码
切换左侧窗口至Available Keywords模式，将对象拖动至Expert View中。
可以看到，自动生成了一行代码，并给出了WebButton对象的基本方法Click。如果需要其他的方法，可以把.Click删除，在WebButton("提交")后输入"."即可。
- 步骤生成器(F7)
Category中选择“Test Object”,点击Object行最右侧的按钮，选择“提交”，点击【OK】，Operation 选择 “Click”，点击【OK】。
其实还有一种编写代码的方式，那就是手动写全部代码。输入Browser和左括号会自动完成Browser("web对象演示")，在输入.Page左括号，如下图。
选择“web对象演示”，接着输入.WebButton("提交").后会显示当前对象即WebButton("提交")可以使用的方法。
获取对象属性的方法
- GetTOProperty
获取对象库中对象的属性值，使用方法：对象.GetTOProperty(属性名)。
print Browser("web对象演示").Page("web对象演示").WebButton("提交").GetTOProperty ("type")
print Browser("web对象演示").Page("web对象演示").WebButton("提交").GetTOProperty ("name")
print Browser("web对象演示").Page("web对象演示").WebButton("提交").GetTOProperty( "outerhtml")
运行后结果如图，与html中的代码是一致的。
如果想获取对象的全部属性，可以使用GetTOProperties方法。
set tb=Browser("web对象演示").Page("web对象演示").WebButton("提交").GetTOProperties()
For i= to tb.count-
name=tb(i).Name
Value=tb(i).Value
print name & "=" & Value
Next
- SetTOProperty
设置对象库中对象的属性值，使用方法：对象.SetTOProperty(属性名,值)。
Browser("web对象演示").Page("web对象演示").WebButton("提交").SetTOProperty "type","edit"
Browser("web对象演示").Page("web对象演示").WebButton("提交").SetTOProperty "name","编辑框"
print Browser("web对象演示").Page("web对象演示").WebButton("提交").GetTOProperty("type")
print Browser("web对象演示").Page("web对象演示").WebButton("提交").GetTOProperty("name")
需要注意的是，这里对对象库中属性值的修改是临时的，在脚本运行结束时会自动还原。
- GetROProperty
获取对象运行时的属性，使用方法：对象.GetTOProperty(属性名)。
Set tb=Browser("web对象演示").Page("web对象演示").WebEdit("用户名")
print "对象库中Value="&tb.GetTOProperty("value")
tb.Set "测试"
print "运行时对象库中Value="&tb.GetTOProperty("value")
print "运行时对象Value=" &tb.GetROProperty("value")
结果如下图，输入框中输入值以后，对象库中的value属性依然为空，GetROProperty 获取的是对象在脚本运行时的临时属性值。
开始吧
完成文章开始图片中输入效果的代码如下
Browser("web对象演示").Page("web对象演示").WebEdit("用户名").Set "test"
Browser("web对象演示").Page("web对象演示").WebEdit("邮箱").Set "11111@qq.com"
Browser("web对象演示").Page("web对象演示").WebEdit("个人介绍").Set "haha"
Browser("web对象演示").Page("web对象演示").WebList("开发语言").Select "java"
Browser("web对象演示").Page("web对象演示").WebCheckBox("电影").Set "ON"
Browser("web对象演示").Page("web对象演示").WebCheckBox("游戏").Set "ON"
Browser("web对象演示").Page("web对象演示").WebRadioGroup("性别").Select "男"
Browser("web对象演示").Page("web对象演示").WebButton("提交").Click
如果感觉看的不舒服可以按下Ctrl+W，自动转换成with模式，还原按下Ctrl+Shit+W.
With Browser("web对象演示").Page("web对象演示")
.WebEdit("用户名").Set "test"
.WebEdit("邮箱").Set "11111@qq.com"
.WebEdit("个人介绍").Set "haha"
.WebList("开发语言").Select "java"
.WebCheckBox("电影").Set "ON"
.WebCheckBox("游戏").Set "ON"
.WebRadioGroup("性别").Select "男"
.WebButton("提交").Click
End With
如何验证结果
点击【提交】以后就跳转到了信息显示页面，如何验证信息的正确性呢？很简单，调用WebTable对象的GetCellData方法即可，一个简单的填写验证代码如下。
With Browser("web对象演示")
With .Page("web对象演示")
.WebEdit("用户名").Set "test"
.WebEdit("邮箱").Set "11111@qq.com"
.WebEdit("个人介绍").Set "haha"
.WebList("开发语言").Select "java"
.WebCheckBox("电影").Set "ON"
.WebCheckBox("游戏").Set "ON"
.WebRadioGroup("性别").Select "男"
.WebButton("提交").Click
End With
With .Page("用户信息示")
username=.WebTable("用户名").GetCellData(,)
mail=.WebTable("用户名").GetCellData(,)
sex=.WebTable("用户名").GetCellData(,)
End With
End With
If username="test" and mail="11111@qq.com" and sex="男" Then
msgbox "OK"
End If