wxz11
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 305 個(gè)
工控威望: 338 點(diǎn)
下載積分: 1245 分
在線時(shí)間: 384(小時(shí))
注冊(cè)時(shí)間: 2006-10-01
最后登錄: 2020-11-29
查看wxz11的 主題 / 回貼
樓主  發(fā)表于: 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))
zgjsyzgyzg
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看zgjsyzgyzg的 主題 / 回貼
1樓  發(fā)表于: 2010-09-03 18:13
這是定義了幾個(gè)常量~