搬瓦工可以长期做网站,广告制作开票大类是什么,网络工程公司属于什么行业,新闻式软文经典案例本来是想通过JS实现对其他页面的控制#xff0c;发现跨域无法获取页面DOM来操作。接着考虑bat#xff0c;发现也实现不了#xff0c;于是想到vbs。vbs还是很强大啊#xff0c;病毒之类很多都是vbs脚本啊。vbs打开浏览器#xff0c;然后通过dom来操作页面#xff0c;可以实…本来是想通过JS实现对其他页面的控制发现跨域无法获取页面DOM来操作。接着考虑bat发现也实现不了于是想到vbs。vbs还是很强大啊病毒之类很多都是vbs脚本啊。vbs打开浏览器然后通过dom来操作页面可以实现自动填写内容和按钮点击等。摸索了几个常用的代码如下1、网页文本框赋值并提交按钮Dim wsh,ie,btn,conSet ie WScript.CreateObject(InternetExplorer.Application)ie.Visible trueie.navigate http://www.baidu.comDoWscript.Sleep 200Loop Until ie.readyState 4Set conie.Document.getElementById(kw)con.valuebig dataSet btnie.Document.getElementById(su)btn.click2、动态js加载的网页深入frame内自动操作Dim wsh,ie,btn,obj,sel,delSet wshCreateObject(wscript.shell)Set ie WScript.CreateObject(InternetExplorer.Application)ie.Visible trueie.navigate http://mail.qq.com等待网页打开成功qq邮箱参照前面自动填写用户名和密码提交下面的id都是登录qq邮箱后的页面才有DoWscript.Sleep 200Loop Until ie.readyState 4找到指定id的a标签并点击Set btn ie.Document.getElementById(folder_1)btn.focusbtn.clickwsh.SendKeys {ENTER}等待网页打开成功DoWscript.Sleep 200Loop Until ie.readyState 4通过frame/iframe的id获取其页面set obj ie.document.frames(mainFrame).document全部勾选checkboxSet selobj.getElementById(ckb_selectAll)sel.checkedtruesel.clickWscript.Sleep 2000a标签点击Set delobj.getElementById(quick_completelydel)del.click从页面中找到指定id的元素For i0 To obj.all.length-1If obj.all(i).idid no ThenmsgBox getEnd IfNext总结要实现对网页的自动操作比如用于测试或者一些批量工作首先要解析网页的元素然后针对元素进行自动操作HTML DOM是需要掌握的。
