Discussion :

[Nuxiz]

Salut à tous...

Le titre de mon sujet a l'air complexe mais je ne savais pas quoi mettre donc bon..

Voila, je suis en train de faire un petit programme. Sur celui-ci, j'aimerais inclure un bouton (jusqu'à la tout va bien) et quand je clique dessus, je voudrais modifier l'option d'un programme extérieur.. J'avais réussi auparavent avec cet exemple :

J'avais un bouton, je clique dessus, cela modifie une option d'Internet Explorer mais grâce à une clé de la base de registre. Cependant, le programme dont j'aimerais modifier l'option n'a pas l'air d'avoir de clé dans le registre pour cette option donc comment puis-je faire ? Est-ce possible ?

Merci à vous.

[avigeilpro]

Il faut d'abord chercher ou le programme sauve l'option, une fois trouvé on pourrat te dire si cela est possible.
Cherche dans les fichier ini, des fois ca y est. Si c'est le cas, alors le code suivant te permettra de les modifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
    ByVal lpFileName As String) As Long
 
 
 
Public Function EcritDansFichierIni(Section As String, Cle As String, _
                                     Valeur As String, Fichier As String) As Long
EcritDansFichierIni = WritePrivateProfileString(Section, Cle, Valeur, Fichier)
End Function
 
Public Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, _
    Optional ValeurParDefaut As String = "") As String
 
Dim strReturn As String
strReturn = String(255, 0)
GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
 
End Function

sinon, ben cherche dans les autres fichier comme cfg, config ...