Benvenuto! Per postare e godere delle funzionalità del forum registrati, occorrono pochi secondi ed è gratis!

[aiuto]registro di sistema e vb.net
(Questo messaggio è stato modificato l'ultima volta il: 17/09/2011, 20:38 da Skyline@69.)

WarRock Hacks Coder
Messaggi: 940
Discussioni: 47
Registrato: 03-2011
Mix: 0
questo è un esempio completo da cui ho tra l'altro estratto quella porzione che ti ho postato prima...
l'ho testato (su 7) e funge su tutti i sensi..
Provalo, studiatelo e implementalo come vuoi e come ti serve Smile

    VB Programming
  1. Imports System
  2. Imports Microsoft.Win32
  3.  
  4. Module Module1
  5. Sub Main()
  6. ' Create a subkey named Test9999 under HKEY_CURRENT_USER.
  7. Dim test9999 As RegistryKey = _
  8. Registry.CurrentUser.CreateSubKey("Test9999")
  9.  
  10. ' Create two subkeys under HKEY_CURRENT_USER\Test9999.
  11. test9999.CreateSubKey("TestName").Close()
  12. Dim testSettings As RegistryKey = _
  13. test9999.CreateSubKey("TestSettings")
  14.  
  15. ' Create data for the TestSettings subkey.
  16. testSettings.SetValue("Language", "French")
  17. testSettings.SetValue("Level", "Intermediate")
  18. testSettings.SetValue("ID", 123)
  19. testSettings.SetValue("Password", "Secret")
  20. testSettings.Close()
  21.  
  22. ' Print the information from the Test9999 subkey.
  23. Console.WriteLine("There are {0} subkeys under Test9999.", _
  24. test9999.SubKeyCount.ToString())
  25. For Each subKeyName As String In test9999.GetSubKeyNames()
  26. Dim tempKey As RegistryKey = _
  27. test9999.OpenSubKey(subKeyName)
  28. Console.WriteLine(vbCrLf & "There are {0} values for " & _
  29. "{1}.", tempKey.ValueCount.ToString(), tempKey.Name)
  30. For Each valueName As String In tempKey.GetValueNames()
  31. Console.WriteLine("{0,-8}: {1}", valueName, _
  32. tempKey.GetValue(valueName).ToString())
  33. Next
  34. Next
  35.  
  36. ' Delete the non-secure password value.
  37. testSettings = test9999.OpenSubKey("TestSettings", True)
  38. testSettings.DeleteValue("password")
  39.  
  40. ' Verify the deletion.
  41. Console.WriteLine(CType(testSettings.GetValue( _
  42. "password", "Password not found."), String))
  43. testSettings.Close()
  44.  
  45. ' Delete or close the new subkey.
  46. Console.Write(vbCrLf & "Delete newly created " & _
  47. "registry key? (Y/N) ")
  48. If Char.ToUpper(Convert.ToChar(Console.Read())) = "Y"c Then
  49. Registry.CurrentUser.DeleteSubKeyTree("Test9999")
  50. Console.WriteLine(vbCrLf & "Registry key {0} deleted.", _
  51. test9999.Name)
  52. Else
  53. Console.WriteLine(vbCrLf & "Registry key {0} closed.", _
  54. test9999.ToString())
  55. test9999.Close()
  56. End If
  57.  
  58. End Sub
  59.  
  60. End Module



[Per vedere i link devi REGISTRARTI.]


Fonte:

[Per vedere i link devi REGISTRARTI.]



17/09/2011, 20:36
#14
Cerca


Messaggi in questa discussione
[Nessun oggetto] - da Skyline@69 - 15/09/2011, 21:36
[Nessun oggetto] - da Cato97 - 15/09/2011, 21:52
[Nessun oggetto] - da Skyline@69 - 15/09/2011, 22:14
[Nessun oggetto] - da Cato97 - 16/09/2011, 19:55
[Nessun oggetto] - da Skyline@69 - 16/09/2011, 21:07
[Nessun oggetto] - da Cato97 - 16/09/2011, 23:00
[Nessun oggetto] - da Skyline@69 - 17/09/2011, 13:34
[Nessun oggetto] - da Cato97 - 17/09/2011, 13:59
[Nessun oggetto] - da digger - 17/09/2011, 14:21
[Nessun oggetto] - da Cato97 - 17/09/2011, 14:43
[Nessun oggetto] - da Skyline@69 - 17/09/2011, 14:44
[Nessun oggetto] - da Cato97 - 17/09/2011, 19:55
[Nessun oggetto] - da Skyline@69 - 17/09/2011, 20:36
[Nessun oggetto] - da Cato97 - 17/09/2011, 22:22
[Nessun oggetto] - da Skyline@69 - 18/09/2011, 9:44
[Nessun oggetto] - da Cato97 - 18/09/2011, 14:21
[Nessun oggetto] - da Skyline@69 - 18/09/2011, 14:54
[Nessun oggetto] - da Cato97 - 18/09/2011, 15:28
[Nessun oggetto] - da Skyline@69 - 18/09/2011, 16:45
[Nessun oggetto] - da Cato97 - 18/09/2011, 20:52
[Nessun oggetto] - da pauldomy - 16/12/2012, 21:14

Discussioni simili
Discussione Autore Risposte Letto Ultimo messaggio
  [Guida] Cambiare lingua ad un gioco che utilizza una lingua di sistema Cato97 10 59,620 25/08/2017, 16:46
Ultimo messaggio: Romolo
  [aiuto] No segnale su sapphire R9 280. Pocciox 5 2,386 14/01/2015, 22:11
Ultimo messaggio: digger
  aiuto portatile oirad94 1 1,665 22/12/2014, 16:27
Ultimo messaggio: Admin



Utenti che stanno guardando questa discussione: 1 Ospite(i)