UC知道vb访问注册表的REG值
来源：百度知道 编辑：UC知道 时间：2024/06/07 11:00:50
我想读取 QQ本机的安装目录
因为只是为了读取值 所以没有写API
可以运行出错了 不知道是哪个函数没写对
确定的值：
Private Sub Command1_Click()
Dim path
Set WshShell = CreateObject("WScript.shell")
Key = "HKLM\SOFTWARE\Tencent\PLATFORM_TYPE_LIST\1\（TypePath ）‘以前TypePath 写在这里 现在去掉了"
path = WshShell.regread(Key, TypePath & "Registeredpath")// 这里提示出错
If path = "" Then
path = wsShell.regread("HKCR\QQ\shell\open\command\")
path = Mid(path, 2, InStrRev(path, ".") + 2)
End If
Set Short = CreateObject("Scripting.filesystemObject")
Set F = Short.getfile(path)
path = F.ShortPath
QQUin = Text1.Text
QQPwdHash = Text2.Text
QQPwdHash = BASE64(MD5(QQPwdHash)) & "=="
msShow.run (path & " /START QQUIN:" & QQUin & " PWDHASH:" & QQPwdHash & " /STAT:40")
End Sub
因为只是读取路径 所以不想用到API 因为对A
因为只是为了读取值 所以没有写API
可以运行出错了 不知道是哪个函数没写对
确定的值：
Private Sub Command1_Click()
Dim path
Set WshShell = CreateObject("WScript.shell")
Key = "HKLM\SOFTWARE\Tencent\PLATFORM_TYPE_LIST\1\（TypePath ）‘以前TypePath 写在这里 现在去掉了"
path = WshShell.regread(Key, TypePath & "Registeredpath")// 这里提示出错
If path = "" Then
path = wsShell.regread("HKCR\QQ\shell\open\command\")
path = Mid(path, 2, InStrRev(path, ".") + 2)
End If
Set Short = CreateObject("Scripting.filesystemObject")
Set F = Short.getfile(path)
path = F.ShortPath
QQUin = Text1.Text
QQPwdHash = Text2.Text
QQPwdHash = BASE64(MD5(QQPwdHash)) & "=="
msShow.run (path & " /START QQUIN:" & QQUin & " PWDHASH:" & QQPwdHash & " /STAT:40")
End Sub
因为只是读取路径 所以不想用到API 因为对A
反正你会调用GetString这个函数就可以了 API的声明你不用管它
还有 你 msgbox path & " /START QQUIN:" & QQUin & " PWDHASH:" & QQPwdHash & " /STAT:40") 这段数据 看看 是否符合这样的格式
"Q.exe" /START QQUIN:xxxxx PWDHASH:xxxxx== /STAT:40
建议直接用shell
或者加 -------Q 发源码你
691479813
====================================
我从来是直接给出通用函数的
适合就拿去用吧
或者你可以去参考一下我之前写的一个QQ登录工具源码
http://hi.baidu.com/kgbbs/blog/item/94520e3d6f902403baa16782.html
'==================================================
'注册表操作声明
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVa