apang

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

apang

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