Jump to content

Recommended Posts

Posted

Is there anyway to have an autoit script change IE's Proxy settings while IE is in use, and then have IE start using that proxy without first having to restart IE.??

Posted

Yes. Create a script that:

1 clicks on tools menu

2 clicks on internet options

3 Go to connections tab

4 clicks on LAN settings

5 Adjust the proxysettings you want

6 Appl and close all

7 refresh IE

That way you dont have to close the IE.

Posted

Is there anyway to have an autoit script change IE's Proxy settings while IE is in use, and then have IE start using that proxy without first having to restart IE.??

Func Set_Proxy($Address , $Port)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer" _
, "REG_SZ", $Address & ":" & $Port)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", _
"REG_DWORD", True)
EndFunc

Func Enables_Disable($BOOL)
;$BOOL True / False
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", _
"REG_DWORD", $BOOL)
EndFunc

صرح السماء كان هنا

 

Posted

yes, that changes IE's proxy, but dont you have to restart IE for it to actually work or be used though..??

Hi,

Why don't you just try it?

If you have to, close iex and start it again automatically with AutoIT?

;-))

Stefan

Posted (edited)

yes, that changes IE's proxy, but dont you have to restart IE for it to actually work or be used though..??

win32_Proxy—SetProxySetting Example

http://technet.microsoft.com/en-us/library/bb457096.aspx

SetProxySetting Method of the Win32_Proxy Class

http://msdn.microsoft.com/en-us/library/aa393589%28VS.85%29.aspx

I do not have proxy Address

Try this code

#Include <Array.au3>

Func SetProxySetting($myProxyServer , $myProxyPort)
$winmgmts = ObjGet("winmgmts:{impersonationLevel=impersonate}")
$win32_Proxy = $winmgmts.InstancesOf ("win32_Proxy")
Dim $Array[1]
for $Obj in $win32_Proxy
$result = $Obj.SetProxySetting($myProxyServer,$myProxyPort)
$Array[UBound($Array) - 1] = $result
ReDim $Array[UBound($Array) + 1]
next
ReDim $Array[UBound($Array) - 1]
Return $Array
EndFunc

Func GetProxySetting()
$winmgmts = ObjGet("winmgmts:{impersonationLevel=impersonate}")
$win32_Proxy = $winmgmts.InstancesOf ("win32_Proxy")
Dim $Array[1][2]
for $Obj in $win32_Proxy
$Array[UBound($Array) - 1][0] = $Obj.ProxyServer
$Array[UBound($Array) - 1][1] = $Obj.ProxyPortNumber
ReDim $Array[UBound($Array) + 1][2]
next
ReDim $Array[UBound($Array) - 1][2]
Return $Array
EndFunc
Edited by wolf9228

صرح السماء كان هنا

 

  • 2 weeks later...
Posted

Hi Wolf,

Any chance for enabling /desabling (the checkboxes) between Autoconfig/AutoProxy/Proxyserver settings?

The SetProxySetting Method only deals with Proxy server. What if i want to change the "automatic configuration script" setting or toggle "auto detect settings"?

I couldnt find info about that in the win32_proxy class.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...