本来是想通过JS实现对其他页面的控制，发现跨域无法获取页面DOM来操作。接着考虑bat，发现也实现不了，于是想到vbs。vbs还是很强大啊，病毒之类很多都是vbs脚本啊。vbs打开浏览器，然后通过dom来操作页面，可以实现自动填写内容和按钮点击等。摸索了几个常用的，代码如下：
1、网页文本框赋值并提交按钮
- Dim wsh,ie,btn,con
- Set ie = WScript.CreateObject("InternetExplorer.Application")
- ie.Visible = true
- ie.navigate "http://www.baidu.com"
-
- Do
- Wscript.Sleep 200
- Loop Until ie.readyState = 4
-
- Set con=ie.Document.getElementById("kw")
- con.value="big data"
-
- Set btn=ie.Document.getElementById("su")
- btn.click
2、动态js加载的网页，深入frame内自动操作
- Dim wsh,ie,btn,obj,sel,del
-
- Set wsh=CreateObject("wscript.shell")
- Set ie = WScript.CreateObject("InternetExplorer.Application")
- ie.Visible = true
- ie.navigate "http://mail.qq.com"
-
- Do
- Wscript.Sleep 200
- Loop Until ie.readyState = 4
-
- Set btn =ie.Document.getElementById("folder_1")
- btn.focus
- btn.click
- wsh.SendKeys "{ENTER}"
-
- Do
- Wscript.Sleep 200
- Loop Until ie.readyState = 4
-
- set obj = ie.document.frames("mainFrame").document
- Set sel=obj.getElementById("ckb_selectAll")
- sel.click
- Wscript.Sleep 2000
- Set del=obj.getElementById("quick_completelydel")
- del.click
-
总结：要实现对网页的自动操作，比如用于测试或者一些批量工作，首先要解析网页的元素，然后针对元素进行自动操作，HTML DOM是需要掌握的。
分类：
