Modifier une valeur du registre
Fermé
Lyc@n
Messages postés
219
Date d'inscription
dimanche 24 octobre 2010
Statut
Membre
Dernière intervention
22 février 2014
-
11 déc. 2012 à 20:10
Lyc@n Messages postés 219 Date d'inscription dimanche 24 octobre 2010 Statut Membre Dernière intervention 22 février 2014 - 8 janv. 2013 à 20:13
Lyc@n Messages postés 219 Date d'inscription dimanche 24 octobre 2010 Statut Membre Dernière intervention 22 février 2014 - 8 janv. 2013 à 20:13
A voir également:
- Modifier une valeur du registre
- Modifier pdf - Guide
- Modifier liste déroulante excel - Guide
- Clé de registre - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Modifier extension fichier - Guide
7 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
12 déc. 2012 à 19:10
12 déc. 2012 à 19:10
Bonjour,
Pour modifier le fond d'écran j'emploi (en VB6) la procédure suivante.
où AffiType est le paramètre pour le mode d'affichage, Étirer, Image ou mosaïque.
Tu devrais facilement retrouver les API, sinon tu dis je te les passerais en VB6
Si ça peu t'aidé !
A+
Pour modifier le fond d'écran j'emploi (en VB6) la procédure suivante.
Public Function ChangeFondEcran(FichierImage As String, Optional AffiType As Integer = 2)
Dim Txt1 As String, Txt2 As String
Dim R As Long
Dim hand As Long
' Gestion de l'erreur si pas d'image
On Error GoTo Fin
' Mettre les options dans les régistres
Select Case AffiType
Case 0 ' Centrer
Txt1 = "0": Txt2 = "0"
Case 1 ' Mosaïque
Txt1 = "0": Txt2 = "1"
Case 2 ' Etirer
Txt1 = "2": Txt2 = "0"
End Select
R = RegCreateKey(HKEY_CURRENT_USER, "Control Panel\Desktop", hand)
R = RegSetValueEx(hand, "WallpaperStyle", 0, REG_SZ, ByVal Txt1, Len(Txt1))
R = RegCloseKey(hand)
'Exit Function
R = RegCreateKey(HKEY_CURRENT_USER, "Control Panel\Desktop", hand)
R = RegSetValueEx(hand, "TileWallpaper", 0, REG_SZ, ByVal Txt2, Len(Txt2))
R = RegCloseKey(hand)
SystemParametersInfo SPI_SETDESKWALLPAPER, 0&, FichierImage, SPIF_UPDATEINIFILE Or _
SPIF_SENDWININICHANGE
Fin:
End Function
où AffiType est le paramètre pour le mode d'affichage, Étirer, Image ou mosaïque.
Tu devrais facilement retrouver les API, sinon tu dis je te les passerais en VB6
Si ça peu t'aidé !
A+
Lyc@n
Messages postés
219
Date d'inscription
dimanche 24 octobre 2010
Statut
Membre
Dernière intervention
22 février 2014
14
14 déc. 2012 à 18:37
14 déc. 2012 à 18:37
Je vais regarder ton code! Merci pour ton aide! :)
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
15 déc. 2012 à 06:39
15 déc. 2012 à 06:39
Je pense à autre chose...
Clic droit sur l'icone de Visual Basic -> ouvrir en tant qu'administrateur.
Ensuite tu charge ton appli et tu l'exécute.
Note : pour modifier une clé registre faut être inscrit comme admin.
Clic droit sur l'icone de Visual Basic -> ouvrir en tant qu'administrateur.
Ensuite tu charge ton appli et tu l'exécute.
Note : pour modifier une clé registre faut être inscrit comme admin.
Lyc@n
Messages postés
219
Date d'inscription
dimanche 24 octobre 2010
Statut
Membre
Dernière intervention
22 février 2014
14
15 déc. 2012 à 10:46
15 déc. 2012 à 10:46
J'ai déjà essayé d'executer en tant qu'admin ça n'y fait rien.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 15/12/2012 à 12:35
Modifié par lermite222 le 15/12/2012 à 12:35
Bon, j'ai un peu examiner le truc...
Ta fonction OpenSubKey ouvre une clé notamment la clé "Background"
Mais au départ elle n'existe pas, faut donc la créer, la fonction CreateSubKey crée la clé si elle n'existe pas et l'ouvre.
Ainsi la clé est créée et validée, le textbox renvoi bien la valeur.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ta fonction OpenSubKey ouvre une clé notamment la clé "Background"
Mais au départ elle n'existe pas, faut donc la créer, la fonction CreateSubKey crée la clé si elle n'existe pas et l'ouvre.
Ainsi la clé est créée et validée, le textbox renvoi bien la valeur.
regOEMBackground = (Registry.LocalMachine.CreateSubKey(keyValue))
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Lyc@n
Messages postés
219
Date d'inscription
dimanche 24 octobre 2010
Statut
Membre
Dernière intervention
22 février 2014
14
17 déc. 2012 à 19:02
17 déc. 2012 à 19:02
Excuse moi si je t'ai pas répondu assez tôt! J'ai vus que tu m'a fait remarqué cette erreur dans un autre sujet. Ce n'est pas un problème de politesse c'est juste que je n'avais pas vu ton post. Alors j'ai regardé ton code, mais à la base, cette clé existe déjà et ne devrai pas avoir à être créé. Mis je vais essayer ton code dans deux ou trois tests, et je te dirait ce que ça me donne au plus vite!
Lyc@n
Messages postés
219
Date d'inscription
dimanche 24 octobre 2010
Statut
Membre
Dernière intervention
22 février 2014
14
8 janv. 2013 à 20:13
8 janv. 2013 à 20:13
J'ai essayé ca:
Mais là le programme à un comportement très étrange, il fait comme si le registre était modifié alors qu'il n'a pas bougé, quelqu'un aurais une idée s'il vous plait? Merci!
Microsoft.Win32.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background")
If My.Computer.Registry.GetValue(RegKey, "OEMBackground", "None") = "0" Then
My.Computer.Registry.SetValue(RegKey, "OEMBackground", "1", RegistryValueKind.DWord)
End If
Mais là le programme à un comportement très étrange, il fait comme si le registre était modifié alors qu'il n'a pas bougé, quelqu'un aurais une idée s'il vous plait? Merci!