?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -