如何读取和写入包含斜杠的键名中的数据?

2008-03-29 11:00:47 200 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别再瞎试了！MinIO Java SDK查询桶内文件夹文件的正确姿势（附完整代码）本文深入解析MinIO Java SDK中查询桶内文件夹文件的正确方法，重点介绍`prefix`参数的使用技巧和尾随斜杠的重要性，并提供完整的代码实现和常见问题解决方案，帮助开发者高效管理对象存储中的文件。阅读详情

在注册表中有一些键名包含了反斜杠,如何从这些键名中读取和写入数据?请使用VB编写.

例如:
项名:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\SharedDlls
键名:C:\WINDOWS\system32\FM20CHS.DLL
值:1

...全文

知识图谱初步学习（一）——本体+Protege新手学习文章目录前言（本体详解）1.本体概念2.本体分类3.本体组成4.本体构建方法一、protege简介二、软件使用步骤1.安装2.使用三、问题解决方案汇总前言（本体详解）在开始学习知识图谱的过程中，首先就是要了解什么是本体（ontology）。 1.本体概念本体的概念最初源自于哲学领域，在哲学中的定义为“对世界上客观事物的系统描述，即存在论”。哲学中的本体关心的是客观现实的抽象本质。而在计算机领域，本体是可以在语义的层次上来对知识进行描述，可以看做是某一个领域知识的通用模型。本体是从客观世界中抽象出来阅读详情

流水之风

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

nicon 2008-03-30

打赏
举报

不太明白楼主的意思，正常的读取GetSetting和写入SaveSetting会有问题吗？

流水之风 2008-03-30

打赏
举报

十分感谢jennyvenus给的源码，现在已经解决了，原来是我自己的方法不对。

用户　昵称 2008-03-30

打赏
举报

'Example Name:Obtaining the System Processor Information 



'------------------------------------------------------------------------------

'

' Form Code

'

'------------------------------------------------------------------------------

Option Explicit



'Flags for GetSystemInfo

Private Const PROCESSOR_INTEL_386 As Long = 386

Private Const PROCESSOR_INTEL_486 As Long = 486

Private Const PROCESSOR_INTEL_PENTIUM As Long = 586

Private Const PROCESSOR_MIPS_R4000 As Long = 4000

Private Const PROCESSOR_ALPHA_21064 As Long = 21064

Private Const PROCESSOR_PPC_601 As Long = 601

Private Const PROCESSOR_PPC_603 As Long = 603

Private Const PROCESSOR_PPC_604 As Long = 604

Private Const PROCESSOR_PPC_620 As Long = 620

Private Const PROCESSOR_HITACHI_SH3 As Long = 10003    'Windows CE

Private Const PROCESSOR_HITACHI_SH3E As Long = 10004   'Windows CE

Private Const PROCESSOR_HITACHI_SH4 As Long = 10005    'Windows CE

Private Const PROCESSOR_MOTOROLA_821 As Long = 821     'Windows CE

Private Const PROCESSOR_SHx_SH3 As Long = 103          'Windows CE

Private Const PROCESSOR_SHx_SH4 As Long = 104          'Windows CE

Private Const PROCESSOR_STRONGARM As Long = 2577       'Windows CE - 0xA11

Private Const PROCESSOR_ARM720 As Long = 1824          'Windows CE - 0x720

Private Const PROCESSOR_ARM820 As Long = 2080          'Windows CE - 0x820

Private Const PROCESSOR_ARM920 As Long = 2336          'Windows CE - 0x920

Private Const PROCESSOR_ARM_7TDMI As Long = 70001      'Windows CE



Private Const PROCESSOR_ARCHITECTURE_INTEL As Long = 0

Private Const PROCESSOR_ARCHITECTURE_MIPS As Long = 1

Private Const PROCESSOR_ARCHITECTURE_ALPHA As Long = 2

Private Const PROCESSOR_ARCHITECTURE_PPC As Long = 3

Private Const PROCESSOR_ARCHITECTURE_SHX As Long = 4

Private Const PROCESSOR_ARCHITECTURE_ARM As Long = 5

Private Const PROCESSOR_ARCHITECTURE_IA64 As Long = 6

Private Const PROCESSOR_ARCHITECTURE_ALPHA64 As Long = 7

Private Const PROCESSOR_ARCHITECTURE_UNKNOWN   As Long = &HFFFF&



Private Const PROCESSOR_LEVEL_80386 As Long = 3

Private Const PROCESSOR_LEVEL_80486 As Long = 4

Private Const PROCESSOR_LEVEL_PENTIUM As Long = 5

Private Const PROCESSOR_LEVEL_PENTIUMII As Long = 6



Private Const sCPURegKey = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"



Private Const HKEY_LOCAL_MACHINE As Long = &H80000002



Private Type SYSTEM_INFO

   dwOemID As Long

   dwPageSize As Long

   lpMinimumApplicationAddress As Long

   lpMaximumApplicationAddress As Long

   dwActiveProcessorMask As Long

   dwNumberOfProcessors As Long

   dwProcessorType As Long

   dwAllocationGranularity As Long

   wProcessorLevel As Integer

   wProcessorRevision As Integer

End Type



Private Declare Sub GetSystemInfo Lib "kernel32" _

   (lpSystemInfo As SYSTEM_INFO)



Private Declare Function RegCloseKey Lib "advapi32" _

   (ByVal hKey As Long) As Long



Private Declare Function RegOpenKey Lib "advapi32" _

   Alias "RegOpenKeyA" _

  (ByVal hKey As Long, _

   ByVal lpSubKey As String, _

   phkResult As Long) As Long



Private Declare Function RegQueryValueEx Lib "advapi32" _

   Alias "RegQueryValueExA" _

  (ByVal hKey As Long, _

   ByVal lpValueName As String, _

   ByVal lpReserved As Long, _

   lpType As Long, _

   lpData As Any, _

   lpcbData As Long) As Long

   



Private Sub Command1_Click()



   Dim SI As SYSTEM_INFO

   Dim tmp As String

   

   Call GetSystemInfo(SI)

   

   Print "Number Of Processors", SI.dwNumberOfProcessors

   

   Select Case SI.dwProcessorType

      Case PROCESSOR_INTEL_386: tmp = "386"

      Case PROCESSOR_INTEL_486: tmp = "486"

      Case PROCESSOR_INTEL_PENTIUM: tmp = "Pentium"

      Case PROCESSOR_MIPS_R4000: tmp = "MIPS 4000"

      Case PROCESSOR_ALPHA_21064: tmp = "Alpha"

   End Select



   Print "Processor Type", SI.dwProcessorType, tmp



   Select Case SI.wProcessorLevel

      Case PROCESSOR_LEVEL_80386: tmp = "Intel 80386"

      Case PROCESSOR_LEVEL_80486: tmp = "Intel 80486"

      Case PROCESSOR_LEVEL_PENTIUM: tmp = "Intel Pentium"

      Case PROCESSOR_LEVEL_PENTIUMII: tmp = "Intel Pentium Pro, II, III or 4"

   End Select

   

   Print "Processor Level", SI.wProcessorLevel, tmp

   

   Print "Processor Revision", SI.wProcessorRevision, _

         "Model "; HiByte(SI.wProcessorRevision) & _

         ", Stepping " & LoByte(SI.wProcessorRevision)



   Print "CPU Speed", , " " & GetCPUSpeed() & " MHz"



End Sub





Private Function GetCPUSpeed() As Long

   

   Dim hKey As Long

   Dim cpuSpeed As Long

    

  'Open CPU key

   Call RegOpenKey(HKEY_LOCAL_MACHINE, sCPURegKey, hKey)

                    

  'and retrieve the value

   Call RegQueryValueEx(hKey, "~MHz", 0, 0, cpuSpeed, 4)

   Call RegCloseKey(hKey)

    

   GetCPUSpeed = cpuSpeed



End Function





Public Function HiByte(ByVal wParam As Integer) As Byte 

   

  'note: VB4-32 users should declare this function As Integer

   HiByte = (wParam And &HFF00&) \ (&H100)



End Function





Public Function LoByte(ByVal wParam As Integer) As Byte



  'note: VB4-32 users should declare this function As Integer

   LoByte = wParam And &HFF&    



End Function

用户　昵称 2008-03-30

打赏
举报

有没有\不是关键，这些你查一下regopenkey等等就可以了。

如何读取和写入包含斜杠的键名中的数据?

相关推荐