Плюсую, годная функция
Внедрение Tor
-
@Viktor без записи в файл. Порт должен быть больше 1001, логично в БАСе как-либо подбирать следующий за уже открытыми.
Set objArgs = WScript.Arguments Port= objArgs(0) ' Количество запускаемых прокси CPort= objArgs(0)-1000 countries = "" ' Например "{ru},{ua}". Пустое значение - любая страна If Not (countries = "") Then countries = " -ExitNodes " & countries End If Set WshShell = CreateObject("WScript.Shell") WshShell.Run "tor.exe -f torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory %temp%\tor" & i & countries, 0 WshShell = Null -
Очень давно пользовался этим решением http://zennolab.com/discussion/threads/tor-proxy-mnogopotochnyj.14958/ Можете открыть шаб в демке Зеннопостера и попробовать адаптировать в БАС
-
@MAKAR получилась такая штука:
proxycount = 1 countries = "" ' �������� "{ru},{ua}". ������ �������� - ����� ������ ' �� ������������ ���� ���� ����� ' DO NOT EDIT below this line Set objArgs = WScript.Arguments For i=0 To proxycount-1 Step 1 Port= objArgs(0) ' Количество запускаемых прокси CPort= objArgs(0)-1000 If Not (countries = "") Then countries = " -ExitNodes " & countries End If Set WshShell = CreateObject("WScript.Shell") WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0 WshShell = Null Next f.CloseОшибка в строке 9 символ 1 - выходит за пределы допустимого диапазона. Извини если чо, но я внатури дуб, в этом языке не шарю от слова никак.
-
@Viktor f.close можно убрать, это закрытие файла, в который должен был записаться список проксей, но его нет. если не запускается, проверь пути и имена файлов в этой строке
WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0data\tor.exe data\torrc data\torf может быть нужно изменить -
proxycount = 1 countries = "" ' �������� "{ru},{ua}". ������ �������� - ����� ������ ' �� ������������ ���� ���� ����� ' DO NOT EDIT below this line Set objArgs = WScript.Arguments For i=0 To proxycount-1 Step 1 Port= objArgs(0) ' Количество запускаемых прокси CPort= objArgs(0)-1000 If Not (countries = "") Then countries = " -ExitNodes " & countries End If Set WshShell = CreateObject("WScript.Shell") WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0 WshShell = Null Next -
Использование тора подразумевает лишь прокси? Отпечаток нужно дополнительно менять?