mass proxy

parazitul29 · August 4, 2010

screenshot

in primul rand ca sa mearga aveti nevoie de internet explorer nu conteaza care

un mic program facut de mine in autoIT caruia ii dai un url introduci proxy si se conecteaza cu fiecare proxy in parte la url,e bun pentru concursuriile alea cu click-uri desi exista alte metode mai usor de folosit

e format din 22 de textbox-uri

cel pentru url are in stanga text-ul url si celelate pentru proxy,o problema este ca e ceva de asteptat cateva minute cred depinde de conexiune ca daca ai net sarma stai si 10 minute dupa ce toate proxy-uriile vor fi incercate va va aparea un mesagebox cu complet dupa ce terminatii proxy-ul va ramane in continuare activ il scoateti din setariile de la Internet explorer

se putea pune un buton care sa-l dezactiveze dar deja ii dadusem upload cand am observat ca ramane(era logic ca ramane)

adresa proxy se introduce cu tot cu port

ex:1.2.3.4:80

source code

#include <GUIConstantsEx.au3>
#include <IE.au3>

GUICreate("set")

  $url=guictrlcreateinput("",40, 20, 200, 20)
$inputproxy1=guictrlcreateinput("",40, 80, 200, 20)
$inputproxy2=guictrlcreateinput("",40, 50, 200, 20)
$inputproxy3=guictrlcreateinput("",40, 110, 200, 20)
$inputproxy4=guictrlcreateinput("",40, 140, 200, 20)
$inputproxy5=guictrlcreateinput("",40, 170, 200, 20)
$inputproxy6=guictrlcreateinput("",40, 200, 200, 20)
$inputproxy7=guictrlcreateinput("",40, 230, 200, 20)
$inputproxy8=guictrlcreateinput("",40, 260, 200, 20)
$inputproxy9=guictrlcreateinput("",40, 290, 200, 20)
$inputproxy10=guictrlcreateinput("",40, 320, 200, 20)
$inputproxy11=guictrlcreateinput("",250, 20, 150, 20)
$inputproxy12=guictrlcreateinput("",250, 50, 150, 20)
$inputproxy13=guictrlcreateinput("",250, 80, 150, 20)
$inputproxy14=guictrlcreateinput("",250, 110, 150, 20)
$inputproxy15=guictrlcreateinput("",250, 140, 150, 20)
$inputproxy16=guictrlcreateinput("",250, 170, 150, 20)
$inputproxy17=guictrlcreateinput("",250, 200, 150, 20)
$inputproxy18=guictrlcreateinput("",250, 230, 150, 20)
$inputproxy19=guictrlcreateinput("",250, 260, 150, 20)
$inputproxy20=guictrlcreateinput("",250, 290, 150, 20)
$inputproxy21=guictrlcreateinput("",250, 320, 150, 20)
$texturl=GUICtrlCreateLabel("url", 20, 20)

$buton3=GUICtrlCreateButton("no-proxy", 300, 360, 70)
    $buton = GUICtrlCreateButton("GO", 10, 360, 50)
	 $buton2 = GUICtrlCreateButton("despre", 200, 360, 50)

    GUICtrlSetState(-1, $GUI_FOCUS) 
gUICtrlSetState(-1, $GUI_FOCUS) 
  GUISetState() 

	 Do
        $msg = GUIGetMsg()
        If $msg = $buton Then
$urlread=GUICtrlRead($url)
$proxy=GUICtrlRead($inputproxy1)
$proxy2=GUICtrlRead($inputproxy2)
$proxy3=GUICtrlRead($inputproxy3)
$proxy4=GUICtrlRead($inputproxy4)
$proxy5=GUICtrlRead($inputproxy5)
$proxy6=GUICtrlRead($inputproxy6)
$proxy7=GUICtrlRead($inputproxy7)
$proxy8=GUICtrlRead($inputproxy8)
$proxy9=GUICtrlRead($inputproxy9)
$proxy10=GUICtrlRead($inputproxy10)
$proxy11=GUICtrlRead($inputproxy11)
$proxy12=GUICtrlRead($inputproxy12)
$proxy13=GUICtrlRead($inputproxy13)
$proxy14=GUICtrlRead($inputproxy14)
$proxy15=GUICtrlRead($inputproxy15)
$proxy16=GUICtrlRead($inputproxy16)
$proxy17=GUICtrlRead($inputproxy17)
$proxy18=GUICtrlRead($inputproxy18)
$proxy19=GUICtrlRead($inputproxy19)
$proxy20=GUICtrlRead($inputproxy20)
$proxy21=GUICtrlRead($inputproxy21)


regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable","REG_DWORD","1")
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy2)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy3)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
Sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy4)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
sleep(10000)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy5)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)

_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy6)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)

_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy7)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)

_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy8)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy9)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy10)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
sleep(10000)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy11)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy12)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy13)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy14)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy15)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy16)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy17)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy18)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy19)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy20)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
sleep(1000)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy21)
sleep(1000)
$oIE=_IECreate($urlread,0,0,1,0)
_IEQuit ($oIE)
msgbox(0,"complet","complet")

endif
if $msg=$buton2 then
	MsgBox(0,"despre","by parazitul29")
endif

if $msg=$buton3 Then
	regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable","REG_DWORD","0")
	endif

Until $msg = $GUI_EVENT_CLOSE

download .exe

MEGAUPLOAD - The leading online storage and file delivery service

Edited August 4, 2010 by parazitul29

blech · August 4, 2010

apreciez faptul ca ai depus efortul necesar de a invata un limbaj si munca depusa in construirea programului insa cred ca exista deja programe care fac aceelasi lucru mult mai bine!

invata in continuare si "keep up the work"!

Maverick · August 4, 2010

Nu mai merge Mozilla...Help me please:))

Dupa ce am incercat sa folosesc programelul tau mozilla nu mai merge... cand incerc sa intru pe e pagina imi da eroarea asta:

The proxy server is refusing connections 
Firefox is configured to use a proxy server that is refusing connections.
       *   Check the proxy settings to make sure that they are correct.

    *   Contact your network administrator to make sure the proxy server is
          working.

Any idei?

Tin sa precizez ca internet explorer merge;)

parazitul29 · August 4, 2010

dupa ce terminatii proxy-ul va ramane in continuare activ il scoateti din setariile de la Internet explorer

scoate proxy din mozzila

sau cu registry

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings

si unde ai proxyenable pui 0

si iti apare asa pentru ca ultimul proxy folosit nu e prea functional

LE:am mai pus un buton "no-proxy",dupa ce terminati cu proxy-urile dati click pentru a reveni la normal...si a evita genul de problema pe care a avut-o maverick

am uploadat alt .exe

Edited August 4, 2010 by parazitul29

Maverick · August 4, 2010

Ms man, a mers;)

BigT · August 4, 2010

O sa-l iau si eu, mersi si keep up the good work!

Xander · August 4, 2010


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $conns[10000]
Global $done
Global $total
Global $active = False
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Input1 = GUICtrlCreateInput("URL", 4, 4, 617, 21)
$Edit1 = GUICtrlCreateEdit("", 4, 30, 229, 409)
GUICtrlSetLimit(-1 , 100000000)
GUICtrlSetData(-1, "ip:port sau ip:port|user:pass")

$Button1 = GUICtrlCreateButton("GO", 244, 38, 97, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button1Click")
GUICtrlCreateLabel("User-agent:", 244, 66, 97, 25)
$Input2 = GUICtrlCreateInput("", 344, 66, 97, 25)
$Label1 = GUICtrlCreateLabel("", 244, 94, 104, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	Sleep(100)
	If $active Then check()
WEnd

Func Button1Click()
	Dim $conns[10000]
	$total = 0
	$done = 0
	$active = True
	$data = GUICtrlRead($Edit1)
	$lines = StringSplit($data , @CRLF , 1)
	$url = GUICtrlRead($Input1)
	$c = 0
	For $i=1 To $lines[0]
		While InetGetInfo() > 500
			Sleep(100)
			check()
		WEnd
		If StringInStr($lines[$i] , "|") Then
			$data = StringSplit($lines[$i] ,"|")
			$up = StringSplit($data[2] , ":")
			HttpSetProxy(2 , $data[1] , $up[1] , $up[2])
		Else
			HttpSetProxy(2 , $lines[$i])
		EndIf
		If GUICtrlRead($Input2) <> "" Then HttpSetUserAgent(GUICtrlRead($Input2))
		$conns[$c] = InetGet($url , @TempDir&"\temp.txt" , 3,1)
		$total +=1
		$c+=1
		check()
	Next
EndFunc
Func check()
	$done = $total - InetGetInfo()
	If $done = $total Then
		$active = False
	EndIf
	GUICtrlSetData($Label1 , $done & " / " & $total & "(" & InetGetInfo() & ")")
EndFunc
Func Form1Close()
	Exit
EndFunc
Func Form1Maximize()
	GUISetState(@SW_MAXIMIZE)
EndFunc
Func Form1Minimize()
	GUISetState(@SW_MINIMIZE)
EndFunc
Func Form1Restore()
	GUISetState(@SW_RESTORE)
EndFunc

mass proxy facut in 5 minute l-am testat pe un webspell cu "5000" proxy-uri dar defapt era acelasi proxy pus de 5 k ori si cand a ajuns pe la 3k webspellu dadea "Could not connect to mysql"

qwzky · August 4, 2010

Buna treaba parazit,mie imi functioneaza perfect.

Edited August 4, 2010 by qwzky
greseala.

Sign In

mass proxy

Recommended Posts

parazitul29

blech

Maverick

parazitul29

Maverick

BigT

Xander

qwzky

Join the conversation

Browse

Activity

Pages