VBS extracts the implementation code of ED2K connection in dog movie

This article mainly introduced through the VBS to extract the dog movie ed2k connection, needs the friend may refer to under

Open the dog film and television, search for the resources they need, the type of resource selected: Electric Donkey, the following figure:



I found a 19.75GB:



Click on it, the following image appears in the interface, you can see the normal download address has been blocked. We copy the URL in the Address bar, standby.



Open from this site to download the VBS script, copy the URL to the input box, and then determine, a little over a while, will be prompted to complete the message box, the length of time by your speed decision!



Finally, we get the final ed2k connection address, all saved in the Ed2k.txt file in the current directory:



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

Geted2klink.vbs code as follows, you can also download Geted2klink directly:

Copy Code code as follows:


On Error Resume Next

sourceURL = InputBox (_
vbCrLf & "You will receive a prompt when the extraction is complete. In the process of "& vbCrLf & _
vbCrLf & "Please be patient, file results are guaranteed: 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!", "Get ed2k link"
Wscript.Quit (1)
End If

' Get web page source
Set objhttp = CreateObject ("Microsoft.XMLHTTP")
Objhttp.open "Get", sourceURL, False
Objhttp.send
SourceCode = Split (Codeconver (objhttp.responsebody), Chr (10))

' Analysis page Source
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 results
If Ed2klink = "" Then
MsgBox "There is no ed2k connection found on this page!", "The Get ed2k link"
Wscript.Quit (2)
Else
Set objFSO = CreateObject ("Scripting.FileSystemObject")
objFSO.OpenTextFile ("Ed2k.txt", 8,true). Write (Ed2klink)
End If

MsgBox "has done all the work!", "ed2k"
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

For testing only, such as finding any bugs, welcome to my reflection!!