cmos.bas

来自「VB source code & COMS clear code」· BAS 代码 · 共 18 行

Attribute VB_Name = "Module1"
Option Explicit
Public Const CONFBYTE = &H11
Public Const PASSLOW = &H1C
Public Const PASSHI = &H1D
Public Const USERPASSLOW = &H4D
Public Const USERPASSHI = &H4E
Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer


Public Function GetCmosContent(ByVal nData As Integer) As Integer
vbOut &H70, nData
GetCmosContent = vbInp(&H71)
End Function