awardmodsup.bas

来自「awd bios文件的修改工具」· BAS 代码 · 共 73 行

Attribute VB_Name = "AwardModSup"
'AwardMod BIOS Manipulation Tool
'Copyright (C) 2001 Josef Hill
'
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.
'
'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
Private Declare Function pSum8 Lib "AwardModSupport.dll" Alias "sum8_calcsum" (ByVal iData As String, ByRef iLen As Long) As Byte

Private Declare Sub pSetFile Lib "AwardModSupport.dll" Alias "file_setinput" (ByVal iFile As String, ByRef iLength As Long)
Private Declare Sub pGetFile Lib "AwardModSupport.dll" Alias "file_getoutput" (ByVal iFile As String, ByRef iLength As Long)
Private Declare Sub pSetData Lib "AwardModSupport.dll" Alias "file_set" (ByVal iData As String, ByRef iLength As Long, ByRef iOffset As Long)
Private Declare Sub pGetData Lib "AwardModSupport.dll" Alias "file_get" (ByVal iData As String, ByRef iLength As Long, ByRef iOffset As Long)

Public Function Sum8(iStr As String) As Byte
Dim lL As Long
Dim lS As String
    lS = iStr
    lL = Len(lS)
    Sum8 = pSum8(lS, lL)
End Function

Public Sub SetFile(iFile As String)
Dim lL As Long
Dim lS As String
    lS = iFile
    lL = Len(lS)
    pSetFile lS, lL
End Sub

Public Function GetFile() As String
Dim lL As Long
Dim lS As String
    lS = ""
    lL = 0
    pGetFile lS, lL
    lS = Space(lL)
    pGetFile lS, lL
    GetFile = lS
End Function

Public Sub SetData(iData As String, iOffset As Long)
Dim lL As Long
Dim lO As Long
Dim lS As String
    lS = iData
    lL = Len(lS)
    lO = iOffset
    pSetData lS, lL, lO
End Sub

Public Function GetData(iOffset As Long, iLen As Long) As String
Dim lL As Long
Dim lO As Long
Dim lS As String
    lL = iLen
    lS = Space(lL)
    lO = iOffset
    pGetData lS, lL, lO
    GetData = lS
End Function