Hta app for turning proxysetting on/off

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Hta app for turning proxysetting on/off

Logged in as: Guest

arrSession:exec spGetSession 2,16,30606

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Hta app for turning proxysetting on/off
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Hta app for turning proxysetting on/off - 2/2/2006 9:28:39 PM

crazymatt

Posts: 296
Score: 0
Joined: 3/4/2005
From:
Status: offline

I did this lil app for easy switching the proxy on/off. When i surf some internal webresources i need it off and i got tired of going the whole "IE/tools/internet-optrions..." way :)

Havnt commented the code so good yet, will edit it soon when i get some time to spare. So exuse me til then.. ;)

Save it as Proxychanger.hta and run :)

Sub Proxy
const HKEY_CURRENT_USER = &H80000001
strComputer = "." 'sets local computer
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" &_
   strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
strTEXT = dwValue
If strTEXT < 1 Then
strValue = 1
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
'This turns the proxy on by setting the reg dwvalue to 1
else
strValue = 0
'This turns the proxy off by setting the reg dwvalue to 0
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
end if
location.reload( True ) 
end sub

Sub ExitProgram
       window.close()
   End Sub

Sub bodyLoaded() 
window.ResizeTo 176,140 ' WIDTH, HEIGHT 
End Sub 
</script> 
<body onLoad="bodyLoaded()" STYLE="font:12 pt arial; color:white;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
<P align=center><span id = "DataArea"></span><BR>
<input id=runbutton type="button" value="Proxy On/OFF" onClick="Proxy"><BR><BR>
<input id=runbutton type="button" value="Exit" onClick="ExitProgram"></P>
</body>
</html>

If anything is unclear feel free to ask.

/CM

_____________________________

-There is only 10 sorts of people, those who understand binary and those who dont.

Post #: 1

RE: Hta app for turning proxysetting on/off - 2/3/2006 8:03:04 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

Here is the same code formatted with block indentation:

<html>
     <head>
        <title>ProxySwitcher by CrazyMatt</title>
     </head>
     <HTA:APPLICATION 
        SysMenu="no"
        ID="objAutoRefresh"
        SCROLL="no"
        SINGLEINSTANCE="yes"
     >
     <SCRIPT LANGUAGE="VBScript">
         Sub Window_OnLoad 
             const HKEY_CURRENT_USER = &H80000001
             strComputer = "."
             Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" &_
                strComputer & "\root\default:StdRegProv")
             strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
             strValueName = "ProxyEnable"
             oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
             strTEXT = dwValue
             If strTEXT < 1 Then
                 DataArea.InnerHTML = "IE Proxy is OFF"
             Else
                 DataArea.InnerHTML = "IE Proxy is ON"
             end If
         End Sub
         
         Sub Proxy
             const HKEY_CURRENT_USER = &H80000001
             strComputer = "." 'sets local computer
             Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" &_
                strComputer & "\root\default:StdRegProv")
             strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
             strValueName = "ProxyEnable"
             oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
             strTEXT = dwValue
             If strTEXT < 1 Then
                 strValue = 1
                 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
                 'This turns the proxy on by setting the reg dwvalue to 1
             Else
                 strValue = 0
                 'This turns the proxy off by setting the reg dwvalue to 0
                 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
             end If
             location.reload( True ) 
         end Sub
         
         Sub ExitProgram
                window.close()
         End Sub
         
         Sub bodyLoaded() 
             window.ResizeTo 176,140 ' WIDTH, HEIGHT 
         End Sub 
     </script> 
     <body onLoad="bodyLoaded()" STYLE="font:12 pt arial; color:white;
     filter:progid:DXImageTransform.Microsoft.Gradient
     (GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
         <P align=center>
             <span id = "DataArea"></span><BR>
             <input id=runbutton type="button" value="Proxy On/OFF" onClick="Proxy"><BR><BR>
             <input id=runbutton type="button" value="Exit" onClick="ExitProgram">
         </P>
     </body>
 </html>

The only thing I would do different (and it is extremely minor) is:

I would change this:
            oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
            strTEXT = dwValue
to this:
            oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,strTEXT
In both places it occurs.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to crazymatt)

Post #: 2

RE: Hta app for turning proxysetting on/off - 2/5/2006 8:09:26 PM

crazymatt

Posts: 296
Score: 0
Joined: 3/4/2005
From:
Status: offline

hehe tnx for the formating, was to lazy to do that ;)

And i say the same exuse for the dwValue=strTEXT thing as well..

_____________________________

-There is only 10 sorts of people, those who understand binary and those who dont.

(in reply to ebgreen)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Hta app for turning proxysetting on/off

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts