VBS脚本和HTML DOM自动操作网页

2016-06-16 10:24 1068人阅读 评论(0) 收藏 举报
VBS脚本和HTML DOM自动操作网页 分类:
Windows(42) VBS脚本和HTML DOM自动操作网页

版权声明:本文为博主原创文章,未经博主允许不得转载。

本来是想通过JS实现对其他页面的控制,发现跨域无法获取页面DOM来操作。接着考虑bat,发现也实现不了,于是想到vbs。vbs还是很强大啊,病毒之类很多都是vbs脚本啊。vbs打开浏览器,然后通过dom来操作页面,可以实现自动填写内容和按钮点击等。摸索了几个常用的,代码如下:

1、网页文本框赋值并提交按钮

  1. Dim wsh,ie,btn,con
  2. Set ie = WScript.CreateObject("InternetExplorer.Application")
  3. ie.Visible = true
  4. ie.navigate "http://www.baidu.com"
  5. Do
  6. Wscript.Sleep 200
  7. Loop Until ie.readyState = 4
  8. Set con=ie.Document.getElementById("kw")
  9. con.value="big data"
  10. Set btn=ie.Document.getElementById("su")
  11. btn.click

2、动态js加载的网页,深入frame内自动操作

  1. Dim wsh,ie,btn,obj,sel,del
  2. Set wsh=CreateObject("wscript.shell")
  3. Set ie = WScript.CreateObject("InternetExplorer.Application")
  4. ie.Visible = true
  5. ie.navigate "http://mail.qq.com"
  6. '等待网页打开成功,<span style="font-family: Arial, Helvetica, sans-serif;">qq邮箱参照前面自动填写用户名和密码提交,下面的id都是登录qq邮箱后的页面才有</span>
  7. Do
  8. Wscript.Sleep 200
  9. Loop Until ie.readyState = 4
  10. '找到指定id的a标签并点击
  11. Set btn =ie.Document.getElementById("folder_1")
  12. btn.focus
  13. btn.click
  14. wsh.SendKeys "{ENTER}"
  15. '等待网页打开成功
  16. Do
  17. Wscript.Sleep 200
  18. Loop Until ie.readyState = 4
  19. '通过frame/iframe的id获取其页面
  20. set obj = ie.document.frames("mainFrame").document
  21. '全部勾选checkbox
  22. Set sel=obj.getElementById("ckb_selectAll")
  23. 'sel.checked=true
  24. sel.click
  25. Wscript.Sleep 2000
  26. 'a标签点击
  27. Set del=obj.getElementById("quick_completelydel")
  28. del.click
  29. '从页面中找到指定id的元素
  30. 'For i=0 To obj.all.length-1
  31. 'If obj.all(i).id="id no" Then
  32. '   msgBox "get"
  33. 'End If
  34. 'Next

总结:要实现对网页的自动操作,比如用于测试或者一些批量工作,首先要解析网页的元素,然后针对元素进行自动操作,HTML DOM是需要掌握的。

上一篇:【nodejs学习】3.进程管理及异步编程


下一篇:C# 异步编程学习(一)