[Ex] URL Hits

#1

Un petit soft qui vous permet de faire des hits sur une url avec des proxy.

#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 
EndFunc

proxy.txt doit être sous cette forme:

Code : 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
.......

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.