wxz11
级别: 略有小成
精华主题: 0
发帖数量: 305 个
工控威望: 338 点
下载积分: 1245 分
在线时间: 384(小时)
注册时间: 2006-10-01
最后登录: 2020-11-29
查看wxz11的 主题 / 回贴
楼主  发表于: 2010-08-27 02:04
Dim i, ii
Dim server As Object
Dim SS As String

Dim a
Const REG_SZ = 1
Const HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0&
Const SYNCHRONIZE = &H100000
Const STANDARD_RIGHTS_READ = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))