[Ex] URL Hits
Posté : lun. 25 août 2008 14:19
Un petit soft qui vous permet de faire des hits sur une url avec des proxy.
proxy.txt doit être sous cette forme:
Je vous cache pas que les proxy marchent très rarement ou pas bien donc faites des recherches et vous trouverez des listes avec des milliers de proxy (mettez le paquet).
Si vous voulez un logiciel beaucoup plus performant pour faire ceci (et je vous comprend
), orientez vous vers urlbooster.
Code : Tout sélectionner
#include <ie.au3>
HotKeySet("{ESC}", "MyExit")
;----------------------------------------------------------------------
$file = FileOpen('proxy.txt', 0)
$url = "http://url.com"
;----------------------------------------------------------------------
$read = FileRead($file)
$line = StringSplit($read, @CR)
For $i = 1 To $line[0]
$proxy = FileReadLine($file, $i)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyEnable","REG_DWORD","1")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyServer","REG_SZ",$proxy)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyOverride","REG_SZ","<local>")
$object_IE = _iecreate($url,0,0,1)
sleep(5000)
If @error Then
MsgBox(0,"Hits","Error.")
Endif
Next
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyEnable","REG_DWORD","0")
MsgBox(0,"Hits","Hits efféctués.")
Func MyExit()
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyEnable","REG_DWORD","0")
Exit
EndFuncCode : Tout sélectionner
216.122.4.18:80
66.218.70.37:5001
213.134.32.148:80
iraclyde.iralab.uni-karlsruhe.de:3124
208.117.131.116:3124
200.247.172.133:3128
213.226.139.132:80
.......Si vous voulez un logiciel beaucoup plus performant pour faire ceci (et je vous comprend
), orientez vous vers urlbooster.