[R] Checkbox IE Checked or Not

Dunpeal · #1

Bonjour,

Voila je vous expose mon soucis, j'ai une utilisatrice qui doit se connecter sur un site qui n'autorise que des options IE Précise.
En gros il faut que j'aille dans Internet Option, Connections, Lan Settings, décocher l'option "Automatically Ddetect settings" puis dans la partie Proxy server entrer l'adresse proxy de la firm, le port, et les exceptions.

Je modifie toutes les options proxy avec les clé de registres sans soucis (car non bloqué par les GPO)

En revanche j'aimerais faire un check sur la checkbox de l'option "Automatically detect settings"

Je ne peux pas modifier cette option dans la base de registre car forcé par GPO mais je peux la modifié manuellement.

Si vous avez des suggestions, je suis preneur:

Voici le code:

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------
    
    AutoIt Version: 3.3.8.1
    Author:        
    Date:
    Script Function:
    
#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>
#include <IE.au3>

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Config Switcher", 220, 110, 348, 309)

GUISetBkColor(0x0066FF)

$Button1 = GUICtrlCreateButton("Client01", 10, 20, 89, 49)

$Button2 = GUICtrlCreateButton("Entreprise", 120, 20, 89, 49)

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###

While 1


    $nMsg = GUIGetMsg()

    Select

        Case $nMsg = $Button1
            BlockInput(1)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", "Proxy:8080")

            RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxyenable", "REG_DWORD", "1")

            RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "*.exceptions.net")

            Run('C:\Program Files\Internet Explorer\iexplore.exe')
            Sleep(1000)
            Send("{TAB}")
            Send("http://www.google.fr")
            Send("{ENTER}")
            Sleep(1000)
            Send("!O")
            Sleep(1000)
            Send("O")
            Sleep(1000)
            Send("+{TAB}")
            Sleep(1000)
            Send("{RIGHT}{RIGHT}{RIGHT}{RIGHT}")
            Sleep(1000)
            WinWaitActive("Internet Options")
            Sleep(1000)
            Send("!l")
            Sleep(1000)
; l'option se trouve ici normalement
            Send("{SPACE}")
            Sleep(1000)
            Send("{ENTER}")
            Sleep(1000)
            Send("!{F4}")
            BlockInput(0)
            Exit

        Case $nMsg = $Button2
            BlockInput(1)
            RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxyenable", "REG_DWORD", "0")

            Run('C:\Program Files\Internet Explorer\iexplore.exe')
            
            BlockInput(1)
            Exit

    EndSelect

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

    EndSwitch

WEnd

Merci d'avance.

#2

Salut
Je ne comprends comment la GPO te bloque l'accès à cette option dans la base de registre alors qu'elle t'autorise à modifier la case dans IE... ???

Tu peux essayer avec ça :

► Afficher le texte

Edit : est-ce que tu quand même peux essayer la modif dans la base de registre :

Code : Tout sélectionner

$binValue = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", "DefaultConnectionSettings")
$mode = "09" ; 01 = Décoche la case , 09 = Coche la case
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", "DefaultConnectionSettings", "REG_BINARY", StringLeft($binValue, 18) & $mode & StringMid($binValue, 21) )

Dunpeal · #3

Je te l'accorde c'est bizarre mais regarde le printscreen du résultat.

#4

Oui, c'est une valeur à la con, elle est difficilement compréhensible.
Mais en tout cas ça fonctionne (normalement ?)

Dunpeal · #5

Re,

Chez moi cela n'a pas fonctionné, en revanche je me suis servis de parties de ton code et ca m'a bien aidé.
J'ai fais qqes boucles de vérif avec les 2 digits afin de voir leur valeurs et du coup de faire une option ou l'autre et là tout fonctionne bien.

En revanche je me demande d'ou tu sors cette ligne qui m'a été d'une grande aide.
$iPid = Run("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4", @SystemDir)

Un grand merci.
Très pratique ce forum.

Du coup voici mon script.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.8.1
    Author:         MR.x
    Date:           25.03.2013
    Script Function:Parametrer IE pour la connexion client.

#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>
#include <IE.au3>

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Profil Switcher", 220, 110, 348, 309)

$helpmenu = GUICtrlCreateMenu("Help")

$infoitem = GUICtrlCreateMenuItem("About", $helpmenu)

GUISetBkColor(0x0066FF)

$Button1 = GUICtrlCreateButton("cas1", 10, 20, 89, 49)

$Button2 = GUICtrlCreateButton("cas2", 120, 20, 89, 49)

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###

While 1

    $nMsg = GUIGetMsg()

    Select

            Case $nMsg = $Button1
            WinClose("[CLASS:IEFrame]", "")
            BlockInput(1) ;Blocage de clavier
            ;Configuration du proxy et de ses exceptions
            RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", "proxy:8080") ; ligne supprimée pour confidentialité
            RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxyenable", "REG_DWORD", "1")
            RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "*.bla.net") ; ligne supprimée pour confidentialité

$RegValue = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", "DefaultConnectionSettings")
$RegNumber = StringMid($RegValue,19,2)

;Verification que le Automatically detect Settings est coché ou non (Cela correspond à 2 digit de la clé de registre ci-dessus)
if $RegNumber = "09" or $RegNumber= "0b" Then
            $iPid = Run("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4", @SystemDir) ;ouvre la page de config IE
            $winHWnd = _WinWaitActivePID($iPid)
            ControlClick($winHWnd, "", "[CLASS:Button; INSTANCE:10]")
            Sleep(100)
            $winHWnd = _WinWaitActivePID($iPid)
            ControlClick($winHWnd, "", "[CLASS:Button; INSTANCE:2]")
            Sleep(100)
            Send("{ENTER}")
            WinClose($winHWnd)
EndIf

Send("!{F4}")
Run('C:\Program Files\Internet Explorer\iexplore.exe')
WinWaitActive("www.google.fr")
Send("{TAB}")
Send("blabla") ; ligne supprimée pour confidentialité
Send("{ENTER}")
WinWaitActive("Instant Virtual Extranet xxx") ; ligne supprimée pour confidentialité
Sleep(200)
Send("xxx") ; ligne supprimée pour confidentialité
Send("{TAB}")
Send("xxx") ; ligne supprimée pour confidentialité
BlockInput(0)
Exit

            Case $nMsg = $Button2
            WinClose("[CLASS:IEFrame]", "")
            BlockInput(1)
            RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxyenable", "REG_DWORD", "0")


$RegValue = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", "DefaultConnectionSettings")
$RegNumber = StringMid($RegValue,19,2)
MsgBox(4092,"Test",$RegNumber,3)

if $RegNumber = "01" or $RegNumber="05" or $RegNumber="03" Then
            $iPid = Run("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4", @SystemDir)
            $winHWnd = _WinWaitActivePID($iPid)
            ControlClick($winHWnd, "", "[CLASS:Button; INSTANCE:10]")
            Sleep(100)
            $winHWnd = _WinWaitActivePID($iPid)
            ControlClick($winHWnd, "", "[CLASS:Button; INSTANCE:2]")
            Sleep(100)
            Send("{ENTER}")
            WinClose($winHWnd)
EndIf

Sleep(200)
Send("!{F4}")
Run('C:\Program Files\Internet Explorer\iexplore.exe')
            BlockInput(1)
            Exit

            Case $nMsg = $infoitem

            MsgBox(0, "Profil Switcher 1.0", "Written By x.xxx" & @CRLF & "Comments & Suggestions to:" & @CRLF & "alex@xxx.com")

    EndSelect

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

    EndSwitch

WEnd



Func _WinWaitActivePID($iPid)
    While 1
        Local $list = WinList()
        For $i = 1 To $list[0][0]
            If $list[$i][0] <> "" And IsVisible($list[$i][1]) Then
                If WinGetProcess($list[$i][1]) = $iPid AND WinActive($list[$i][1]) Then Return $list[$i][1]
            EndIf
        Next
    WEnd
EndFunc   ;===>_WinWaitPID

Func IsVisible($handle)
    If BitAND(WinGetState($handle), 2) Then
        Return 1
    Else
        Return 0
    EndIf

EndFunc   ;==>IsVisible

Maurice · #6

Hello

Je voulais exprimer mon contentement devant cette attitude qui consiste
à demander de l'aide et quand "ça marche", d'en faire profiter le forum.

Merci Dunpeal pour ton partage qui fera avancer d'autres membres à coup sûr !

AutoIt Français

[R] Checkbox IE Checked or Not

[R] Checkbox IE Checked or Not

Re: [..] Checkbox IE Checked or Not

Re: [..] Checkbox IE Checked or Not

Re: [..] Checkbox IE Checked or Not

Re: [..] Checkbox IE Checked or Not

Re: [R] Checkbox IE Checked or Not