module6.bas

这个是锁屏器(鼠标锁)可以设置启动计算机时启动..达到保护计算机安全

Attribute VB_Name = "Regrun"
Option Explicit

Public Const REG_SZ As Long = 1

Public Const HKEY_LOCAL_MACHINE = &H80000002

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 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