common.bas

此为用vb编写的usb高速数据采集实例 如果没有相应的驱动

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

Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long    '终止进程
Declare Function GetCurrentProcess Lib "kernel32" () As Long            '获得当前进程句柄

Public 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
Public Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Public Type POINTAPI
        x As Long
        y As Long
End Type
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const WM_VSCROLL = &H115
Public Const SB_RIGHT = 7

' 如果用户想在子线程中直接调用Microsoft Win32 API或我公司的驱动程序接口，请使用VB5.0版本
Function ShowDataThread() As Long
  Dim i, t As Long
       i = 0
       Do While 1
           i = i + 1
           i = Beep(3000, 1)
       Loop
       ShowDataThread = 1
End Function