AutoHotkey Homepage AutoHotkey Community
Let's help each other out
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Internet Explorer / Windows proxy function
Goto page 1, 2  Next
 
Reply to topic    AutoHotkey Community Forum Index -> Scripts & Functions
View previous topic :: View next topic  
Author Message
Superfraggle



Joined: 02 Nov 2004
Posts: 1019
Location: London, UK
PostPosted: Mon Jul 16, 2007 3:28 pm    Post subject: Internet Explorer / Windows proxy function Reply with quote
Thought I would share this in case anyone else need it, allows quick changing of the proxy settings within internet explorer, and updates all windows to inform them that they have changed.

Ive included a few examples at the top, but generally usage is

setproxy("Address","state")

where address is the address to change it too, and state can be either on, off or toggle.

Code:
setproxy("address.proxy.com")
setproxy("address.proxy2.com","ON")
setproxy("address.proxy.com","OFF")
setproxy()
return

setproxy(address = "",state = ""){
if (address = "") and (state = "")
    state = TOGGLE

if address
    regwrite,REG_SZ,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,ProxyServer,%address%
  if (state ="ON")
    regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,1
  else if (state="OFF")
    regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,0
  else if (state = "TOGGLE")
    {
      if regread("HKCU","Software\Microsoft\Windows\CurrentVersion\Internet Settings","Proxyenable") = 1
        regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,0
      else if regread("HKCU","Software\Microsoft\Windows\CurrentVersion\Internet Settings","Proxyenable") = 0
        regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,1
    }
  dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
  dllcall("wininet\InternetSetOptionW","int","0","int","37","int","0","int","0")
  Return
}

RegRead(RootKey, SubKey, ValueName = "") {
   RegRead, v, %RootKey%, %SubKey%, %ValueName%
   Return, v
}


Thanks to Titan for the regread function also included here Very Happy

Thanks also to engunneer and manauser for simplifying and enhancing Very Happy

Any comments, let me know Very Happy
_________________
Steve F AKA Superfraggle

http://r.yuwie.com/superfraggle

Last edited by Superfraggle on Mon Jul 16, 2007 11:00 pm; edited 2 times in total
Back to top
View user's profile Send private message MSN Messenger
ManaUser



Joined: 24 May 2007
Posts: 1121
PostPosted: Mon Jul 16, 2007 8:19 pm    Post subject: Reply with quote
Nice work. This should work with a local proxy too, right? (e.g. localhost:2468 or whatever.) I normally use a proxy to surf the web (it blocks pop-ups, helps protect privacy and such) but I don't have IE set up to use it, so this would definitely come in handy if I want AHK to go through it.

A small sugestion. Why not do this:
Code:
setproxy(address = "",state = "")
so you can leave off unneed paramters instead of having to use "".
Back to top
View user's profile Send private message
Superfraggle



Joined: 02 Nov 2004
Posts: 1019
Location: London, UK
PostPosted: Mon Jul 16, 2007 9:12 pm    Post subject: Reply with quote
should work with any proxy to pass the port just use address:port.
it will affect URLdownloadtofile I believe too.

Quote:
A small sugestion. Why not do this:Code (Copy):
setproxy(address = "",state = "")
so you can leave off unneed paramters instead of having to use "".


Not quite sure what you mean there, you mean in the function itself, or the function call??
_________________
Steve F AKA Superfraggle

http://r.yuwie.com/superfraggle
Back to top
View user's profile Send private message MSN Messenger
engunneer



Joined: 30 Aug 2005
Posts: 8255
Location: Maywood, IL
PostPosted: Mon Jul 16, 2007 9:31 pm    Post subject: Reply with quote
the function itself - optional parameters http://www.autohotkey.com/docs/Functions.htm#optional
_________________

(Common Answers)
Back to top
View user's profile Send private message Visit poster's website
Superfraggle



Joined: 02 Nov 2004
Posts: 1019
Location: London, UK
PostPosted: Mon Jul 16, 2007 9:37 pm    Post subject: Reply with quote
Thanks engunneer like that then?

This was my first real function that I had made, been using lots of gosubs till now.
_________________
Steve F AKA Superfraggle

http://r.yuwie.com/superfraggle
Back to top
View user's profile Send private message MSN Messenger
engunneer



Joined: 30 Aug 2005
Posts: 8255
Location: Maywood, IL
PostPosted: Mon Jul 16, 2007 10:50 pm    Post subject: Reply with quote
yes, that's a good way.

Code:

setproxy("address.proxy.com",)

should be
Code:

setproxy("address.proxy.com")


and you can make it even better for lazy programmers:
Code:

setproxy("address.proxy.com",)
setproxy("address.proxy2.com","ON")
setproxy("address.proxy.com","OFF")
setproxy()
return

setproxy(address = "",state = ""){
  if (address = "") and (state = "")
    state = TOGGLE

  if address
    regwrite,REG_SZ,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,ProxyServer,%address%
  if (state ="ON")
    regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,1
  else if (state="OFF")
    regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,0
  else if (state = "TOGGLE")
    {
      if regread("HKCU","Software\Microsoft\Windows\CurrentVersion\Internet Settings","Proxyenable") = 1
        regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,0
      else if regread("HKCU","Software\Microsoft\Windows\CurrentVersion\Internet Settings","Proxyenable") = 0
        regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,1
    }
  dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
  dllcall("wininet\InternetSetOptionW","int","0","int","37","int","0","int","0")
  Return
}

RegRead(RootKey, SubKey, ValueName = "") {
   RegRead, v, %RootKey%, %SubKey%, %ValueName%
   Return, v
}


And thank ManaUser, he caught it, I just knew how to clarify.
_________________

(Common Answers)
Back to top
View user's profile Send private message Visit poster's website
Superfraggle



Joined: 02 Nov 2004
Posts: 1019
Location: London, UK
PostPosted: Mon Jul 16, 2007 11:01 pm    Post subject: Reply with quote
Thanks to both of you, have made the changes to relect both enhancements now.
_________________
Steve F AKA Superfraggle

http://r.yuwie.com/superfraggle
Back to top
View user's profile Send private message MSN Messenger
HCProfessionals



Joined: 18 Jun 2007
Posts: 166
PostPosted: Mon Feb 18, 2008 1:15 am    Post subject: Reply with quote
So, who wants to give me a list of safe proxies? If you do, PM them to me Very Happy
Back to top
View user's profile Send private message
badmojo



Joined: 11 Nov 2005
Posts: 202
PostPosted: Tue May 06, 2008 1:51 am    Post subject: Reply with quote
just wondering, how to make this script accept parameters? e.g setproxy 1 sets the proxy while setproxy 0 turns off.
Back to top
View user's profile Send private message
Superfraggle



Joined: 02 Nov 2004
Posts: 1019
Location: London, UK
PostPosted: Tue May 06, 2008 2:20 am    Post subject: Reply with quote
Assuming you dont want to change the address, only the on/off state use this.

Code:

setproxy(1)
return

setproxy(state = "Toggle"){

if (state ="ON" or state = 1)
regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,1
  else if (state="OFF" or state = 0)
    regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,0
  else if (state = "TOGGLE")
    {
      if regread("HKCU","Software\Microsoft\Windows\CurrentVersion\Internet Settings","Proxyenable") = 1
        regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,0
      else if regread("HKCU","Software\Microsoft\Windows\CurrentVersion\Internet Settings","Proxyenable") = 0
        regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,1
    }
  dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
  dllcall("wininet\InternetSetOptionW","int","0","int","37","int","0","int","0")
  Return
}

RegRead(RootKey, SubKey, ValueName = "") {
   RegRead, v, %RootKey%, %SubKey%, %ValueName%
   Return, v
}

_________________
Steve F AKA Superfraggle

http://r.yuwie.com/superfraggle
Back to top
View user's profile Send private message MSN Messenger
badmojo



Joined: 11 Nov 2005
Posts: 202
PostPosted: Tue May 06, 2008 2:46 am    Post subject: Reply with quote
thanks Superfraggle, that is close to what i want but i am trying to add something like this:

Code:
If 0 < 1
  ExitApp
 
proxystate = %1%
setproxy(%proxystate%)
return

;...
;rest of the code here

so that i can compile and run the script from command-line or the run-box. but somehow the %1% doesn't seem to have any effect. can you help with this?
Back to top
View user's profile Send private message
Superfraggle



Joined: 02 Nov 2004
Posts: 1019
Location: London, UK
PostPosted: Tue May 06, 2008 5:16 am    Post subject: Reply with quote
Code:
If 0 < 1
  ExitApp
 
proxystate = %1%
setproxy(proxystate)
return

;...
;rest of the code here


Percent signs are not needed inside function calls.
_________________
Steve F AKA Superfraggle

http://r.yuwie.com/superfraggle
Back to top
View user's profile Send private message MSN Messenger
badmojo



Joined: 11 Nov 2005
Posts: 202
PostPosted: Tue May 06, 2008 5:36 am    Post subject: Reply with quote
Superfraggle wrote:
Percent signs are not needed inside function calls.

thanks, Superfraggle! you've nailed it. Smile
Back to top
View user's profile Send private message
me
Guest
PostPosted: Wed May 14, 2008 1:09 am    Post subject: ca Reply with quote
can u set this to jus hide the proxy to get past blocked sites??? jus copy the code so i dont hav to change anything cuz i hav no clue wut to do lolz can u jus copy the code so i can paste it and get past blocked sites?
Back to top
alexbiz



Joined: 18 Sep 2009
Posts: 4
Location: Montreal
PostPosted: Thu Sep 24, 2009 3:53 pm    Post subject: Reply with quote
Superfraggle wrote:
Assuming you dont want to change the address, only the on/off state use this.


I used your code and made a version with a VERY BASIC GUI, which could help.

Code:

Gui, Add, Button, x46 y20 w100 h30 Gon , Proxy ON
Gui, Add, Button, x46 y60 w100 h30 Goff , Proxy OFF
Gui, Add, Button, x46 y100 w100 h30 Ggtfo , Exit
; Generated using SmartGUI Creator 4.0
Gui, Show, x129 y99 h146 w194, Proxy Status
Return

on:
setproxy("ON")
return


off:
setproxy("OFF")
return


setproxy(state="")
{
   if(state = "")
      state = "ON"
   if (state ="ON")
          regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,1
     else if (state="OFF")
          regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings,Proxyenable,0

     dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
     dllcall("wininet\InternetSetOptionW","int","0","int","37","int","0","int","0")
     Return
}
;;----------------------------------------------------------
;;    Function RegRead
;;----------------------------------------------------------
RegRead(RootKey, SubKey, ValueName = "") {
   RegRead, v, %RootKey%, %SubKey%, %ValueName%
   Return, v
}

gtfo:
ExitApp

GuiClose:
ExitApp


and now I'm trying to make it work with firefox.. but the main issue is that firefox doesn't work the same way. You have to modify prefs.js in C:\Documents and Settings\%username%\Application Data\Mozilla\Firefox\Profiles\yiji8soy.default
Back to top
View user's profile Send private message MSN Messenger
Display posts from previous:   
Reply to topic    AutoHotkey Community Forum Index -> Scripts & Functions All times are GMT
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You can post new topics in this forum
You can reply to topics in this forum


Powered by phpBB © 2001, 2005 phpBB Group