Submitted By: Anonymous Submission

GUI utility for modifying Internet Explorer proxy server settings.

Visual Basic
Edit|Remove
<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>&nbsp;<br />
     <input id="bthchangeproxy" name="bthchangeproxy" type="button" value="Change Proxy" onclick="chgproxy()" />
 
 </body>
</html>