时间戳

首页 > 解决方案 > 如何将注册表值读入标签或 msgbox

vb.net - 如何将注册表值读入标签或 msgbox

问题描述

我只需要将 Windows 原始安装日期注册表中的 DWord 值读取到标签或文本框中，以便我可以在其他地方使用它。我正在尝试使用 installdate 创建倒计时。

我在 Google 上搜索了很多，观看了 YouTube 视频，复制并粘贴了一堆示例代码，看看是否可以理解我需要什么来实现这一点以及什么会起作用

这可能是我的第 20 次尝试

Dim InstallDate As Long

    With New RegRead
        .OpenKey(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", KEY64)
        InstallDate =("InstallDate")
        .CloseKey()
    End With

    Label1.text=("Install date: " & Format$(DateAdd("s", InstallDate, #1/1/1970#), "Short Date"))

我希望原始安装日期以十进制或十六进制值出现在 lable1 中。

但它说没有声明“HKEY_LOCAL_MACHINE”。由于其保护级别，它可能无法访问，并且 Microsoft 是一个命名空间，不能用作表达式。我在 Windows 7 64 位，注册表版本 5 上。如果有帮助的话。

我搞不清楚了。请帮忙。（我只是一个菜鸟）

标签： vb.netvisual-studio-2010

解决方案

试试这个：

Dim readValue = My.Computer.Registry.GetValue(
    "HKEY_CURRENT_USER\Software\MyApp", "Name", Nothing)
MsgBox("The value is " & readValue)

来源：https ://docs.microsoft.com/en-us/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-read-a-value-from-a-registry-key

推荐阅读