main_api.bas

社保卡信息读取 使用读卡器对社保卡信息读取,联通公司使用的代码,对硬件控制学习有所帮助吧

Attribute VB_Name = "main_Api"
'在窗口最前面
Public Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
''''---------------------------------------------------------------------------------------------------------------------
Public PortOpened As Boolean
Public fd As Long        '端口返回句丙
Public AK As Integer    '选择按钮的 INDEX
Public Settime As Integer '等待秒数
Public Data_A(0 To 256) As String '读取的数据
Public Count_No As Long
Public biaoqian(0 To 20) As Byte
Public Score_Data
Public rel

'
'database_biaoqian
 
 Public MFS_D(0 To 20) As String
'----------------------------------------------------------