Zmiana proxy przez Autoit

[AnonimowyTeam]

Witam.Jako iż zauważyłem że wiele osób szuka sprawnego sposobu na używanie proxy poprzez Autoit postanowiłem udostępnić tutaj mój program.Zmiana proxy działa na IE oraz Chrome (Firefox nie obsługuje opcji internetowych prosto z Windowsa).Więc do rzeczy najpierw troszkę teorii przed programem aby każdy był w stanie stworzyć program do swoich potrzeb(np. nabijania wyświetleń etc).Zaczynając od najważniejszej sprawy - jak to działa?Chodzi po prostu o edycje rejestru aby włączyć proxy w ustawieniach przeglądarki.Posłuży nam do tego następujący kod:

 

 

        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", "adres:port")
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxyenable", "REG_DWORD", "1")
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "intranet")

W pierwszej linii po prostu zmieniamy "adres:port" na nasze wybrane proxy,uruchamiamy program i już możemy z niego korzystać w przeglądarce. No tak...tylko co jeśli chcemy wyłączyć również programem Proxy? Tutaj przyda się następujący kod:

    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxyenable", "REG_DWORD", "0")

To prostu wyłączenie funkcji proxy sądzę że nie trzeba niczego wyjaśniać.Skoro już mamy jak uruchamiać i wyłączyć proxy teraz udostępnie mój nieco bardziej rozbudowany program który pozwoli swobodnie zmieniać proxy wybierane z pliku tekstowego.
Screen :

Kod Programu:

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <String.au3>
#include <file.au3>
#include <Inet.au3>
Global $plik
Global $policz
$Form = GUICreate("Proxyinator 1.1.0 by Sekundo", 500, 300, 288, 216)
$Button1 = GUICtrlCreateButton("Wybierz listę", 400, 150, 80, 20)
$Button2 = GUICtrlCreateButton("Zmień", 300, 250, 80, 20)
$Button3 = GUICtrlCreateButton("Wyłącz", 200, 250, 80, 20)
$Label1 = GUICtrlCreateLabel("Link Do Strony:", 20, 102)
$Label2 = GUICtrlCreateLabel("Wybierz listę proxy:", 20, 152)
$Label3 = GUICtrlCreateLabel("Ostatnio użyta linia:", 20, 202)
$Label4 = GUICtrlCreateLabel("Aktualne IP i port:", 20, 52)
$Label5 = GUICtrlCreateLabel("Ilość Proxy w pliku TXT:", 300, 52)
$Input1 = GUICtrlCreateInput("www.google.pl", 150, 100, 200, 20)
$Input2 = GUICtrlCreateInput("...", 150, 150, 200, 20, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
$Input3 = GUICtrlCreateInput("0", 150, 200, 50, 20, BitOR($ES_AUTOHSCROLL, $ES_Number))
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 29999, 0)
$Input4 = GUICtrlCreateInput("Adres:Port", 150, 50, 130, 20, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
$Input5 = GUICtrlCreateInput("", 420, 50, 50, 20, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
While 1
    GUISetState(@SW_SHOW)
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $plik = FileOpenDialog("Wybierz plik:", @WorkingDir, "(*.txt)")
            $NowyPlik = String($plik)
            $policz = _FileCountLines($NowyPlik)
            GUICtrlSetData($Input2, $NowyPlik)
            GUICtrlSetData($Input5, $policz)
        Case $Button2
            $Czytaj = GUICtrlRead($Input5)
            If $Czytaj = 0 Then
                MsgBox(0, "Błąd", "Nie wybrano żadnych proxy")
            Else
                _Startuj()
            EndIf
        Case $Button3
            _Stopuj()

    EndSwitch
WEnd

Func _Startuj()
    $i = GUICtrlRead($Input3)
    If $i = $policz Then
        MsgBox(0, "Koniec", "Wykorzystano wszystkie proxy")
    Else
        $i += 1
        GUICtrlSetData($Input3, $i)
        $proxy = GUICtrlRead($Input2)
        $Strona = GUICtrlRead($Input1)
        $czas = GUICtrlRead($Input3)
        $aktualne = _FileCountLines($proxy)
        $otworz = FileReadLine($proxy, $i)
        GUICtrlSetData($Input4, $otworz)
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $otworz)
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxyenable", "REG_DWORD", "1")
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "intranet")
        $oIE = ShellExecute("iexplore.exe", $Strona)
    EndIf
EndFunc
Func _Stopuj()
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxyenable", "REG_DWORD", "0")
    MsgBox(0, "Ok", "Proxy zostało wyłączone")
    $Ip = _GetIP()
    GUICtrlSetData($Input4, $Ip)
EndFunc  

Gotowy program:

http://speedy.sh/djyS4/Proxyinator.exe

 

Przykład pliku txt do programu:

 

 

123.123.123.123:8808
22.11.22.1:80
59.43.12.54:5434
11.23.24.244:80

 

Aktualne Proxy na stronie :

 

http://serwery-proxy.eu/lista-serwerow-proxy,aktualne,1

[Bum662]

Dodaj jeszcze sporą listę działających proxy i git

[jogi997]

Te powinny jeszcze działać

 

212.93.193.82:443

67.69.254.255:80

67.69.254.254:80

67.69.254.252:80

67.69.254.253:80

211.95.176.6:808

122.224.171.91:3128

67.69.254.249:80

83.17.123.186:8080

212.93.193.83:443

119.70.40.101:8080

219.93.178.162:3128

67.69.254.244:80

202.99.29.27:80

61.139.73.6:8080

64.66.192.62:32080

67.69.254.241:80

118.98.160.102:8080

218.14.227.197:3128

213.185.116.152:8080

67.69.254.246:80

67.69.254.243:80

67.69.254.242:80

12.47.164.114:8888

210.245.63.218:80

221.130.193.14:80

190.216.198.123:8080

67.69.254.248:80

67.69.254.250:80

193.69.186.83:80

219.163.71.130:3128

67.69.254.245:80

67.69.254.240:80

202.152.27.181:3128

222.124.177.60:3128

218.75.83.98:8081

64.66.192.62:80

218.50.52.210:80

115.85.145.90:80

202.197.64.42:80

220.128.122.187:80

80.108.206.239:1103

64.66.192.61:80

200.31.42.3:80

88.216.54.84:80

67.69.254.247:80

124.104.70.98:312

222.179.57.225:80

203.113.137.66:888

195.209.224.91:3128

194.246.124.85:80

58.213.152.15:3128

190.139.105.99:8080

88.119.189.95:808

85.114.131.54:808