[R] intérrargir entre une checkbox et GUICtrlCreateListView

[Vins83]

Bonjour à tous,je cherche a faire un utilitaire proche de msconfig, les programmes étant coché sont ceux qui se lance au démarrage et les décochés non, mais il me manque quelque chose pour que lorsque j'en décoche un il se mettre automatiquement dans HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg

Merci de votre aide (je n'ai pas trouvé sur le fofo anglais)

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <ListviewConstants.au3>

$width = 510
$height = 380
$GUI = GUICreate("Test", $width, $height)
$check=GUICtrlCreateButton('check',20,10,$width - 45,20)

$ListView = GUICtrlCreateListView("Nom du programme|Emplacement", 20, 40, $width - 45, 250, -1, $LVS_EX_CHECKBOXES + $WS_EX_OVERLAPPEDWINDOW)

For $i = 1 to 100
$var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $i)
if @error <> 0 Then ExitLoop
GUICtrlCreateListViewItem( $var & "|" & RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $var), $ListView)
GUICtrlSetState(-1, $GUI_CHECKED)
next

For $i1 = 1 to 100
$var1 = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $i1)
if @error <> 0 Then ExitLoop
GUICtrlCreateListViewItem( $var1 & "|" & RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $var1), $ListView)
GUICtrlSetState(-1, $GUI_CHECKED)
next

For $i = 1 to 100
$var1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg", $i)
if @error <> 0 Then ExitLoop
GUICtrlCreateListViewItem( $var1 & "|" & RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $var1, "command"), $ListView)
next

GUISetState()

While 1
    $m=guigetmsg()
    Select
    Case $m=$GUI_EVENT_CLOSE
        Exit
    Case $m=$check
        For $h=0 To 1000
            If _GUICtrlListView_GetItemChecked($listview, $h)=True Then MsgBox(4096,"checked","checked " & "item "&$h)

            Next
    EndSelect
    WEnd


; programmes lancé au démarrage     -->  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

;Windows Registry Editor Version 5.00

;[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
;"WinPatrol"="C:\\Program Files\\BillP Studios\\WinPatrol\\winpatrol.exe -expressboot"
;"FSB Antivirus Shield Tray"="C:\\Program Files\\FSB Antivirus\\FSBTray.exe"


; programme désactivé dans msconfig -->  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg

[sylvanie]

salut Vins

je pense que ceci t'aidera.
J'ai remplacé la fonction de get de status, car cette dernière s'appuie sur des indexes commençant à 0, or la méthode que je propose est basée uniquement su l'id du contrôle

reste après a "nettoyer" le retours

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <ListviewConstants.au3>
opt("GUIOnEventMode",1)
$width = 510
$height = 380
$GUI = GUICreate("Test", $width, $height)
GUISetOnEvent($GUI_EVENT_CLOSE,"My_exit")

$check=GUICtrlCreateButton('check',20,10,$width - 45,20)

$ListView = GUICtrlCreateListView("Nom du programme|Emplacement", 20, 40, $width - 45, 250, -1, $LVS_EX_CHECKBOXES + $WS_EX_OVERLAPPEDWINDOW)

For $i = 1 to 100
$var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $i)
if @error <> 0 Then ExitLoop
GUICtrlCreateListViewItem( $var & "|" & RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $var), $ListView)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1,"update_registry")
next

For $i1 = 1 to 100
$var1 = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $i1)
if @error <> 0 Then ExitLoop
GUICtrlCreateListViewItem( $var1 & "|" & RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $var1), $ListView)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1,"update_registry")
next

For $i = 1 to 100
$var1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg", $i)
if @error <> 0 Then ExitLoop
GUICtrlCreateListViewItem( $var1 & "|" & RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $var1, "command"), $ListView)
GUICtrlSetOnEvent(-1,"update_registry")
next

GUISetState()

While 1
    Sleep(500)
WEnd

Func update_registry()
    local $control_clicked = @GUI_CtrlId
    Local $text
    If BitAND(GUICtrlRead($control_clicked,1),$GUI_UNCHECKED ) <> 0 Then MsgBox(0,"debug",GUICtrlRead($control_clicked))
    
EndFunc

Func My_exit()
    Exit 0
EndFunc
 

[Vins83]

Merci Sylvanie, j'ai continuer mon taf et je suis arrivé a un bon résultat pour XP,mais pas parfait encore.

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListviewConstants.au3>

$width = 510
$height = 380
$titre = "test"
$GUI = GUICreate($titre, $width, $height)

$button = GUICtrlCreateButton("Value?", 20, 280, 70, 20)

$ListView = GUICtrlCreateListView("Activé|Programme|Emplacement Fichier", 20, 25, $width - 45, 250, -1)

For $i = 1 To 100
    $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $i)
    If @error <> 0 Then ExitLoop
    GUICtrlCreateListViewItem("oui" & "|" & $var & "|" & RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $var), $ListView)
    GUICtrlSetState(-1, $GUI_CHECKED)
Next

For $i1 = 1 To 100
    $var1 = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $i1)
    If @error <> 0 Then ExitLoop
    GUICtrlCreateListViewItem("oui" & "|" & $var1 & "|" & RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $var1), $ListView)
    GUICtrlSetState(-1, $GUI_CHECKED)
Next

For $i = 1 To 100
    $var1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg", $i)
    If @error <> 0 Then ExitLoop
    GUICtrlCreateListViewItem("non" & "|" & $var1 & "|" & RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $var1, "command"), $ListView)
Next

GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit

        Case $msg = $button
            If GUICtrlRead(GUICtrlRead($ListView)) == 0 Then
                MsgBox(16, "listview item", "Vous n'avez pas selectionné de programme")
            Else
                ;MsgBox(0, "listview item", GUICtrlRead(GUICtrlRead($ListView)))
                If StringLeft(GUICtrlRead(GUICtrlRead($ListView)), 3) == "oui" Then
                    $oui = MsgBox(4, $titre, "Ce programme est lancé au démarrage,souhaitez vous le retirer ?")
                    If $oui == 6 Then

                        $groupe2 = 2 ;0 étant le nombre de groupe 2 étant le permier groupe ...
                        $fichier = GUICtrlRead(GUICtrlRead($ListView))
                        $tab = StringSplit($fichier, "|")
                        ;MsgBox(0, "", $tab[$groupe2])

                        $groupe3 = 3 ;0 étant le nombre de groupe 3 étant le dexieme groupe ...
                        $fichier = GUICtrlRead(GUICtrlRead($ListView))
                        $tab = StringSplit($fichier, "|")
                        ;MsgBox(0, "", $tab[$groupe3])

                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "key", "REG_SZ", "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "item", "REG_SZ", $tab[$groupe2])
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "command", "REG_SZ", $tab[$groupe3])
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "inimapping", "REG_SZ", "0")
                        If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $tab[$groupe2]) = $tab[$groupe3] Then
                            ;MsgBox(0, $titre & "test registre", RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $tab[$groupe2]))
                            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "hkey", "REG_SZ", "HKLM")
                            RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $tab[$groupe2])
                        EndIf
                        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $tab[$groupe2]) = $tab[$groupe3] Then
                            ;MsgBox(0, $titre & "test registre", RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $tab[$groupe2]))
                            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "hkey", "REG_SZ", "HKCU")
                            RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $tab[$groupe2])
                        EndIf


                    EndIf
                EndIf
                If StringLeft(GUICtrlRead(GUICtrlRead($ListView)), 3) == "non" Then
                    $oui = MsgBox(4, $titre, "Ce programme n'est pas lancé au démarrage,souhaitez vous le rajouter ?")
                    If $oui == 6 Then
                        $groupe2 = 2 ;0 étant le nombre de groupe 2 étant le permier groupe ...
                        $fichier = GUICtrlRead(GUICtrlRead($ListView))
                        $tab = StringSplit($fichier, "|")
                        ;MsgBox(0, "", $tab[$groupe2])

                        $groupe3 = 3 ;0 étant le nombre de groupe 3 étant le deuxieme groupe ...
                        $fichier = GUICtrlRead(GUICtrlRead($ListView))
                        $tab = StringSplit($fichier, "|")
                        ;MsgBox(0, "", $tab[$groupe3])

                        $valuename = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "hkey")
                        If $valuename = "HKLM" Then
                            ;MsgBox(0, "", "HKLM")
                            $keyname = "HKEY_LOCAL_MACHINE\"
                            $key = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "key")
                            $item = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "item")
                            $command = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "command")
                            RegWrite($keyname & $key, $item, "REG_SZ", $command)
                            RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2])
                        EndIf
                        If $valuename = "HKCU" Then
                            ;MsgBox(0, "", "HKCU")
                            $keyname = "HKEY_LOCAL_MACHINE\"
                            $key = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "key")
                            $item = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "item")
                            $command = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2], "command")
                            RegWrite($keyname & $key, $item, "REG_SZ", $command)
                            RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\" & $tab[$groupe2])
                        EndIf

                    EndIf
                EndIf
            EndIf
            ; Case $msg = $listview
            ;    MsgBox(0, "listview", "clicked=" & GUICtrlGetState($listview))

    EndSelect
WEnd

Il ne me reste plus qu'a actualiser le contenu de la UICtrlCreateListView ou UICtrlCreateListViewItem pour arriver au bout de mon sujet.

Merci encore