Submitted By: Anonymous Submission
GUI utility for modifying Internet Explorer proxy server settings.
<html> <head> <title>Proxy Switcher</title> <hta:application id="switchproxy" applicationName="Proxy Switcher" border="dialog" borderStyle="Complex" caption="yes" contextMenu="yes" icon="" innerBorder="yes" maximizeButton="no" minimizeButton="yes" navigable="yes" scroll="no" scrollFlat="no" selection="yes" showInTaskBar="yes" singleInstance="no" sysMenu="yes" version="1.0" windowState="normal" > </head> <script language="vbscript" > Sub curproxy Dim WshShell, bKey Set WshShell = CreateObject("WScript.Shell") regkey="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable" If WshShell.RegRead(regkey)=0 Then proxydisabled.checked=True proxyenabled.checked=False bthchangeproxy.Value="Enable Proxy" window.status="Your IE session is not configured to use a proxy server" Else proxydisabled.checked=False proxyenabled.checked=True bthchangeproxy.Value="Disable Proxy" window.status="Your IE session is configured to use a proxy server" End If End Sub Sub chgproxy Dim WshShell, bKey Set WshShell = CreateObject("WScript.Shell") regkey="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable" If proxyenabled.checked=True Then WshShell.RegWrite regkey, 0, "REG_DWORD" proxydisabled.focus window.alert("IE will access the Internet directly.") curproxy() Else WshShell.RegWrite regkey, 1, "REG_DWORD" proxyenabled.focus window.alert("IE will now use the defined Proxy server.") curproxy() End If End Sub </script> <body STYLE="font:bold 22pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')" onload="curproxy()"> Proxy Switcher<br /> <br /><span style="font-size: 12pt; color: yellow; font-family: Tahoma"> <input id="proxyenabled" name="proxyenabled" style="width: 22px" title="IE Currently using Proxy Server" type="radio" />IE is using Proxy Server<br /> <input id="proxydisabled" name="proxydisabled" style="width: 22px" title="IE Currently using Proxy Server" type="radio" />IE is not using Proxy Server</span> <br /> <input id="bthchangeproxy" name="bthchangeproxy" type="button" value="Change Proxy" onclick="chgproxy()" /> </body> </html>
<html> <head> <title>Proxy Switcher</title> <hta:application id="switchproxy" applicationName="Proxy Switcher" border="dialog" borderStyle="Complex" caption="yes" contextMenu="yes" icon="" innerBorder="yes" maximizeButton="no" minimizeButton="yes" navigable="yes" scroll="no" scrollFlat="no" selection="yes" showInTaskBar="yes" singleInstance="no" sysMenu="yes" version="1.0" windowState="normal" > </head> <script language="vbscript" > Sub curproxy Dim WshShell, bKey Set WshShell = CreateObject("WScript.Shell") regkey="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable" If WshShell.RegRead(regkey)=0 Then proxydisabled.checked=True proxyenabled.checked=False bthchangeproxy.Value="Enable Proxy" window.status="Your IE session is not configured to use a proxy server" Else proxydisabled.checked=False proxyenabled.checked=True bthchangeproxy.Value="Disable Proxy" window.status="Your IE session is configured to use a proxy server" End If End Sub Sub chgproxy Dim WshShell, bKey Set WshShell = CreateObject("WScript.Shell") regkey="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable" If proxyenabled.checked=True Then WshShell.RegWrite regkey, 0, "REG_DWORD" proxydisabled.focus window.alert("IE will access the Internet directly.") curproxy() Else WshShell.RegWrite regkey, 1, "REG_DWORD" proxyenabled.focus window.alert("IE will now use the defined Proxy server.") curproxy() End If End Sub </script> <body STYLE="font:bold 22pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')" onload="curproxy()"> Proxy Switcher<br /> <br /><span style="font-size: 12pt; color: yellow; font-family: Tahoma"> <input id="proxyenabled" name="proxyenabled" style="width: 22px" title="IE Currently using Proxy Server" type="radio" />IE is using Proxy Server<br /> <input id="proxydisabled" name="proxydisabled" style="width: 22px" title="IE Currently using Proxy Server" type="radio" />IE is not using Proxy Server</span> <br /> <input id="bthchangeproxy" name="bthchangeproxy" type="button" value="Change Proxy" onclick="chgproxy()" /> </body> </html>