common.bas

来自「控制卡IO控制程序。买板的时候送的例程。有用到的快下」· BAS 代码 · 共 27 行

Attribute VB_Name = "Common_Module"
Public Const INVALID_HANDLE_VALUE = -1
Public Const INFINITE = &HFFFFFFFF            ' Infinite timeout
 
' 微软公司WIN32 API接口
Declare Function GetLastError Lib "kernel32" () As Long
Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long
Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hEvent As Long, ByVal dwMilliseconds As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
Declare Function SetEvent Lib "kernel32" (ByVal hEvent As Long) As Long
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsperCluster As Long, lpBytespersector As Long, lpNumberofFreeClusters As Long, lpTotalNumberofClusters As Long) As Long