平武建站

如何使用VBS提取狗狗影视中的ED2K连接-创新互联

这篇文章主要为大家展示了“如何使用VBS提取狗狗影视中的ED2K连接”，内容简而易懂，条理清晰，希望能够帮助大家解决疑惑，下面让小编带领大家一起研究并学习一下“如何使用VBS提取狗狗影视中的ED2K连接”这篇文章吧。

创新互联建站主要从事成都网站设计、做网站、成都外贸网站建设公司、网页设计、企业做网站、公司建网站等业务。立足成都服务玉山,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792

打开狗狗影视，搜索自己需要的资源，资源类型选：电驴，如下图：

如何使用VBS提取狗狗影视中的ED2K连接

我找到一个 19.75GB 的：

如何使用VBS提取狗狗影视中的ED2K连接

点开它，出现如下图的界面，可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址，备用。

如何使用VBS提取狗狗影视中的ED2K连接

打开从本站下载的 VBS 脚本，复制该网址到输入框，然后确定，稍过一会，会出现提示完成的消息框，这个时间的长短由你的网速决定！

如何使用VBS提取狗狗影视中的ED2K连接

最后，我们得到最终的 ED2K 连接地址，全部保存在当前目录下的 ed2k.txt 文件中：

如何使用VBS提取狗狗影视中的ED2K连接

还等什么？打开你的下载工具，开始下载吧！^_^



GetEd2kLink.VBS 代码如下，你也可以直接下载 GetED2KLink：

复制代码 代码如下:


On Error Resume Next

SourceURL = inputbox( _
 vbcrlf & "提取完成后您将收到一个提示。这个过程中" & vbcrlf & _
 vbcrlf & "请耐心等待，文件结果保存在：ed2k.txt"   & vbcrlf & _
 vbcrlf & "请输入链接地址:" & vbcrlf, "Get ED2K Link", "http://" _
)

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

'获取网页源码
Set ObjHttp = CreateObject("Microsoft.XMLHTTP")
ObjHttp.Open "Get", SourceURL, false
ObjHttp.Send
SourceCode = Split(CodeConver(ObjHttp.responsebody), chr(10))

'分析网页源码
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

'保存结果
If Ed2KLink = "" Then
 MsgBox "该网页中找不到任何 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 "已完成全部作业!", 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连接”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！


网页标题：如何使用VBS提取狗狗影视中的ED2K连接-创新互联
标题链接：http://pwwzsj.com/article/pojdo.html

其他资讯