用VB实现“一点即填”.docVIP

用VB实现“一点即填”.txtゅ你不用一上线看见莪在线，就急着隐身，放心。莪不会去缠你。说好的不离不弃 现在反而自己却做不到╮ ■ 用VB实现“一点即填” ————————————————以下为程序代码————————————— 声明必要的API函数及常量 Declare Function RegSaveKey Lib advapi32.dll Alias RegSaveKeyA ByVal hKey As Long, ByVal lpFile As String, ByVal lpSecurityAttributes As Long As Long Declare Function RegSetValue Lib advapi32.dll Alias RegSetValueA ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long As Long Declare Function RegCloseKey Lib advapi32.dll ByVal hKey As Long As Long Declare Function RegCreateKey Lib advapi32.dll Alias RegCreateKeyA ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long As Long Declare Function RegDeleteKey Lib advapi32.dll Alias RegDeleteKeyA ByVal hKey As Long, ByVal lpSubKey As String As Long Declare Function RegDeleteValue Lib advapi32.dll Alias RegDeleteValueA ByVal hKey As Long, ByVal lpValueName As String As Long Declare Function RegOpenKey Lib advapi32.dll Alias RegOpenKeyA ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long As Long Declare Function RegSetValueEx Lib advapi32.dll Alias RegSetValueExA ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long As Long Declare Function RegOpenKeyEx Lib advapi32.dll Alias RegOpenKeyExA ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long As Long Public Const HKEY_CLASSES_ROOT H座机电话号码 Public Const HKEY_CURRENT_USER H座机电话号码 Public Const HKEY_LOCAL_MACHINE H座机电话号码 Public Const HKEY_USERS H座机电话号码 Public Const ERROR_NO_MORE_ITEMS 259 Public Const HKEY_CURRENT_CONFIG H座机电话号码 Enum ValueType REG_NONE 0 REG_SZ 1 REG_EXPAND_SZ 2 REG_BINARY 3 REG_DWORD 4 REG_DWORD_BIG_ENDIAN 5 REG_MULTI_SZ 7 End Enum Global Const KEY_ALL_ACCESS H3F Dim lngtype As Long Dim rtn As Long, lBuffer As Long, sbuffer As String Dim lBufferSize As Long 新建主键的过程 Public Sub