VB部分：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 RegSetValue 说明 设置指定项或子项的默认值 返回值 Long，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码