VBS 에서 강아지 영상 에서 ED2K 연결 실현 코드 추출

강아지 영상 을 열 고 자신 이 필요 로 하 는 자원 을 검색 합 니 다.자원 유형 선택:당나귀,다음 그림: 저 는 19.75GB 를 찾 았 습 니 다. 시 에 열 었 습 니 다.다음 그림 과 같은 화면 이 나타 나 면 정상 적 인 다운로드 주소 가 차단 되 었 음 을 볼 수 있 습 니 다.우 리 는 주소 표시 줄 의 인터넷 주 소 를 복사 하여 준비 합 니 다. 본 사이트 에서 다운로드 한 VBS 스 크 립 트 를 열 고 이 사 이 트 를 입력 상자 로 복사 한 다음 확인 하 십시오.잠시 후 알림 이 완 료 된 메시지 상자 가 나타 날 것 입 니 다.이 시간의 길 이 는 네트워크 속도 에 의 해 결 정 됩 니 다! 마지막 으로 저 희 는 최종 ED2K 연결 주 소 를 얻 었 습 니 다.모두 현재 디 렉 터 리 에 저 장 된 e2k.txt 파일 에 저 장 됩 니 다. 은 무엇 을 기다 리 고 있 습 니까?다운로드 도 구 를 열 고 다운 로드 를 시작 하 세 요!^ ^
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

테스트 만 가능 합 니 다.만약 어떤 버그 를 발견 한다 면 저 에 게 반영 해 주 십시오!!