module1.bas

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

Attribute VB_Name = "co"
Public Declare Function ISO_ReadSingleBlock Lib "roscli.dll" (ByVal gyj As Byte, ByRef zpy As Byte, ByVal BlockN As Byte, ByRef buf_s As Byte) As Long

'Public Declare Function vsio_open Lib "vsio.dll" (ByVal number As String, ByVal zt As String, ByVal attr As String) As Long
'
Public Declare Function vsio_close Lib "vsio.dll" (ByVal Handel As Long) As Long

Public Declare Function OpenPort Lib "roscli.dll" (ByVal number As String, ByVal attr As String) As Long

Public Declare Function hex2str Lib "zuti.dll" (ByRef hexdata As Byte, ByRef buf_A As Byte, ByVal retb As Byte) As Long


'WINDOWS API
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)