Parametre d'application probleme d'utilisation

Version imprimable

03/05/2013, 19h08
Bastien_Witczak

Parametre d'application probleme d'utilisation

Bonjour,

J'ai réalisé une application qui enregistre des valeurs dans les paramètres d'application. Mais j'ai un probleme pour les garder en mémoire.

Voici ce que je veux dire mais en schema :

Les valeurs de bases des paramètres sont "0"

Dossier 1 : L'application met les paramètres à "1"
Je ferme et relance l'application, les parametres sont a "1"

Je déplace alors l'application dans un autre endroit "dossier 2"

Dossier 2 : Je lance l'application mais je constate que les paramètres sont tous à "0"

Et si je redeplace l'application dans le dossier 1 les parametres sont à "1".

Voila j'aimerais savoir comment faire pour que les paramètres soit enregistrés dans l'application n'importe ou sur le pc. Si cela vous semble pas assez claire n'hésitez pas à me le dire.

Merci d'avance
03/05/2013, 20h52
Pol63

si c'est toi qui a codé le système qui enregistre les paramètres tu dois savoir pourquoi ca réagit comme ca

si ce n'est pas toi qui a codé le système qui enregistre les paramètres, force est de constater que c'est selon le chemin de l'exe que les paramètres sont enregistrés
auquel cas il suffit donc de ne pas utiliser ce système de sauvegarde mais un autre (ca se code facilement) et tu peux donc choisir où seront sauvegarder les paramètres

PS : jaune sur fond rouge c'est pas mal aussi
03/05/2013, 21h22
Bastien_Witczak

Merci de ta réponse,

Je vais vois pour utiliser un autre systeme de sauvegarde.

Merci quand même
03/05/2013, 21h46
Pol63

http://msdn.microsoft.com/fr-fr/libr...ialfolder.aspx

et après faire un fichier (libre, ini, xml ou autre)

la sérialisation xml c'est pratique, il suffit de faire un singleton et après il y a 2 lignes de code pour la lecture ou l'enregistrement
03/05/2013, 23h46
Graffito

Si on a peu de paramètres, l'utilisation de la base de registre est une solution.
03/05/2013, 23h47
Bastien_Witczak

Je cherche en fait un moyen pour enregistrer un compte sur l'application et j'aimerais savoir si cela était possible de ne pas avoir de fichier en plus ?

Sinon comment faire si j'utilise un fichier libre garder confidentiel le mot de passe si j'ouvre le fichier libre avec un bloc note ?

Citation:

... ne pas avoir de fichier en plus ?

2 fonctions pour lire/écrire des strings dans la base de registre (en C# :(, convertisseur ici : http://www.carlosag.net/tools/codetranslator/ :D)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
// ===== Exemple de nom de variable de la base de registre ====
string KeyName = "Software\\"+MyCompanyName+"\\"+MyProgramName+"\\"+MyParameterName ;
 
// ======== Ecriture ==============
  internal static bool Registry_ReadRegKeyContent(string KeyName,out string RegKeyContent) 
    {
      bool Result=false ; 
      RegKeyContent="" ;
      try 
      {
        RegKeyContent=(string)Microsoft.Win32.Registry.GetValue(Microsoft.Win32.Registry.CurrentUser.Name+"\\"+KeyName,"Content","");
        if (RegKeyContent==null) RegKeyContent="" ; else Result=true ;
      }
      catch (Exception Ex) { RegKeyContent="" ; }
      return Result ;
    }
 
// ======== Lecture ==============
    internal static string Registry_WriteRegKeyContent(string KeyName,string KeyContent) 
    {
      string Result="" ;
      try 
      {
        Microsoft.Win32.RegistryKey TheKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(KeyName);
        TheKey.SetValue("Content", KeyContent);
        TheKey.Close() ;
      }
      catch (Exception Ex) { Result="Registration error (WR) : "+Ex.Message.ToString() ; }
      return Result ;
    }

04/05/2013, 09h23
Pol63

Citation:

Envoyé par baba5180

Je cherche en fait un moyen pour enregistrer un compte sur l'application et j'aimerais savoir si cela était possible de ne pas avoir de fichier en plus ?

pour enregistrer quelque chose il faut le mettre sur un disque dur ... donc dans un fichier ...
le système de .net pour les settings c'est aussi un fichier
donc je ne comprends pas trop comment tu veux faire autrement

la base de registre c'est un peu old school, et il faut peut etre des droits utilisateurs ...

Citation:

Envoyé par baba5180

Sinon comment faire si j'utilise un fichier libre garder confidentiel le mot de passe si j'ouvre le fichier libre avec un bloc note ?

system.security.cryptography
04/05/2013, 09h59
Bastien_Witczak

Ok merci pour toutes vos reponses je teste cela et je vous tiens au courant
04/05/2013, 11h19
Graffito

Citation:

la base de registre c'est un peu old school

Comme je trouve que beaucoup en abusent (notamment Microsoft), j'y recoure le moins possible.

Citation:

, et il faut peut etre des droits utilisateurs ...

Il me semble que HKEY_CURRENT_USER est toujours accessible.

Résolu

Je poste ce message car mon probleme est résolu voici ce que j'utilise pour crypter(ce code n'est pas de moi mais de acive):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Function Crypte(ByVal MotDePasse As String) As String
        Dim Str As String = MotDePasse
        Dim Emplac As String = ""
        Dim St As String = ""
        Dim Txt As String = ""
        Dim Nombre As Integer = CInt(MotDePasse.Length / 2)
        Dim Tabl(Nombre) As Integer
        Dim Rt, Qs As Integer
        Dim Cryp As String = ""
 
        For Rt = 0 To Nombre - 1
            Randomize()
            Qs = CInt(Int((Str.Length * Rnd())))
            Do While Str.Contains(st) = True
                Randomize()
                st = Chr(CInt(Int((26 * Rnd()) + 65)))
            Loop
            Str = Str.Insert(Qs, st)
            Txt &= St
        Next
 
        For Rt = 0 To Txt.Length - 1
            Qs = Str.IndexOf(Txt.ToCharArray(Rt, 1))
            Emplac &= Format(Qs, "000")
        Next
        Str &= "." & Emplac
 
        For Rt = 0 To Str.Length - 1
            Qs = Asc(Str.ToCharArray(Rt, 1))
            Cryp &= Format(Qs, "000")
        Next
        Return Cryp
    End Function
 
    Function DeCrypte(ByVal MDPCrypte As String) As String
        Dim MDP As String = ""
        Dim St As String = ""
        Dim Str As String = ""
        Dim Rt As Integer = 0
 
        For Rt = 0 To MDPCrypte.Length - 1 Step 3
            St &= Chr(CInt(Val(MDPCrypte.ToCharArray(Rt, 3))))
        Next
        MDP = Split(St, ".")(0)
        Str = Split(St, ".")(1)
        St = ""
        Dim Found As Boolean
        For i As Integer = 0 To MDP.Length - 1
            Found = False
            For Rt = 0 To Str.Length - 1 Step 3
                If i = CInt(Val(Str.ToCharArray(Rt, 3))) Then Found = True
            Next
            If Found = False Then St &= MDP.ToCharArray(i, 1)
        Next
 
        Return St
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Le seul caractère interdit dans le mot de passe est "." (point)
        Dim Pass As String = ("oùÉpassémonpass")
        MsgBox("Mot de passe non crypté: " & Pass & " - Mot de passe crypté: " & Crypte(Pass))
        MsgBox("En décryptant : " & DeCrypte("070111249201112097115115233109111110086074067089112097087073084115115046048049053048049052048050048048048048048049056048049051048049057048049050"))
 
end sub

Ensuite je met le code crypter dans un fichier texte.
Et encore merci pour votre aide