Zmiana IP (IE)

[.old]

Siema. Zrobiłem sobie program i służy do oglądania filmów. Otóż mam problem, bo nie wiem jak zrobić, aby po kliknięciu buttona zmieniło się IP i wtedy mógłbym łatwo ominąć limit jaki nakłada stronka. Chyba w rejestrze są przechowywane informacje o proxy (nie jestem pewien). Mógłbym użyć RegWrite, ale już dalej nie wiem jak zrobić :P Bo w końcu program do odtwarzacza i łączenia się ze stronką używa IE, więc taka zmiana by była skuteczna. Adresy proxy mógłbym brać z pliku, albo gdzieś zapisane w skrypcie.

 

Pomożecie? O szybkość proxy już się nie martwcie

 

Edit: Dobra jakoś to znalazłem.

 

Ścieżka w rejestrze: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings

 

I tam już rozgryzłem jak włączyć obsługę proxy, dodać tam IP + port. Chciałbym, aby skrypt wyciągnął z pliku (przykładowo: lista.txt) losowe proxy (jeśli się nie da to inaczej). W pliku wyglądałoby to tak:

 

xxx.xxx.xxx.xxx:1234

yyy.yyy.yyy.yyy:4321

i tak dalej..

 

Czyli weźmie jakieś proxy z pliku i teraz: Jest te proxy i jest:

 

$sciezka = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"

RegWrite($sciezka, "ProxyServer", "REG_SZ", "ADRES_PROXY:PORT")

 

Czyli ten ADRES_PROXY:PORT to będzie te losowe proxy z pliku

[Wasiij Iwanowic]

regWrite, poczytaj o funkcji Case w gui, fileRead, fileReadLine

 

z tych funkcji polecam korzystać jak chcesz sobie ułatwić życie

[.old]

Przyznam się, że zbytnio jeszcze nie umiem funkcji dot. rejestru ;( Oto moje wypociny:

 

$klucz = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" ; Ścieżka
$adres = FileReadLine(@ScriptDir & "lista.txt", 1) ; Czytanie pierwszej linii pliku

 RegWrite($klucz, "ProxyEnable", "REG_DWORD", "1") ; Włączanie proxy (1 - włączone, 0 - wyłączone)
 RegWrite($klucz, "ProxyServer", "REG_SZ", $adres) ; Dodawanie adresu IP serwera proxy

Skrypt częściowo działa, ponieważ prawidłowo dodaje się "ProxyEnable", ale "ProxyServer" jest puste. A plik utworzyłem i w pierwszej linii wstawiłem działające IP proxy. Gdy $adres wpisze tak: $adres = "ip:port" to wtedy pojawia się w rejestrze.

 

@Down: Poprawiłem i nadal wartość w rejestrze zapisuje się jako pusta. Jak zamiast FileReadLine dam "IP:PORT" to wtedy działa.

[Wasiij Iwanowic]

zjebałeś file read line

prawidłowo wyglądająca ścieżka to @ScriptDir & "\lista.txt"

[.old]

Poprawiłem i nadal nie działa. Dodałem jeszcze #RequireAdmin, bo rejestr wymaga tego. Nawet podałem dokładną lokalizacje i też nie działa.

[hehe7]

Jeśli nie masz pewności co do odczytu tekstu z pliku wywal to w msgboxie i zobacz czy wyswietli zawartość.