VB用RegQueryValueEx去带有中文的键值，长度都有了，怎么取不出数据啊？

jessylake

[Visual Basic] 纯文本查看 复制代码

Private Sub Command3_Click()
Dim hKey As Long
Dim ret As Long
Dim lenData As Long
Dim typeData As Long
ret = RegOpenKey(HKEY_CURRENT_USER, "Software\VB and VBA Program Settings\QQ接收者", hKey)
If ret = 0 Then MsgBox "找到！" Else MsgBox "没找到！": Exit Sub            '得到0 ，说明得到
'先取数据区的长度
ret = RegQueryValueEx(hKey, "receivers", ByVal 0, typeData, ByVal vbNullString, lenData)
'准备数据区
Dim buff() As Byte
ReDim buff(lenData - 1)
'读取数据
ret = RegQueryValueEx(hKey, "receivers", ByVal 0, typeData, ByVal buff(0), lenData)
Dim val As String
'去掉末尾的空字符,VB不需要这个
ReDim Preserve buff(lenData - 2)
'转化为VB中的字符串
val = StrConv(buff, vbUnicode)
MsgBox val
RegCloseKey (hKey)
End Sub

jessylake

自己找到原因了，把 ByVal buff(0) 里面的ByVal 删掉就可以了

ckypamym119

怎么现在还有人用VB

jessylake

ckypamym119 发表于 2022-11-20 21:12
怎么现在还有人用VB

看来我老了