DDR爱好者之家 Design By 杰米
打开狗狗影视,搜索自己需要的资源,资源类型选:电驴,如下图:

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

仅供测试,如发现任何 BUG,欢迎向我反映!!

DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米

P70系列延期,华为新旗舰将在下月发布

3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。

而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?

根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。