module3.bas

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

Attribute VB_Name = "RwIni"
Option Explicit

'在初始化文件指定小节内设置一个字串
   
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
                                                         
'为初始化文件中指定的条目取得字串,读Ini
      
Public Pass As String
   
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Public Sub WriteIni1(Ini As Long)
  
  Dim x As Long
  
  Dim lpappname As String
  
  Dim lpString As String
  
  Dim lpString1 As String
  
  Dim lpKeyName As String
  
  Dim lpKeyName1 As String
  
  Dim lpApplicationName As String
  
  Dim lpFileName As String
  
  Select Case Ini
                 
    Case 1
     
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "Pass"
     
     lpKeyName = "Word"
     
     lpString = Pass '将修改的密码写ini
         
    Case 2
           
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "lock"
     
     lpKeyName = "true"          '写锁定标记
     
     lpString = 1
     
    Case 3
           
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "lock"
     
     lpKeyName = "true"         '写解锁标记
     
     lpString = 0
             
    Case 4
           
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "start"
     
     lpKeyName = "true"         '写自动启动标记
     
     lpString = 1
            
    Case 5
           
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "start"
     
     lpKeyName = "true"         '写自动启动标记
     
     lpString = 0
     
  End Select
  
  x = WritePrivateProfileString(lpappname, lpKeyName, lpString, lpFileName)

End Sub

Public Function ReadIni1(Ini As Long) As String
  
  Dim lpApplicationName As String
  
  Dim lpReturnedString As String * 50
  
  Dim nSize As Long
  
  Dim lpKeyName As String
  
  Dim lpDefault As String
  
  Dim lpFileName As String
  
  Dim x As Long
  
  nSize = Len(lpReturnedString) + 1
  
  Select Case Ini
       
     Case 1
      
      lpFileName = MyGetSystemDirectory + "\Lock.ini"
      lpApplicationName = "Pass"  '读记录密码
      lpKeyName = "Word"
            
     Case 2
     
      lpFileName = MyGetSystemDirectory + "\Lock.ini"
      lpApplicationName = "lock"
      lpKeyName = "true"   '读取锁定标记
      
     Case 3
     
      lpFileName = MyGetSystemDirectory + "\Lock.ini"
      lpApplicationName = "start"
      lpKeyName = "true"   '读取锁定标记
        
  End Select
    
  x = GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, lpReturnedString, nSize, lpFileName)
                
  ReadIni1 = lpReturnedString '返回读取内容,含空格符
           
End Function