biosid.bas

来自「思微POS连锁超市管理系统 (商业代码),几年前的东西了」· BAS 代码 · 共 32 行

Attribute VB_Name = "BiosId"
Option Explicit

Private Declare Function GetBiosIdA Lib "BiosId.Dll" Alias "GetBiosId" (ByVal S As String) As Long
Private Declare Function GetBiosTypeA Lib "BiosId.Dll" Alias "GetBiosType" (ByVal S As String) As Long
Private Declare Function GetBiosDateA Lib "BiosId.Dll" Alias "GetBiosDate" (ByVal S As String) As Long

Public Function GetBiosId() As String
    Dim C256 As String * 256
    Dim S As String
    GetBiosIdA C256
    S = Left(C256, InStr(C256, Chr(0)) - 1)
    GetBiosId = S
End Function

Public Function GetBiosType() As String
    Dim C256 As String * 256
    Dim S As String
    GetBiosTypeA C256
    S = Left(C256, InStr(C256, Chr(0)) - 1)
    GetBiosType = S
End Function

Public Function GetBiosDate() As String
    Dim C256 As String * 256
    Dim S As String
    GetBiosDateA C256
    S = Left(C256, InStr(C256, Chr(0)) - 1)
    GetBiosDate = S
End Function