module5.bas

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

Attribute VB_Name = "Res1"
Option Explicit

'***********************内存压缩API***********************

Declare Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long

Declare Function GetCurrentProcess Lib "kernel32" () As Long

'***********************内存压缩API***********************

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

 Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean '释放资源
  
  Dim bytImage() As Byte
  
  Dim iFileNum As Integer
  
  On Error GoTo savefilefromres_err

  SaveFileFromRes = True
  
  bytImage = LoadResData(vntResourceID, sType)
  
  iFileNum = FreeFile
  
  Open sFileName For Binary As iFileNum
    
    Put #iFileNum, , bytImage
    
    Close iFileNum

  Exit Function

savefilefromres_err:
       
  SaveFileFromRes = False: Exit Function
  
End Function

Function MyGetSystemDirectory() As String  '获取Windows系统路径

  Dim sSave As String, Ret As Long
 
  sSave = Space(255)    '建立一个缓冲区

  Ret = GetSystemDirectory(sSave, 255)   'Api函数获取系统路径存入sSave,Ret返回路径长度
    
  MyGetSystemDirectory = Left$(sSave, Ret) '清除路径中所有多余的Chr(0)字符
   
  'MsgBox "Windows System directory: " + sSave  '调试用输出信息框
  
End Function