AutoHotkey Community
It is currently May 25th, 2012, 11:38 am

View unanswered posts | View active topics


Board index » AutoHotkey » Scripts

All times are UTC [ DST ]



Post new topic Reply to topic  Page 1 of 2
  [ 22 posts ]  Go to page 1, 2  Next
  Print view | E-mail friend Previous topic | Next topic 
Author Message
Superfraggle
PostPosted: July 16th, 2007, 4:28 pm 
Offline

Joined: November 2nd, 2004, 2:43 pm
Posts: 1019
Location: London, UK
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 :D

Thanks also to engunneer and manauser for simplifying and enhancing :D

Any comments, let me know :D

_________________
Steve F AKA Superfraggle

http://r.yuwie.com/superfraggle


Last edited by Superfraggle on July 17th, 2007, 12:00 am, edited 2 times in total.

Report this post
Top
 Profile  
Reply with quote  
ManaUser
 Post subject:
PostPosted: July 16th, 2007, 9:19 pm 
Offline

Joined: May 24th, 2007, 3:45 am
Posts: 1121
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 "".


Report this post
Top
 Profile  
Reply with quote  
Superfraggle
 Post subject:
PostPosted: July 16th, 2007, 10:12 pm 
Offline

Joined: November 2nd, 2004, 2:43 pm
Posts: 1019
Location: London, UK
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


Report this post
Top
 Profile  
Reply with quote  
engunneer
 Post subject:
PostPosted: July 16th, 2007, 10:31 pm 
Offline
User avatar

Joined: August 30th, 2005, 8:43 pm
Posts: 8647
Location: Salem, MA
the function itself - optional parameters http://www.autohotkey.com/docs/Functions.htm#optional

_________________
Image
(Common Answers) - New Tutorials Forum - Humongous FAQ


Report this post
Top
 Profile  
Reply with quote  
Superfraggle
 Post subject:
PostPosted: July 16th, 2007, 10:37 pm 
Offline

Joined: November 2nd, 2004, 2:43 pm
Posts: 1019
Location: London, UK
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


Report this post
Top
 Profile  
Reply with quote  
engunneer
 Post subject:
PostPosted: July 16th, 2007, 11:50 pm 
Offline
User avatar

Joined: August 30th, 2005, 8:43 pm
Posts: 8647
Location: Salem, MA
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.

_________________
Image
(Common Answers) - New Tutorials Forum - Humongous FAQ


Report this post
Top
 Profile  
Reply with quote  
Superfraggle
 Post subject:
PostPosted: July 17th, 2007, 12:01 am 
Offline

Joined: November 2nd, 2004, 2:43 pm
Posts: 1019
Location: London, UK
Thanks to both of you, have made the changes to relect both enhancements now.

_________________
Steve F AKA Superfraggle

http://r.yuwie.com/superfraggle


Report this post
Top
 Profile  
Reply with quote  
HCProfessionals
 Post subject:
PostPosted: February 18th, 2008, 2:15 am 
Offline

Joined: June 19th, 2007, 12:04 am
Posts: 174
So, who wants to give me a list of safe proxies? If you do, PM them to me :D


Report this post
Top
 Profile  
Reply with quote  
badmojo
 Post subject:
PostPosted: May 6th, 2008, 2:51 am 
Offline

Joined: November 11th, 2005, 3:13 am
Posts: 202
just wondering, how to make this script accept parameters? e.g setproxy 1 sets the proxy while setproxy 0 turns off.


Report this post
Top
 Profile  
Reply with quote  
Superfraggle
 Post subject:
PostPosted: May 6th, 2008, 3:20 am 
Offline

Joined: November 2nd, 2004, 2:43 pm
Posts: 1019
Location: London, UK
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


Report this post
Top
 Profile  
Reply with quote  
badmojo
 Post subject:
PostPosted: May 6th, 2008, 3:46 am 
Offline

Joined: November 11th, 2005, 3:13 am
Posts: 202
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?


Report this post
Top
 Profile  
Reply with quote  
Superfraggle
 Post subject:
PostPosted: May 6th, 2008, 6:16 am 
Offline

Joined: November 2nd, 2004, 2:43 pm
Posts: 1019
Location: London, UK
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


Report this post
Top
 Profile  
Reply with quote  
badmojo
 Post subject:
PostPosted: May 6th, 2008, 6:36 am 
Offline

Joined: November 11th, 2005, 3:13 am
Posts: 202
Superfraggle wrote:
Percent signs are not needed inside function calls.

thanks, Superfraggle! you've nailed it. :)


Report this post
Top
 Profile  
Reply with quote  
me
 Post subject: ca
PostPosted: May 14th, 2008, 2:09 am 
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?


Report this post
Top
  
Reply with quote  
alexbiz
 Post subject:
PostPosted: September 24th, 2009, 4:53 pm 
Offline

Joined: September 18th, 2009, 9:02 pm
Posts: 4
Location: Montreal
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


Report this post
Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 2
  [ 22 posts ]  Go to page 1, 2  Next

Board index » AutoHotkey » Scripts

All times are UTC [ DST ]

Who is online

Users browsing this forum: JamixZol, Morpheus and 28 guests

You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Powered by phpBB® Forum Software © phpBB Group