如何使用VBS提取狗狗影視中的ED2K連接-創(chuàng)新互聯(lián)

這篇文章主要為大家展示了“如何使用VBS提取狗狗影視中的ED2K連接”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“如何使用VBS提取狗狗影視中的ED2K連接”這篇文章吧。

創(chuàng)新互聯(lián)建站主要從事成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、成都外貿(mào)網(wǎng)站建設(shè)公司、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)玉山,十多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專(zhuān)業(yè),歡迎來(lái)電咨詢(xún)建站服務(wù):13518219792

打開(kāi)狗狗影視，搜索自己需要的資源，資源類(lèi)型選：電驢，如下圖：



我找到一個(gè) 19.75GB 的：



點(diǎn)開(kāi)它，出現(xiàn)如下圖的界面，可以看到正常下載地址已被屏蔽。我們復(fù)制地址欄中的網(wǎng)址，備用。



打開(kāi)從本站下載的 VBS 腳本，復(fù)制該網(wǎng)址到輸入框，然后確定，稍過(guò)一會(huì)，會(huì)出現(xiàn)提示完成的消息框，這個(gè)時(shí)間的長(zhǎng)短由你的網(wǎng)速?zèng)Q定！



最后，我們得到最終的 ED2K 連接地址，全部保存在當(dāng)前目錄下的 ed2k.txt 文件中：



還等什么？打開(kāi)你的下載工具，開(kāi)始下載吧！^_^

GetEd2kLink.VBS 代碼如下，你也可以直接下載 GetED2KLink：

復(fù)制代碼 代碼如下:

On Error Resume Next

SourceURL = inputbox( _
 vbcrlf & "提取完成后您將收到一個(gè)提示。這個(gè)過(guò)程中" & vbcrlf & _
 vbcrlf & "請(qǐng)耐心等待，文件結(jié)果保存在：ed2k.txt"   & vbcrlf & _
 vbcrlf & "請(qǐng)輸入鏈接地址:" & vbcrlf, "Get ED2K Link", "http://" _
)

IF SourceURL = "" or SourceURL = "http://" Then
 MsgBox "鏈接地址不能為空!", 48, "Get ED2K Link"
 Wscript.Quit(1)
End If

'獲取網(wǎng)頁(yè)源碼
Set ObjHttp = CreateObject("Microsoft.XMLHTTP")
ObjHttp.Open "Get", SourceURL, false
ObjHttp.Send
SourceCode = Split(CodeConver(ObjHttp.responsebody), chr(10))

'分析網(wǎng)頁(yè)源碼
For i = 0 To UBound(SourceCode)-LBound(SourceCode)
 MatchLine = InStr(SourceCode(i), "ed2k://|file|")
    If MatchLine <> 0 Then
  ArrPub = Split(Replace(SourceCode(i), "},{", "}#{"), "#")
  For K = 0 To UBound(ArrPub)-LBound(ArrPub)
   Ed2KLink = Ed2KLink & Split(Split(ArrPub(K), ",")(5), """")(3) & vbcrlf
  Next
 End If
Next

'保存結(jié)果
If Ed2KLink = "" Then
 MsgBox "該網(wǎng)頁(yè)中找不到任何 ed2k 連接!", 48, "Get ED2K Link"
 Wscript.Quit(2)
Else
 Set ObjFSO = CreateObject("Scripting.FileSystemObject")
 ObjFSO.OpenTextFile("ed2k.txt", 8,true).Write(Ed2KLink)
End If

MsgBox "已完成全部作業(yè)!", 64, "Get ED2K Link"
Wscript.Quit(0)

Function CodeConver(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn,i,1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn,i+1,1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    CodeConver = strReturn
End Function

以上是“如何使用VBS提取狗狗影視中的ED2K連接”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

分享題目：如何使用VBS提取狗狗影視中的ED2K連接-創(chuàng)新互聯(lián)
分享路徑：http://muchs.cn/article10/pojdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供建站公司、電子商務(wù)、面包屑導(dǎo)航、網(wǎng)站排名、營(yíng)銷(xiāo)型網(wǎng)站建設(shè)、小程序開(kāi)發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)