Interrogation base registre creation fichier texte

Résolu
psgman37
Messages postés
18
Date d'inscription
jeudi 22 septembre 2005
Statut
Membre
Dernière intervention
13 octobre 2006
- 20 oct. 2005 à 09:52
psgman37
Messages postés
18
Date d'inscription
jeudi 22 septembre 2005
Statut
Membre
Dernière intervention
13 octobre 2006
- 20 oct. 2005 à 14:37
Bonjour
je cherche en vain des indications qui pourraient m'aider mais je ne trouve pas grand chose.
J'aimerais verifier si une clé de registre ici c'est : HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\internet settings\minorversion contient "sp1" dans sa valeur si c'est le cas ca me genere un fichier ok.txt sinon nok.txt.
J'ai du mal car je ne sais pas comment dans vb on fait pour passer l'instruction "contient" et pour generer un fichier.
j'ai demarré comme cela:
Private Sub Form_Load()


Set gui = CreateObject("WScript.Shell")
a = gui.RegRead("HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\internet settings\minorversion")
If InStr(1, a, sp1) Then

quelqu'un pourrait m'aider???

4 réponses

cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
20 oct. 2005 à 11:21
c'est sûrement un problème de majuscule :





If InStr(1, UCase(a), UCase("sp1")) > 0 Then



Open App.Path & "\ok.txt" for output as #1

close #1



Else



Open App.Path & "\nok.txt" for output as #1


close #1



End If



Ceci ta créera ton fichier texte dans le dossier de ton prog.




_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
3
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
20 oct. 2005 à 10:10
If InStr(1, a, "sp1") > 0 Then



'contient "sp1"



Else



'ne contient pas "sp1"



End If

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
0
psgman37
Messages postés
18
Date d'inscription
jeudi 22 septembre 2005
Statut
Membre
Dernière intervention
13 octobre 2006

20 oct. 2005 à 10:57
comment je fais pour lui dire si contient sp1 tu crée le fichier ok.txt sinon nok.txt?
c'est bizarre le bout de code ci dessus ne fonctionne pas il m'affiche "ne contient pas" alors que dans ma clé qui est ";sp1,q589633,q58663" il y a bien SP1 !
0
psgman37
Messages postés
18
Date d'inscription
jeudi 22 septembre 2005
Statut
Membre
Dernière intervention
13 octobre 2006

20 oct. 2005 à 14:37
merci!!!
0