[转贴] 用VBSscript脚本测试网页的简单实例

find

软件自动化测试的实现过程无非是:识别测试对象->捕捉到测试对象->操作测试对象->检查(验证)测试对象->输出测试结果. 大到商用测试软件,如QTP, Rational Robot;小到一些简单的脚本,如js,vbs, ruby 这些过程是一样的. 下面我写了个超简单的vbs实现自动化测试的例子, 以给大家启发.

' ***************以下为代码
'****************
'****************
option explicit
dim ie,doc,box,button,flag,uls,ul
Set ie=CreateObject("InternetExplorer.Application") '新建浏览器对象实例
ie.Visible=True
ie.Navigate "http://www.chihaode.com"
Do While ie.ReadyState<>4 '判断是否加载完毕,否则等待
WScript.Sleep 1000
Loop
set doc=ie.Document '设置IE文档对象
set box=doc.getElementById("text_food") '找到输入框对象
box.value="豆腐" '输入框赋值
set button=doc.getElementById("submit_rel")
button.click '点击按钮
WScript.Sleep 1000
'以下为验证
flag=-1
set uls=doc.getElementsByTagName("ul")
For Each ul In uls   '需求的<ul class=""foodlists"">节点
If instr(1,ul.className,"foodlists")>0 Then
   flag=0
End If
Next
if flag<>-1 then '判断是否找到
MsgBox "找到需求的<ul class=""foodlists"">节点!测试通过!" '输出信息
else
MsgBox "未找到需求的<ul class=""foodlists"">节点!测试不通过!"
end if
复制代码

http://bugcool.blog.51cto.com/2080571/505480