Что нового

[Сеть, интернет] Смена прокси,переход по ссылкам.

F4nT0m

Новичок
Сообщения
54
Репутация
2
И так,нужно,чтобы скрипт переходил по ссылкам,менял прокси из листа,и снова переходил по ссылкам.
И так пока не кончатся прокси.
Как это можно осуществить?
 

axlwor

Скриптер
Сообщения
657
Репутация
147
1. выложи файл (или что угодно) со списком прокси
2. выложи файл (или что угодно) со списком сайтов
3. просто дождаться загрузки сайта и перейти на следующий?
4. чистить куки, хистори или что угодно?

up
список желательно настоящий. хотя бы 2-3 прокси. и 2-3 сайта (хоть гугль и яндекс вбивай)
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
1.Список прокси:http://zalil.ru/31741666
2.ya.ru,google.com.
Сайты постоянно меняются,поэтому не могу назвать точно.
3.Да.
4.Нет.
 

axlwor

Скриптер
Сообщения
657
Репутация
147
ну так список сайтов то нужно откуда то брать? текстовый файл, страница в инете?
в общем оставляем
Код:
$aSites [3] = ["ya.ru", "google.com", "mail.ru"]


upd код не проверял. может вообще не работает
Код:
#include <file.au3>
#include <array.au3>
#include <ie.au3>

OnAutoItExitRegister("_Exit")
_Save()

;загружаем прокси
Dim $aProxies
If Not _FileReadToArray(@ScriptDir "\replacement.txt", $aProxies) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

;загружаем сайты
$aSites [3] = ["ya.ru", "google.com", "mail.ru"]

;создаем объект $oIE
$oIE = _IECreate ()

For $i = 1 To $aProxies[0]
	_ProxyChange($aProxies[$i])
	For $j = 0 To UBound($aSites) - 1
		$sURL = $aSites[$j]
		_IENavigate($oIE, $sURL, 1)
	Next
Next

Exit



;Меняем прокси
Func _ProxyChange($sProxy = '')
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy)
EndFunc

;Сохраняем значения прокси
Func _Save()
	Global $sProxyEnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
	Global $sProxyServer = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
EndFunc

;Загружаем значения прокси
Func _Load()
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $sProxyEnable)
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxyServer)
EndFunc

;По выходу загружаем сохраненные настройки прокси
Func _Exit()
	_Load()
	MsgBox (0,0, "Вышли из программы")
	Exit
EndFunc
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Что-то не работает,скрин-шот ошибки:
http://s53.radikal.ru/i142/1109/d5/4a71323b9552.jpg
 

axlwor

Скриптер
Сообщения
657
Репутация
147
Код:
#RequireAdmin
#include <file.au3>
#include <array.au3>
#include <ie.au3>

OnAutoItExitRegister("_Exit")
_Save()

;загружаем прокси
Dim $aProxies
If Not _FileReadToArray(@ScriptDir & "\replacement.txt", $aProxies) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

;загружаем сайты
Dim $aSites[3] = ["ya.ru", "google.com", "mail.ru"]

;создаем объект $oIE
$oIE = _IECreate ()

For $i = 1 To $aProxies[0]
	_ProxyChange($aProxies[$i])
	For $j = 0 To UBound($aSites) - 1
		$sURL = $aSites[$j]
		_IENavigate($oIE, $sURL, 1)
		MsgBox(0,0,'')
	Next
Next

Exit



;Меняем прокси
Func _ProxyChange($sProxy = '')
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy)
EndFunc

;Сохраняем значения прокси
Func _Save()
	Global $sProxyEnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
	Global $sProxyServer = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
EndFunc

;Загружаем значения прокси
Func _Load()
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $sProxyEnable)
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxyServer)
EndFunc

;По выходу загружаем сохраненные настройки прокси
Func _Exit()
	_Load()
	MsgBox (0,0, "Вышли из программы")
	Exit
EndFunc
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Спасибо,теперь всё работает.
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Хотя нет,появилась новая проблема:
http://s011.radikal.ru/i318/1109/65/7b84d5a6e0c7.jpg
Может что-то не так со сменой прокси?
 

axlwor

Скриптер
Сообщения
657
Репутация
147
msgbox выкинь. для проверки его оставлял
Код:
For $i = 1 To $aProxies[0]
    _ProxyChange($aProxies[$i])
    For $j = 0 To UBound($aSites) - 1
        $sURL = $aSites[$j]
        _IENavigate($oIE, $sURL, 1)
;        MsgBox(0,0,'')
    Next
Next


по поводу ошибки.
1. прокси неработает
2. в файле были прокси с +. адреса не проверял, поэтому или сам дописывай, или проверяй входной файл с проксями
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Да,это косяк с прокси был,просто чекер перед ними "#" вставляет.
Спасибо Вам.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
ну что, еще одним брутфорсером прибыло?
что ломаешь то?
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Это не для брута.
Это для перехода по некоторым ссылкам...В общем для личных целей.
 

Radik

Новичок
Сообщения
70
Репутация
1
Попробовал воспользоваться вышеприведенным скриптом.
Почему-то прокси не меняются. У меня файл с проксями
имеет вид:
10.10.10.10:80
20.20.20.20:8080
30.30.30.30:3128
Как прописывает самый первый адрес, так и не меняет его.
 

Radik

Новичок
Сообщения
70
Репутация
1
Нет, езернет.
Только какое это имеет значение?
 
Верх