定义子程序和函数的问题！！急

来源：百度知道 编辑：UC知道 时间：2024/05/25 00:03:27
代码如下：

Private Sub Command1_Click() '去掉警告信息
Dim hkey As Long
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows NT\CurrentVersion\Winlogon", hkey
RegDeleteValue hkey, "legalnoticecaption"
RegDeleteValue hkey, "LegalNoticeText"
MsgBox "已完成设置，请重新启动计算机!", , "提示信息"
End Sub

Private Sub Command2_Click() '添加警告信息
Dim hkey As Long
RegOpenKeyEx HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows NT\CurrentVersion", 0, 0, hkey
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows NT\CurrentVersion\Winlogon", hkey
Dim a As Byte
a = &O1
RegSetValueEx hkey, "legalnoticecaption", 0, REG_SZ, ByVal Text1.Text, 255
RegSetValueEx hkey, "LegalNoticeText", 0, REG_SZ, ByVal Text2.Text, 255
MsgBox "已完成设置，请重新启动计算机!", , "提

该函数是API函数，将下面代码保存为Reg.Bas就可以正常使用了。

'养成好习惯代表所有变量都需要先定义后使用
Option Explicit

'根键常数
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006

'键值类型

Public Const REG_NONE = 0
Public Const REG_SZ = 1 '字符串值
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3 '二进制值
Public Const REG_DWORD = 4 'DWORD 值
Public Const REG_DWORD_BIG_ENDIAN = 5
Public Const REG_MULTI_SZ = 7

'----声明有关注册表API函数 --Start----

'建立一个新的主键
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
( _
B