[win2000] http proxy wisselprogrammatje

[Mastakilla]

ik heb telenet in belgie als internetaansluiting

hierbij werk je verplicht met een proxy

aangezien het niet echt uitmaakt welke proxy is het in de piekuren soms sneller om een proxy te nemen die niet van telenet zelf is

ook op het werk moet ik vaak van proxy veranderen omdat ik met http-tunnel werk om een website die op een andere poort draait te kunnen benaderen (de firewall blokkeert alles behalve poort 80)

al dit proxy gewissel doet mij sterk verlangen naar een simpel programmatje waar je een paar proxy in kan steken en dat je via je systray ofzo snel van proxy kan wisselen (ipv telkens door al die setting menuutjes te moeten bladeren)

nu hebbik zelf al ff gekeken in het register en daar is het gewoon een key die aangepast moet worden en dan een nieuw ie venster openen en je nieuwe proxy draait (hiermee willik maar zeggen dat het me niet zo'n moeilijk programma lijkt)

mijn vraag is dus of iemand zo'n programmatje kent?

[F_J_K]

Op maandag 08 juli 2002 21:08 schreef Mastakilla het volgende:
nu hebbik zelf al ff gekeken in het register en daar is het gewoon een key die aangepast moet worden en dan een nieuw ie venster openen en je nieuwe proxy draait

Dan is een tweetal .reg bestandjes toch genoeg? Of maak er vbs bestand van zodat die wisselt en meteen ook een IE opent.

[Mastakilla]

mja

als ik zou weten hoe dan zou ik et wel doen

maar je zult er toch iets meer moete bijzeggen

[lonkhuijzen]

die regkeys is makkelijk want daar klik je in regedit met je rechtermuisknop op en dan kan je exporteren.

dus eerst ff moeilijk doen met menu's en dan 1 proxy instellen. dan die regkey exporteren.

dan weer in de menu's de andere proxy instellen
dan weer de regkey exporteren.

nu kan je aan de hand van die 2 regkeys lekker makkelijk wisselen.

vbs heb ik geen kaas van gegeten..

[F_J_K]

Inderdaad simpelweg de huidige waarde selecteren, exporteren en dan is voortaan dubbelklikken op die resulterende .reg genoeg om die instelling terug te zetten.

In vbs:

code:

set wshshell = CreateObject("WScript.Shell")

key = "HKCU\Software\waar\de\sleutel\staat\"

proxysetting = wshshell.RegRead(key & "waardenaam")
if proxysetting = "deEneWaarde" then
    wshshell.RegWrite key & "waardnaam", "deanderewaarde"
else
      wshshell.RegWrite key & "waardnaam", "deEnewaarde"
end if

opslaan als bla.vbs

Met de goede wijzigingen natuurlijk voor de goede waarden en sleutelnamen

[Verwijderd]

Vers van de pers een progsel dat dit kan:
http://www.xcat-industries.com/Q-Proxy.zip

Het enige wat het doet is je proxy aan en uit zetten bij internet explorer dus je moet wel je proxy invullen in IE en dit progsel enabled en disabled proxy aan/uit dus alleen maar progsel is gemaakt door Mandark

[Mastakilla]

thx voor de nuttige info

de reg files werken maar dan moet ik nog 2 keer klikken

vandaar dat ik ook dat vbs scriptje eens wou probere

dit hebbik

set wshshell = CreateObject("WScript.Shell")
key = HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\

proxysetting = wshshell.RegRead(key & ProxyServer)
if proxysetting = proxy.pandora.be:8080 then
wshshell.RegWrite key & ProxyServer, 148.233.0.18:8080
else
wshshell.RegWrite key & ProxyServer, proxy.pandora.be:8080
end if

en ik krijg een 'expected end of statement' error

weet iemand wat ik moet veranderen?

[F_J_K]

Er horen "" om de strings heen

code:

set wshshell = CreateObject("WScript.Shell")
key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
proxysetting = LeesKey(key & "ProxyServer")

'je wilt in ieder geval de proxy aanzetten - zo niet deze regel uitschakelen
wshshell.RegWrite key & "ProxyEnable", 1, "REG_DWORD"

if proxysetting = vbEmpty then     'Hij bestond nog niet => default zetten
  wshshell.RegWrite key & "ProxyServer", "148.233.0.18:8080"
elseif proxysetting = "proxy.pandora.be:8080" then
    wshshell.RegWrite key & "ProxyServer", "148.233.0.18:8080"
else
    wshshell.RegWrite key & "ProxyServer", "proxy.pandora.be:8080"
end if

function LeesKey(key)
    on error resume next
    LeesKey = wshshell.RegRead(key)
    if not err.number=0 then
        err.clear
        LeesKey = vbEmpty
    end if
end function

Je zou eventueel nog een 'weet u het zeker' kunnen inbouwen. Ook zou je analoog aan ProxyServer ook ProxyEnable aan of uit kunnen zetten.

Nu kan je nog wat inbouwen dat 'ie een IE opstart:

code:

wshshell.run "iexplore"

skunkah's - jij bent volgens mij stiekum bezig om Pete Norton naar de kroon te steken met al je tools

Edit: het was wat overdreven om wshshell twee keer aan te maken

[Mastakilla]

thx alot

het werkt nu perfect

het enige wat ik nog zou wille is dat die laatste internet explorer die geopened wordt ook terug gesloten wordt (wel enkel die laatste)

[F_J_K]

Op dinsdag 09 juli 2002 19:54 schreef Mastakilla het volgende:
thx alot

het werkt nu perfect

Graag gedaan

het enige wat ik nog zou wille is dat die laatste internet explorer die geopened wordt ook terug gesloten wordt (wel enkel die laatste)

Waarom meteen weer gesloten? Maar ik zou ueberhaupt niet weten hoe dat te doen zonder vervelende bijwerkingen.

[Mastakilla]

Waarom meteen weer gesloten? Maar ik zou ueberhaupt niet weten hoe dat te doen zonder vervelende bijwerkingen.

omdat ik em ook enkel open om de nieuwe proxy in werking te krijgen

nu moet ik em dus iedere keer sluiten

(als ik van proxy wissel heb ik meestal mijn internet explorer al open)

jammer van die vervelende bijwerkingen dus...

[Verwijderd]

Op dinsdag 09 juli 2002 20:43 schreef Mastakilla het volgende:

[..]

omdat ik em ook enkel open om de nieuwe proxy in werking te krijgen

nu moet ik em dus iedere keer sluiten

(als ik van proxy wissel heb ik meestal mijn internet explorer al open)

jammer van die vervelende bijwerkingen dus...

Gebruik het progsel in mijn eerdere posting dat door Mandark is gemaakt daarmee kun je proxy aan/uit zetten tijdens het surfen het heet ook niet voor niets Q(uick)-Proxy

[Mastakilla]

Op dinsdag 09 juli 2002 21:47 schreef skunkah het volgende:

[..]

Gebruik het progsel in mijn eerdere posting dat door Mandark is gemaakt daarmee kun je proxy aan/uit zetten tijdens het surfen het heet ook niet voor niets Q(uick)-Proxy

mijn proxy moet altijd aan staan
en dus nooit uit
vandaar dat dat progje nogal nutteloos voor mij is

ik wil gewoon wisselen tussen proxy's

[-rAz-]

uitdaging:
hehe progje met lijst van proxies
dan met een druk op de knop loopt het de proxies af en laadt bvb dmv winsock object een pagina binnen en neemt uiteindelijk de snelste proxy
mm als ik tijd (en zin) heb vandaag zal ik dit eens maken
je kan bovendien met nslookup ook de hele reeks proxy servers van telenet te weten komen zodat je die ook kan uittesten op snelheid

[Mastakilla]

een maat van me was bezig aan een progje in visual basic dat via een systray icon je proxy's uit een lijst kon kiezen...

maar hij werkt nu met c++ en heeft et nooit afgewerkt

[Shaidar]

Ik heb het opgelost d.m.v een 'simpel' batch bestand ...

see [rml][ DOS] Proxy Switcher 0.2[/rml]