modload.bas

来自「使用vb寫出完美網頁遊戲外掛的原始碼分享」· BAS 代码 · 共 28 行

Attribute VB_Name = "ModLoad"
Option Explicit
Option Compare Text
#If Win16 Then
        Private Declare Function WritePrivateProfileString Lib "Kernel" (ByVal AppName As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String) As Integer
        Private Declare Function GetPrivateProfileString Lib "Kernel" Alias "GetPrivateProfilestring" (ByVal AppName As String, ByVal KeyName As Any, ByVal Default As String, ByVal ReturnedString As String, ByVal MAXSIZE As Integer, ByVal FileName As String) As Integer
#Else
        Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
        Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long
#End If


Public Sub wini(Head As String, key As String, Default As String, File As String)
WritePrivateProfileString Head, key, Default, App.Path & "\" & File & ".ini"
End Sub

Public Function rini(Head As String, key As String, Default As String, File As String) As String
On Error GoTo z:
    Dim sRet As String
    sRet = String(255, Chr(0))
    rini = Left(sRet, GetPrivateProfileString(Head, ByVal key, Default, sRet, 255, App.Path & "\" & File & ".ini"))
    If LenB(rini) = 0 Or Left$(rini, 6) = "Error " Then rini = Default
    Exit Function
    
z:
    rini = Default
End Function