Vérification d'un code dans un fichier lors du démarrage du programme

[Résolu]
Signaler
Messages postés
9
Date d'inscription
dimanche 9 avril 2006
Statut
Membre
Dernière intervention
7 janvier 2010
-
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
-
Bonsoir,

Je voudrais savoir si c'est possible que lors de l'activation d'un programme, il puisse voir dans un fichier si le code que le programme a est pareil que celui du fichier, par exemple si je lance mon application, il va regarder dans C:\Fichier.txt si le texte correspond bien à 12345, si dans le programme c'est aussi 12345 alors il continue à éxécuter le programme, sinon il se ferme.

Merci

6 réponses

Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
9
Salut,

Pas très .NET le code de wtor

' Lecture du contenu du fichier
Dim valeur As String = IO.File.ReadAllText("C:\fichier.txt").Trim
' Tester la valeur
If valeur <> 123456 Then Application.Exit()

Voilà
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
9
Ceci retourne le répertoire Windows\System32\
Dim sysPath As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
Prendre le dossier parent pour avoir le dossier Windows:
Dim winPath As String = IO.Directory.GetParent(sysPath).ToString()

N'oublie pas de cliquer sur le bouton "Réponse acceptée" lorsque tu as une réponse qui te convient
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Bonsoir,

Oui, bien sûr...

Tu as de nombreuses sources et exemples sur ce forum en ce qui concerne la lecture et l'écriture de fichiers texte ...(utilise le moteur de recherche) ...

Regarde aussi Open dans ton aide en ligne.
Messages postés
59
Date d'inscription
dimanche 23 novembre 2003
Statut
Membre
Dernière intervention
18 mars 2011

salut
voici une solution

'variable String
Dim S As String

'Ouverture de fichier en mode binaire  
Open "C:\Fichier.txt" For Binary Access Read As #1
'Affecter la taille du fichier a la variable S
S = Space(LOF(1))
'Lecture du fichier
Get #1, , S
'Fermer le fichier
Close #1

enfin le contenu de ton fichier est dans S
Messages postés
9
Date d'inscription
dimanche 9 avril 2006
Statut
Membre
Dernière intervention
7 janvier 2010

Bonjour,

Merci pour votre réponse.

Je ne comprends pas, j'ouvre le fichier (C:\Fichier.txt) dans la variable S, mais où est-ce que je dois placer si S <> 12345 alors il se ferme ?

Merci
Messages postés
9
Date d'inscription
dimanche 9 avril 2006
Statut
Membre
Dernière intervention
7 janvier 2010

Bonjour,

Merci pour votre réponse, existe-t-il une variable pour indiquer C:\Windows ?

Merci