[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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


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

返回列表