本來(lái)是想通過(guò)JS實(shí)現(xiàn)對(duì)其他頁(yè)面的控制，發(fā)現(xiàn)跨域無(wú)法獲取頁(yè)面DOM來(lái)操作。接著考慮bat，發(fā)現(xiàn)也實(shí)現(xiàn)不了，于是想到vbs。vbs還是很強(qiáng)大啊，病毒之類(lèi)很多都是vbs腳本啊。vbs打開(kāi)瀏覽器，然后通過(guò)dom來(lái)操作頁(yè)面，可以實(shí)現(xiàn)自動(dòng)填寫(xiě)內(nèi)容和按鈕點(diǎn)擊等。摸索了幾個(gè)常用的，代碼如下：

1、網(wǎng)頁(yè)文本框賦值并提交按鈕

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、動(dòng)態(tài)js加載的網(wǎng)頁(yè)，深入frame內(nèi)自動(dòng)操作

Dim wsh,ie,btn,obj,sel,delSet wsh=CreateObject("wscript.shell") Set ie = WScript.CreateObject("InternetExplorer.Application") ie.Visible = true ie.navigate "http://mail.qq.com" '等待網(wǎng)頁(yè)打開(kāi)成功，<span style="font-family: Arial, Helvetica, sans-serif;">qq郵箱參照前面自動(dòng)填寫(xiě)用戶(hù)名和密碼提交，下面的id都是登錄qq郵箱后的頁(yè)面才有</span> Do Wscript.Sleep 200 Loop Until ie.readyState = 4 '找到指定id的a標(biāo)簽并點(diǎn)擊 Set btn =ie.Document.getElementById("folder_1") btn.focus btn.click wsh.SendKeys "{ENTER}" '等待網(wǎng)頁(yè)打開(kāi)成功 Do Wscript.Sleep 200 Loop Until ie.readyState = 4 '通過(guò)frame/iframe的id獲取其頁(yè)面 set obj = ie.document.frames("mainFrame").document '全部勾選checkbox Set sel=obj.getElementById("ckb_selectAll") 'sel.checked=true sel.click Wscript.Sleep 2000 'a標(biāo)簽點(diǎn)擊 Set del=obj.getElementById("quick_completelydel") del.click'從頁(yè)面中找到指定id的元素 'For i=0 To obj.all.length-1 'If obj.all(i).id="id no" Then ' msgBox "get" 'End If 'Next總結(jié)：要實(shí)現(xiàn)對(duì)網(wǎng)頁(yè)的自動(dòng)操作，比如用于測(cè)試或者一些批量工作，首先要解析網(wǎng)頁(yè)的元素，然后針對(duì)元素進(jìn)行自動(dòng)操作，HTML DOM是需要掌握的。

總結(jié)

以上是生活随笔為你收集整理的VBS脚本和HTML DOM自动操作网页的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。