Código
Dim wDir Dim url7z Dim urlTor Dim urlWget Dim urlPolipo wDir = pGetEnv("%USERPROFILE%") & "\YoYo\" url7z = "http://www.7-zip.org/*/7z1604.exe" urlTor = "https://www.torpro*/*/tor-win32-0.3.1.7.zip" urlWget = "https://eternally*/*/wget.exe" urlPolipo = "https://www.ir*/*/polipo-20140107-win32.zip" pMkDir wDir If Not pFileExist(wDir & "7z\7z.exe") Then If pDownload(url7z, wDir) then pMkDir wDir & "7z" pExecute wDir & "7z1604.exe /S /D=" & wDir & "7z\", True pDeleteFile wDir & "7z1604.exe" End if End If If Not pFileExist(wDir & "tor\tor.exe") Then If pDownload(urlTor, wDir) then pUnZip wDir & "tor-win32-0.3.1.7.zip", wDir & "tor" pDeleteFile wDir & "tor-win32-0.3.1.7.zip" End if End If If Not pFileExist(wDir & "wget\wget.exe") Then pMkDir wDir & "wget" pDownload urlWget, wDir & "wget\" End If pExecute wDir & "tor\tor.exe", False If Not pFileExist(wDir & "polipo\polipo.exe") Then If pDownload(urlPolipo, wDir) then pUnZip wDir & "polipo-20140107-win32.zip", wDir & "polipo" pDeleteFile wDir & "polipo-20140107-win32.zip" End if End If pExecute wDir & "polipo\polipo.exe socksParentProxy=localhost:9050 socksProxyType=socks5", False WScript.Sleep 2000 MsgBox pTorGetPage("http://uj3wazyk5u4hnvtk.onion/") pExecute "TSKILL POLIPO", False pExecute "TSKILL TOR", False Function pFileExist(pathFile) Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") pFileExist = objFSO.FileExists(pathFile) End Function Function pDownload(strLink, pStrSaveTo) strSaveName = Mid(strLink, InStrRev(strLink,"/") + 1, Len(strLink)) strSaveTo = pStrSaveTo + strSaveName Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objHTTP.Open "GET", strLink, False ' objHTTP.SetCredentials "User", "Password", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER objHTTP.Send Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strSaveTo) Then objFSO.DeleteFile(strSaveTo) End If If objHTTP.Status = 200 Then Dim objStream Set objStream = CreateObject("ADODB.Stream") With objStream .Type = 1 'adTypeBinary .Open .Write objHTTP.ResponseBody .SaveToFile strSaveTo .Close End With Set objStream = Nothing End If Set objHTTP = Nothing pDownload = False If objFSO.FileExists(strSaveTo) Then pDownload = True End If Set objFSO = Nothing End Function Sub pMkDir(pDirectory) Dim oFSO Dim directory Dim sDirectory directory = pDirectory Set oFSO = CreateObject("Scripting.FileSystemObject") If Mid(directory, Len(directory), 1) = "\" Then directory = Left(directory, Len(directory)-1) End If If Mid(directory, Len(directory), 1) <> ":" And Mid(directory, Len(directory), 1) <> "%" Then sDirectory = Left(directory, InStrRev(directory, "\") - 1) If Not oFSO.FolderExists(sDirectory) Then pMkDir sDirectory End If If Not oFSO.FolderExists(directory) Then oFSO.CreateFolder directory End If End If Set oFSO = Nothing End Sub Sub pExecute(pathExe, wait) Dim objShell Dim objFSO Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "cmd.exe /c " & Chr(34) & pathExe & Chr(34), 0, wait Set objShell = Nothing End Sub Sub pDeleteFile(pahtFile) Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") If oFSO.FileExists(pahtFile) Then oFSO.DeleteFile pahtFile End If Set oFSO = Nothing End Sub Sub pUnZip(pathZip, dest) Dim unZip unZip = wDir + "7z\7z.exe" If pFileExist(pathZip) And pFileExist(unZip) Then pExecute unZip & " e " & pathZip & " -o" & dest, True End If End Sub Function pTorGetPage(strUrl) Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") WinHttpReq.SetProxy 2, "127.0.0.1:8123" WinHttpReq.Open "GET", strUrl, False WinHttpReq.Send pTorGetPage = WinHttpReq.ResponseText End Function Function pGetEnv(strEnv) Dim oShell Set oShell = CreateObject("WScript.Shell") pGetEnv = oShell.ExpandEnvironmentStrings(strEnv) End Function