Shulou(Shulou.com)06/03 Report--

This article mainly shows you "how to use VBS to extract ED2K connections in dog film and television", the content is easy to understand, clear, hope to help you solve doubts, the following let the editor lead you to study and learn "how to use VBS to extract ED2K connections in dog film and television" this article.

Open Dog Film and Television, and search for the resources you need. Select the resource type: electric donkey, as shown below:

I found a 19.75GB:

Click on it, and the interface shown below shows that the normal download address has been blocked. Let's copy the URL in the address bar for backup.

Open the VBS script downloaded from this site, copy the URL to the input box, and then make sure that a message box prompting for completion will appear after a while, and the length of time is determined by your network speed!

Finally, we get the final ED2K connection address, which is saved in the ed2k.txt file in the current directory:

What are you waiting for? Open your download tool and start downloading! ^ _ ^

The GetEd2kLink.VBS code is as follows. You can also download GetED2KLink directly:

The copy code is as follows:

On Error Resume Next

SourceURL = inputbox (_

Vbcrlf & "you will receive a prompt after the extraction is completed. In this process" & vbcrlf & _

Vbcrlf & "Please be patient. The file result will be saved at: ed2k.txt" & vbcrlf & _

Vbcrlf & "Please enter the link address: & vbcrlf," Get ED2K Link "," http://" _ "

)

IF SourceURL = "" or SourceURL = "http://" Then

MsgBox "Link address cannot be empty!", 48, "Get ED2K Link"

Wscript.Quit (1)

End If

'get the source code of the web page

Set ObjHttp = CreateObject ("Microsoft.XMLHTTP")

ObjHttp.Open "Get", SourceURL, false

ObjHttp.Send

SourceCode = Split (CodeConver (ObjHttp.responsebody), chr (10))

'analyze the source code of the page

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

'Save the result

If Ed2KLink = "" Then

MsgBox "No ed2k connections were found on this page!", 48, "Get ED2K Link"

Wscript.Quit (2)

Else

Set ObjFSO = CreateObject ("Scripting.FileSystemObject")

ObjFSO.OpenTextFile ("ed2k.txt", 8je true) .write (Ed2KLink)

End If

MsgBox "all assignments completed!", 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

The above is all the contents of the article "how to use VBS to extract ED2K connections in Dog Film and Television". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.