Je cherche à lancer une interface d'encodage de login à partir d'un bouton se trouvant sur une partie graphique différente
j'ai voulu utiliser le $var pour mettre dans un container, pour l'appeler en cliquant sur le bouton "enregistrer" mais ça n'a pas fonctionner
j'ai donc retirer ce que j'avais tenter et laisser le code comme je pensais qu'il devrai être pour pouvoir fonctionner
quand je le lance la première partie de l'interface passe bien mais la seconde reste invisible et rien n'arrive
auriez-vous une idée pour que ca puisse fonctionné
Merci d'avance
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <Crypt.au3>
#include <File.au3>
#include <Constants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Administrateur\Desktop\Form2.kxf
Global $Form1 = GUICreate("Form1", 562, 437, 191, 124)
Global $Label1 = GUICtrlCreateLabel("Pour enregistrer vos codes d'accès, cliquer sur le bouton Enregistrer", 32, 16, 404, 25)
Global $Button1 = GUICtrlCreateButton("Enregistrer", 456, 16, 75, 25)
Global $Label2 = GUICtrlCreateLabel("Cocher les cases pour sélectionner les programmes, cliquer sur valider pour les exécuter ", 32, 64, 500, 33)
Global $Pic1 = GUICtrlCreatePic("", 24, 112, 68, 68)
Global $Pic2 = GUICtrlCreatePic("C:\Users\Administrateur\Desktop\autoit icone\outlook-web.jpg", 112, 112, 68, 68)
Global $Pic3 = GUICtrlCreatePic("", 200, 112, 68, 68)
Global $Pic4 = GUICtrlCreatePic("", 288, 112, 68, 68)
Global $Pic5 = GUICtrlCreatePic("", 376, 112, 68, 68)
Global $Pic6 = GUICtrlCreatePic("", 464, 112, 68, 68)
Global $Checkbox1 = GUICtrlCreateCheckbox("", 56, 200, 17, 17)
Global $Checkbox2 = GUICtrlCreateCheckbox("", 144, 200, 17, 17)
Global $Checkbox3 = GUICtrlCreateCheckbox("", 232, 200, 17, 17)
Global $Checkbox4 = GUICtrlCreateCheckbox("", 320, 200, 17, 17)
Global $Checkbox5 = GUICtrlCreateCheckbox("", 408, 200, 17, 17)
Global $Checkbox6 = GUICtrlCreateCheckbox("", 496, 200, 17, 17)
Global $Pic7 = GUICtrlCreatePic("", 24, 232, 68, 68)
Global $Pic8 = GUICtrlCreatePic("", 112, 232, 68, 68)
Global $Pic9 = GUICtrlCreatePic("", 200, 232, 68, 68)
Global $Pic10 = GUICtrlCreatePic("", 288, 232, 68, 68)
Global $Pic11 = GUICtrlCreatePic("", 376, 232, 68, 68)
Global $Pic12 = GUICtrlCreatePic("", 464, 232, 68, 68)
Global $Checkbox7 = GUICtrlCreateCheckbox("", 56, 320, 17, 17)
Global $Checkbox8 = GUICtrlCreateCheckbox("", 144, 320, 17, 17)
Global $Checkbox9 = GUICtrlCreateCheckbox("", 232, 320, 17, 17)
Global $Checkbox10 = GUICtrlCreateCheckbox("", 320, 320, 17, 17)
Global $Checkbox11 = GUICtrlCreateCheckbox("", 408, 320, 17, 17)
Global $Checkbox12 = GUICtrlCreateCheckbox("", 496, 320, 17, 17)
Global $Button2 = GUICtrlCreateButton("Valider", 368, 360, 75, 25)
Global $Button3 = GUICtrlCreateButton("Annuler", 456, 360, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
;partie pour enregistrer login et mot de passe
Opt("MustDeclareVars", 1)
Global $sCryptKey = "MyPassWord"
Global $sFileName = "Test.bin"
Local $aLogin [0][3]
If FileExists($sFileName) Then _ArrayAdd($aLogin, Decrypt_File($sFileName, $sCryptKey))
_ArrayDisplay ($aLogin); affiche le tableau avec les login et mot de passe au lancement du programme
#Region ### START Koda GUI section ### Form=C:\Users\Administrateur\Desktop\Form1.kxf
Global $Form2 = GUICreate("Form2", 357, 294, 192, 124)
Global $Label3 = GUICtrlCreateLabel("Enregistrez vos identifiants", 56, 32, 252, 49)
Global $Label4 = GUICtrlCreateLabel("Sélectionnez le programme", 48, 88, 120, 40)
Global $Combo1 = GUICtrlCreateCombo("", 144, 88, 145, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "programme1|MAIL|programme3|programme4|programme5") ;nom mis dans la picklist
Global $Label1 = GUICtrlCreateLabel("Login :", 48, 136, 76, 17)
Global $Input1 = GUICtrlCreateInput("", 144, 128, 121, 21) ; input login
Global $Label2 = GUICtrlCreateLabel("Password :", 48, 168, 76, 17)
Global $Input2 = GUICtrlCreateInput("", 144, 160, 121, 21) ; input password
Global $Button1 = GUICtrlCreateButton("Valider", 152, 208, 75, 25)
Global $Button2 = GUICtrlCreateButton("Annuler", 240, 208, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $sProgram, $sLogin, $sPassword, $nMsg, $sSearch, $rep
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button1
$sProgram = GUICtrlRead ($Combo1)
$sLogin = GUICtrlRead ($input1)
$sPassword = GUICtrlRead ($input2)
If $sLogin = "" or $sPassword = "" then ContinueLoop MsgBox ($MB_SYSTEMMODAL,"Erreur","Tous les champs doivent être remplis")
$sSearch = _ArraySearch($aLogin,$sLogin,0,0,0,1,1,1);on cherche le doublon
If $sSearch >= 0 then ;si doublon trouvé on modifie ou non l'original selon le doublon (permet de modifier les entrées)
$rep = MsgBox(4 + 48,"ATTENTION", $sLogin & " a été trouvé dans le tableau" & @CRLF & "Voulez vous modifier les données")
If $rep = 6 Then ;réponse oui
$aLogin[$sSearch][0] = $sProgram
$aLogin[$sSearch][2] = $sPassword
EndIf
Else
AjoutLogin ($sProgram, $sLogin, $sPassword)
EndIf
MsgBox ($MB_SYSTEMMODAL,"C'est fait!", "Vos données ont été enregistrées avec succès",1)
_ArrayDisplay ($aLogin); pour voir le tableau avec login et mot de passe
ContinueCase
Case $Button2
GUICtrlSetData ($input1, "")
GUICtrlSetData ($input2, "")
EndSwitch
WEnd
If UBound ($aLogin) > 0 Then Encrypt_File($sFileName, $sCryptKey, _ArrayToString ($aLogin))
Func AjoutLogin ($sProgram, $sLogin, $sPassword)
Local $iIdx = UBound($aLogin)
ReDim $aLogin[$iIdx+1][UBound($aLogin,2)]
$aLogin[$iIdx][0] = $sProgram
$aLogin[$iIdx][1] = $sLogin
$aLogin[$iIdx][2] = $sPassword
EndFunc
Func Decrypt_File($FileName, $vCryptKey)
Local $hFile, $vContent, $sCrypt
$hFile = FileOpen($FileName, $FO_BINARY)
$vContent = FileRead($hFile)
FileClose($hFile)
Local $sCrypt = _Crypt_DecryptData($vContent, $vCryptKey, $CALG_RC2, True)
If @error Then Return ConsoleWrite("Error Decrypting " & $FileName & " with error " & @error & @CRLF)
Local $sValue = BinaryToString($sCrypt)
Return $sValue
EndFunc ;==>Decrypt_File
Func Encrypt_File($FileName, $vCryptKey, $sFileContent)
Local $hFile, $sCrypt
$sCrypt = _Crypt_EncryptData($sFileContent, $vCryptKey, $CALG_RC2, True)
If @error Then Return ConsoleWrite("Error Encrypting " & $FileName & " with error " & @error & @CRLF)
$hFile = FileOpen($sFileName, $FO_OVERWRITE + $FO_BINARY)
FileWrite($hFile, $sCrypt)
FileClose($hFile)
EndFunc ;==>Encrypt_File
merci pour votre aide