[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS如何获取注册表值,并赋值变量。

如上图,路径为:
HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache
现在知道数值数据:“飞鸽传书”
怎么才能把此程序的绝对路径(D:\Program Files (x86)\APP\IPMSG.exe)提取出来, 并赋值给一个变量方便之后操作?
求解

后来又用regread实现了判断WIN7还是XP
现在已经实现:通过程序描述来启动程序
规避了不同电脑XX程序安装路 ...
q121212 发表于 2015-4-27 11:06



能否    给出你的具体代码?谢谢了。。

TOP

后来又用regread实现了判断WIN7还是XP
现在已经实现:通过程序描述来启动程序
规避了不同电脑XX程序安装路径不同导致无法启动的问题
大爱脚本 真心解放双手

TOP

多谢 ~已经用上了   
VBS刚起步 求带飞哈

TOP

您想要实现什么样的反应啊?化学反应?物理反应?
我会告诉您vbs实现不了化学反应的么?

TOP

看不懂啊  能注释一下不
还有点这个运行之后好像没有反应

TOP

  1. const HKCU = &h80000001
  2. const REG_SZ = 1
  3. strPath = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache"
  4. Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\Default:StdRegProv")
  5. WMI.EnumValues HKCU, strPath, arrName, arrType
  6. For i = 0 to UBound(arrType)
  7.         If arrType(i) = REG_SZ Then
  8.                 WMI.GetStringValue HKCU, strPath, arrName(i), strValue
  9.                 If strValue = "飞鸽传书" Then strName = arrName(i) : Exit For
  10.         End If
  11. Next
复制代码

TOP

返回列表