- 帖子
- 1058
- 积分
- 1559
- 技术
- 112
- 捐助
- 0
- 注册时间
- 2010-4-30
|
2楼
发表于 2014-7-5 15:37
| 只看该作者
自己为其创建一个Progid
比如导入注册表
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\QQ.20147578]
@="Windows Script Host Shell Object"
[HKEY_CLASSES_ROOT\QQ.20147578\CLSID]
@="{72C24DD5-D70A-438B-8A42-98424B88AFB8}"
那么我们就可以用ProgID:QQ.20147578来创建WshShell对象
Dim objWshShell
Set objWshShell = CreateObject("QQ.20147578")
Msgbox objWshShell.CurrentDirectory |
|