Rational Robot

    1.    启动robot

　　2.    录制操作

　　脚本如下：

 　　Sub Main
　　Dim Result As Integer
　　Dim Temp as Integer
　　//启动ie,连接到http://192.168.1.42
　　StartBrowser "http://192.168.1.42", "WindowTag=WEBBrowser"
　　//让ie窗口获得焦点
　　Window SetContext, "WindowTag=WEBBrowser", ""
　　//打开新的页面
　　Browser NewPage,"HTMLTitle=Dynaweb EPS 2003企业门户服务器",""
　　//点用户名文本框
　　EditBox Click, "Name=username", "Coords=35,12"
　　//输入用户名密码
　　InputKeys "admin{TAB}jetspeed"
　　 // 点登陆
　　PushButton Click, "Name=submit"
　　//进入新页面
　　Browser NewPage,"HTMLTitle=Dynaweb EPS 2003企业门户服务器",""
　　// 点退出连接
　　HTMLImage Click, "Index=7", "Coords=11,7"
　　//关闭ie
　　Window CloseWin, "", ""
 　　End Sub

　　3.回放 测试通过

    Quick Test 6.5

　　1.    启动quick test

　　2.    录制操作 脚本如下

 　　//打开browser对象 object (page是个对象)方法的object（webedit也是个方法）的set方法，意思就是设置文本框username,内容为admin

　　Browser("Dynaweb EPS").Page("Dynaweb EPS_2").WebEdit("username").Set "admin"

　　//同上，这回调用的是setsecure方法，作用是将password文本框中的文本进行加密
　　Browser("Dynaweb EPS").Page("Dynaweb EPS_2").WebEdit("password").SetSecure "3fe6931be2a331101ac0bbbc"

　　//调用对象webbutton对象的click方法

　　Browser("Dynaweb EPS").Page("Dynaweb EPS_2").WebButton("v{ _U ").Click

　　//调用Image对象的click方法，目的退出

　　Browser("Dynaweb EPS").Page("Dynaweb EPS_3").Image("T_ S y R 梑 g h_ {~ ").Click
　　''Browser("Dynaweb EPS").Page("Dynaweb EPS_3").Link("2333").Click
　　Browser("Dynaweb EPS").Page("Dynaweb EPS_4").Image("logout").Click

　　//等待页面操作完毕
　　Browser("Dynaweb EPS").Page("Dynaweb EPS_5").Sync