в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:50:49Z

1 версия

Новая страница

==Registry.CurrentUser==

<source lang="vbnet">
Option Strict On
Imports Microsoft.Win32
Public Module Tester
Public Sub Main
Dim regKey As RegistryKey
Dim keyTop As RegistryKey = Registry.CurrentUser
regKey = keyTop.OpenSubkey("Software\MyCompany\MyApp", True)
If regKey Is Nothing Then
regKey = keyTop.CreateSubKey("Software\MyCompany\MyApp")
End If
Dim binValue As Byte() = {&HF0, &HFF, &H12, &HE0, &H43, &HAC}
Dim strngValue As String() = {"A", "B","C", "D"}
"regKey.SetValue("WindowState", 0, RegistryValueKind.DWord)
"regKey.SetValue("CustomWindowCaption", "Client Contact Management",RegistryValueKind.String)
"regKey.SetValue("CustomPosition", binValue, RegistryValueKind.Binary)
"regKey.SetValue("CustomLabels", strngValue, RegistryValueKind.MultiString)
End Sub
End Module

</source>

==Registry.GetValue==

<source lang="vbnet">
public class Test
public Shared Sub Main
Console.WriteLine(My.ruputer.Registry.GetValue("HKEY_CURRENT_USER\Software\yourname\subname\","PromptOnExit", "0"))
End Sub
End Class

</source>

==Registry.SetValue==

<source lang="vbnet">
Option Strict On
Imports Microsoft.Win32
Public Module RegistrySetValue
Public Sub Main
Dim regData As Byte() = {&HF0, &HFF, &H20, &H00}
Dim regTopKey As String = "HKEY_LOCAL_MACHINE"
Dim regPath As String = "\Software\MyCompany\MyApp"
" Registry.SetValue(regTopKey & regPath, "BinData", regData, RegistryValueKind.Binary)
End Sub
End Module

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/Microsoft.Win32/Registry - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия