制作游戲輔助教材推薦抓取網(wǎng)頁(yè)指定內(nèi)容,獲取網(wǎng)頁(yè)里的.docx

制作游戲輔助教材推薦：抓取網(wǎng)頁(yè)指定內(nèi)容（資料），獲取網(wǎng)頁(yè)里的圖片來(lái)源：按鍵學(xué)院 【按鍵精靈】 最近有遇到同學(xué)反饋，網(wǎng)頁(yè)里的那些沒(méi)有特征值的文本元素不知道怎么獲取。以及，不知道怎么獲取保存網(wǎng)頁(yè)里出現(xiàn)的圖片。獲取網(wǎng)頁(yè)指定文字：目前按鍵支持的元素特征值有這些： frame（框架） 、id（唯一標(biāo)識(shí)） 、tag（標(biāo)簽） 、type（類(lèi)型）、txt（文本） 、value（特征） 、index（索引） 、name（名字） 擁有這些特征值的元素才能直接使用HtmlGet命令來(lái)獲取元素文本信息。命令名稱(chēng)：HtmlGet 獲取網(wǎng)頁(yè)元素的信息命令功能： 獲取網(wǎng)頁(yè)元素指定屬性的信息命令參數(shù)： 參數(shù)1：字符串型，網(wǎng)頁(yè)元素屬性類(lèi)型：text、html、 outerHtml、value、src、href、 offset 參數(shù)2：字符串型，網(wǎng)頁(yè)元素特征字符串 例如下面的例子，按鍵精靈論壇搜索框，它有type、name、id這三個(gè)特征值。 我們?nèi)∷黫d特征值帶入到HtmlGet 命令來(lái)查看下結(jié)果：Call Plugin.Web.Bind(WQM.exe)Call Plugin.Web.go(/forum-250-1.html)/要提取信息的網(wǎng)站Txt=Plugin.Web.HtmlGet(value,id:scbar_txt) TracePrint Txt成功獲取到了搜索框的value值。我們現(xiàn)在想要取下面紅色區(qū)域塊的帖子標(biāo)題，想要把一個(gè)頁(yè)面中的這些帖子名稱(chēng)都取出來(lái)。該怎么辦？ 這些文字，都沒(méi)有特征值的。我們不能使用特征值的方式去找他們。 我們可以這樣獲取到整個(gè)網(wǎng)頁(yè)的文本之后，去找我們要取的標(biāo)題，前后不變的字符。 大家會(huì)發(fā)現(xiàn)，這個(gè)頁(yè)面中，帖子標(biāo)題前后不便的字符是：“ 和 “果果?！?那我們就將”“字符前面的文本都過(guò)濾掉，“果果。“后面的文本也過(guò)率掉，這樣就能得到我們所需要的文本。首先，我們需要復(fù)習(xí)下幾個(gè)函數(shù)：InStr函數(shù)描述start可選的。規(guī)定每次搜索的起始位置。默認(rèn)是搜索起始位置是第一個(gè)字符。如果已規(guī)定 compare 參數(shù)，則必須有此參數(shù)。string1必需的。需要被搜索的字符串。string2必需的。需搜索的字符串。compare必需的。規(guī)定要使用的字符串比較類(lèi)型。默認(rèn)是 0 。可采用下列值： 0= vbBinaryCompare - 執(zhí)行二進(jìn)制比較。 1 = vbTextCompare - 執(zhí)行文本比較。 Mid函數(shù)描述string必需的。從其中返回字符的字符串表達(dá)式。如果字符串包含 Null，則返回 Null。start必需的。規(guī)定起始位置。如果設(shè)置為大于字符串中的字符數(shù)目，則返回空字符串()。length可選的。要返回的字符數(shù)目。如果省略或 length 超過(guò)文本的字符數(shù)，將返回字符串中從 start 到字符串結(jié)束的所有字符。Len函數(shù)描述string任意有效的字符串表達(dá)式。如果 string 參數(shù)包含Null，則返回 Null。varname任意有效的變量名。如果 varname 參數(shù)包含 Null，則返回 Null。腳本過(guò)程：1. 先打開(kāi)一個(gè)要提取信息的網(wǎng)站。2. 用HtmlGet 命令 獲取整個(gè)網(wǎng)頁(yè)的文本信息，存到Txt變量里面3. 過(guò)濾符號(hào)前面的文本4. 從文本里的符號(hào)后面的位置開(kāi)始取字符串，這里取了一百個(gè)字符放到命名為cc的變量里。如下圖，也可以設(shè)置取80個(gè)字符，60個(gè)字符，但是長(zhǎng)度一定要把“果果?！?給截進(jìn)來(lái)，因?yàn)楹竺嫖覀円ㄟ^(guò)“果果。”作為基準(zhǔn)，去過(guò)濾掉不要的文字。2014-9-12 19:22 上傳下載附件 (65.96 KB) 5. 在cc變量里，找果果。出現(xiàn)的位置，找到之后，截取“果果。”之前的文本，也就是我們需要接取的地方。6. 最后，設(shè)置疊加的變量x，把每次找到的 這個(gè)符號(hào)的位置放到變量x里進(jìn)行累加，累加之后第二次循環(huán)，就會(huì)跳過(guò)之前找過(guò)的內(nèi)容，進(jìn)行新的內(nèi)容的尋找。源碼：Call Plugin.Web.Bind(WQM.exe)Call Plugin.Web.go(/forum-250-1.html)/要提取信息的網(wǎng)站Delay 1000 / 如果網(wǎng)頁(yè)打開(kāi)速度慢，可適當(dāng)添加延遲Txt =Plugin.Web.HtmlGet(text,)/獲取網(wǎng)頁(yè)的文本 x=1Do aa = /過(guò)濾符號(hào)前面的文本 bb = InStr(x, Txt, aa) / 返回aa變量里的這個(gè)字符 在整個(gè)網(wǎng)頁(yè)文本txt里的位置 cc = Mid(Txt, bb + Len(aa), 100)/從文本里的符號(hào)后面的位置開(kāi)始取字符串，這里取了一百個(gè)字符 dd = InStr(1, cc, 果果。)/找cc字符串里，果果。出現(xiàn)的位置，果果。的位置就是我們要接取的字符串的長(zhǎng)度 ee = Mid(cc, 1, dd)/從文本里cc里第一個(gè)字符開(kāi)始，取到果果。文字出現(xiàn)的位置 If Len(ee) 0 Then /判斷有沒(méi)有取到匹配的字符 pp = Left(ee, Len(ee)-1)/如果有取到，我們還要做下處理，因?yàn)榍懊鎒e字符串是取到了果果。出現(xiàn)的位置，所以果字也被取了，我們這里長(zhǎng)度-1，去掉果字 TracePrint pp x = InStr(x, Txt, pp) /這里做個(gè)記號(hào)，把每次找到的 這個(gè)符號(hào)的位置進(jìn)行累加，累加之后第二次循環(huán)，就會(huì)跳過(guò)之前找過(guò)的內(nèi)容，進(jìn)行新的內(nèi)容的尋找。 Else Exit Do /如果沒(méi)有找到匹配的 就退出 End IfLoop 最終效果：2014-9-12 19:23 上傳下載附件 (170.42 KB) 標(biāo)題后面的？234這樣的字符是帖子總回帖的頁(yè)數(shù)獲取網(wǎng)頁(yè)圖片 我們截圖按鍵精靈官網(wǎng)的圖標(biāo)： 2014-9-12 19:25 上傳下載附件 (9.33 KB) 2014-9-12 19:26 上傳下載附件 (173.2 KB) 我們可以查看圖片的具體地址代碼如下：Call Plugin.Web.Bind(WQM.exe)Call Plugin.Web.Go() /打開(kāi)按鍵官網(wǎng)地址Call Plugin.Web.Save(/images/logo.gif, d:123.gif)Delay 3000RunApp mspaint.exe& d:123.gif /打開(kāi)畫(huà)圖工具，看看保存的圖片的效果命令名稱(chēng)：Save 保存網(wǎng)頁(yè)或圖片命令功能：保存指定URL的文件到本地磁盤(pán) 命令參數(shù)：參數(shù)1：字符串型，需要保存的目標(biāo)Url 參數(shù)2：字符串型，本地文件名最終效果：2014-9-12 19:30 上傳下載附件 (150.99 KB) 大家有沒(méi)有注意到，這里的按鍵精靈官網(wǎng)圖標(biāo)，是gif格式的，可以保存。如果是一個(gè)鏈接呢？例如，騰訊QQ注冊(cè)頁(yè)面里的這種驗(yàn)證圖片：2014-9-12 19:30 上傳下載附件 (154.34 KB) 大家看，它的圖片是保存在一個(gè)鏈接里的，這樣就無(wú)法獲取。2014-9-12 19:30 上傳下載附件 (58.92 KB) 地址是沒(méi)有變化的，但是點(diǎn)擊進(jìn)去之后，生成的就是另一張驗(yàn)證圖片了。2014-9-12 19:30 上傳下載附件 (23.81 KB) 所以，遇到這種鏈接方式的圖片，大家還是使用查找圖片的區(qū)域坐標(biāo)，然后用屏幕范圍截圖命令來(lái)截圖保存：/下面這句在屏幕區(qū)域范圍內(nèi)截圖保存到(內(nèi)存)里，以備后面調(diào)用。Call Plugin.ColorEx.PrintScreen(0, 0, 1024, 768)/下面這句在屏幕區(qū)域范圍內(nèi)按方式0，查找顏色,返回左上角第一點(diǎn)顏色位置坐標(biāo) XY = Plugin.ColorEx.FindColor(0, 0, 1024