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

Résolu
cs_H2000 Messages postés 9 Date d'inscription dimanche 9 avril 2006 Statut Membre Dernière intervention 7 janvier 2010 - 2 févr. 2008 à 22:52
Kevin.Ory Messages postés 840 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 7 janvier 2009 - 3 févr. 2008 à 19:03
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

Kevin.Ory Messages postés 840 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 7 janvier 2009 11
3 févr. 2008 à 14:13
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à
3
Kevin.Ory Messages postés 840 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 7 janvier 2009 11
3 févr. 2008 à 19:03
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
3
jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
2 févr. 2008 à 23:21
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.
0
wtor Messages postés 59 Date d'inscription dimanche 23 novembre 2003 Statut Membre Dernière intervention 18 mars 2011
3 févr. 2008 à 01:02
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_H2000 Messages postés 9 Date d'inscription dimanche 9 avril 2006 Statut Membre Dernière intervention 7 janvier 2010
3 févr. 2008 à 11:22
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
0
cs_H2000 Messages postés 9 Date d'inscription dimanche 9 avril 2006 Statut Membre Dernière intervention 7 janvier 2010
3 févr. 2008 à 15:53
Bonjour,

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

Merci
0
Rejoignez-nous