Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Automatische Proxy Änderungen für den IE (https://www.delphipraxis.net/133790-automatische-proxy-aenderungen-fuer-den-ie.html)

audio2 8. Mai 2009 19:32


Automatische Proxy Änderungen für den IE
 
Hallo

Ich hoffe, dass mir jmd. weiterhelfen kann!?

Folgendes Problem...

... Ich möchte den Proxyeintrag im InternetExplorer nur "temporär" entfernen lassen.
Folgendes VBScript habe ich im Internet gefunden.

Code:
' VBScript - Manuelles aktivieren/deaktivieren eines Proxy-Servers
set wshshell = createobject("Wscript.shell")
antwort = MsgBox("Proxy aktivieren?", vbYesNo,"172.168.1.4:8080")
if antwort = vbYes then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
wshshell.popup "Proxy erfolgreich aktiviert.",3,"Proxy aktivert"
ElseIf antwort = vbNo Then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
wshshell.popup "Proxy erfolgreich deaktiviert.",3,"Proxy deaktiviert"
End If
Allerdings sollen die Proxyeinstellungen, nur für eine gewisse Zeit deaktiviert bleiben. ca 10minuten. Der Proxyserver sollte jedoch nach X- Minuten wieder Aktiviert werden.
Gibt es eine Möglichkeit dies umzusetzen? (nicht zwingend VB)

Grüße aus Berlin
art.

Ralf Kaiser 8. Mai 2009 20:58

Re: Automatische Proxy Änderungen für den IE
 
Mit einem Delphiprogramm ist das doch ganz einfach. Auf einen Buttonclick hin die erste Einstellung in die Registry schreiben und dann einen Timer aktivieren. Wenn der Timer feuert die zweite Einstellung schreiben und fertig.

Wo ist das Problem? Was in die Registry geschrieben werden muss steht ja schon in deinem VB Script.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz