双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何用VB.net读出注册表

2008-11-02 07:25:37 179 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lomey 墨衍会员 · AI 创作全网分发关注 + 加入社区

利用VB.NET访问注册表利用VB.NET访问注册表译者注：访问注册表的例子比较多，然而通过VB.NET访问注册表的例子并不多，本文翻译了一篇MSDN上的利用VB.NET存取注册表的例子，挺详细也挺全面的。 ( http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_vstechart/html/vbtchimpdragdrop.as 阅读详情

如何使用vb.net读取 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager
"BootExecute" 的值，类型为 REG_MULTI_SZ
怎样用 listView 控件显示出来 "BootExecute" 的值

...全文

VB.net 注册表操作API VB.net 注册表操作API'说明：该api只能在pc上使用，在wince上操作注册表需要利用Microsoft.WindowsMobile.Status库，使用方法如下： 'Imports Microsoft.WindowsMobile.Status 'Imports Microsoft.WindowsMobile.PocketOutlook ' 'TextBox4.Text = Microso 阅读详情

lomey

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

wuyq11 2008-11-03

打赏
举报

DeleteSetting
删除注册表中应用程序中的某项或键值
GetSetting
返回注册表中应用程序入口点的键值
GetAllSettings
返回注册表中程序入口点的一列键值
SaveSetting
在注册表中创建或保存程序的设置

Forrest23 2008-11-03

打赏
举报

 Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Session Manager\")

        Dim name As String() = reg.GetValue("BootExecute")

        For i As Integer = 0 To name.Length - 1

            Me.ListView1.Items.Add(name(i))

        Next

'这个可以实现你想要的

Forrest23 2008-11-03

打赏
举报

 '遍历注册表的HKEY_LOCAL_MACHINE_SOFTWARE_Windows_CurrentVersion_App Paths_Path 找到应用程序的路径

        Dim key, subkey, no1, no2, no3, no4, sitekey As Microsoft.Win32.RegistryKey

        Dim site, valuename As String

        valuename = "Path"

        key = Microsoft.Win32.Registry.LocalMachine

        subkey = key.OpenSubKey("SOFTWARE")

        no1 = subkey.OpenSubKey("Microsoft")

        no2 = no1.OpenSubKey("Windows")

        no3 = no2.OpenSubKey("CurrentVersion")

        no4 = no3.OpenSubKey("App Paths")

        For Each site In no4.GetSubKeyNames()

            ' Me.ListBox1.Items.Add(site)

            sitekey = no4.OpenSubKey(site)

            For Each valuename In sitekey.GetValueNames()

                If InStrRev(sitekey.GetValue(valuename).ToString, ".") > 0 And sitekey.GetValue(valuename).ToString.Length > 4 Then

                    Me.ListLj.Items.Add(sitekey.GetValue(valuename))

                End If

            Next

        Next'给你参考一下

hsx49949046 2008-11-03

打赏
举报

Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Session Manager\")
Dim gettxt As String()
Dim name As String() = reg.GetValue("BootExecute")
gettxt = name

Me.ListView1.Columns.Add("值")
Dim lvItem As New ListViewItem()
lvItem.Text = (gettxt(0)).ToString()
ListView1.Columns(0).Width = 180
ListView1.Items.Add(lvItem)
lvItem = New ListViewItem()

✦双11狂欢大促✦

如何用VB.net读出注册表

相关推荐

双11狂欢大促