mini.bas

一个可以做假的电脑抽奖程序,保证号码不重复,可以设预定号码.号码随机产生.

Attribute VB_Name = "mINI"
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
'  引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.daima.com.cn
'程序太平洋：http://www.5ivb.net
'Email:[e-mail]
'CopyRight 2001-2005 By WangFeng
'整理时间：2005-3-7 5:44:15

'================================================
' Module:        mINI.bas
' Author:        RegX
' Dependencies:  -
' Last revision: 2003.11.02
'================================================

Option Explicit
Option Compare Text

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPriviteProfileIntA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
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

'//

Public Function AppPath() As String
    AppPath = App.Path & IIf(Right$(App.Path, 1) = "\", vbNullString, "\")
End Function

Public Sub PutINI(INIFile As String, INIHead As String, INIKey As String, INIVal As String)
   On Error GoTo AA
    Dim INIFileName As String
    Dim sRet        As String
    Dim N As Long
    N = Len(INIVal)
    INIVal = IIf(N < 40000, INIVal, Right$(INIVal, 30000))

    INIFileName = AppPath & INIFile
    sRet = WritePrivateProfileString(INIHead, INIKey, INIVal, INIFileName)
        Exit Sub
AA:    MsgBox "PutINI"

End Sub

Public Function GetINI(INIFile As String, INIHead As String, INIKey As String, INIDefault As String) As String
   On Error GoTo AA
    Dim INIFileName As String
    Dim Temp        As String * 41000
    Dim sRet        As String

    Temp = Space$(45000)
    INIFileName = AppPath & INIFile
    sRet = GetPrivateProfileString(INIHead, INIKey, INIDefault, Temp, Len(Temp), INIFileName)
    GetINI = Trim$(Temp)
    GetINI = Left$(GetINI, Len(GetINI) - 1)
    Exit Function
AA:    MsgBox "GetINI"
End Function