classtest.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public f_cardno As String, f_name As String, g_text As String, g_bz As String
'Public Declare Function hsquery Lib "hsquery.dll" (ByVal send As String, ByVal rcv As String) As Long
Public Function setsendstr() As String
   Dim psend  As String * 512
   Dim prcv As String * 512
   Dim retu As Long
   
   
   psend = "SSSSSF01    " & "42501068500     " & "0001" & Space$(32) & g_bz & g_text & Space$(415) & "ZZZZ"
   retu = hsquery(psend, prcv)
   setsendstr = prcv
   
End Function
Public Function getvaild(ByVal p_rcv As String) As Boolean
Dim r_xiaoxilx As String, r_xiaoxifh As String, r_yljgdm As String, r_zzdm As String
Dim r_fstime As String, r_jstime As String, r_xiaoxi As String, r_error As String
Dim r_system As String

Dim cardbz As String, cardno As String, name As String, zhbz As String, dnzhye As String
Dim lnzhye As String, mzzflj As String, zyqflj As String, mzzfde As String
Dim zyqf As String, tczffd As String
Dim zhbz_zt As String, zhbz_bj As String, zhbz_gwy As String, zhbz_ts As String
Dim zhbz_fc As String, zhbz_system As String
 
'读取返回信息
r_xiaoxilx = Trim(Mid$(p_rcv, 5, 4))
r_xiaoxifh = Trim(Mid$(p_rcv, 9, 4))
r_yljgdm = Trim(Mid$(p_rcv, 13, 16))
r_zzdm = Trim(Mid$(p_rcv, 29, 4))
r_fstime = Trim(Mid$(p_rcv, 33, 16))
r_jstime = Trim(Mid$(p_rcv, 49, 16))
r_xiaoxi = Mid$(p_rcv, 65, 324)
r_error = Trim(Mid$(p_rcv, 389, 60))
r_system = Trim(Mid$(p_rcv, 449, 60))

If Trim(r_xiaoxilx) = "RF01" Then
   If Trim(r_xiaoxifh) = "P001" Then
      '成功
      '读取消息体,并转换成可用信息
       cardbz = Trim(Mid$(r_xiaoxi, 1, 1))
       cardno = Trim(Mid$(r_xiaoxi, 2, 10))
       name = Mid$(r_xiaoxi, 12, 32)
       name = Trim(Left$(name, 6))
       
       zhbz = Mid$(r_xiaoxi, 44 - Len(name), 16)
       dnzhye = Trim(Mid$(r_xiaoxi, 60 - Len(name), 10))
       lnzhye = Trim(Mid$(r_xiaoxi, 70 - Len(name), 10))
       mzzflj = Trim(Mid$(r_xiaoxi, 80 - Len(name), 10))
       zyqflj = Trim(Mid$(r_xiaoxi, 90 - Len(name), 10))
       mzzfde = Trim(Mid$(r_xiaoxi, 100 - Len(name), 10))
       zyqf = Trim(Mid$(r_xiaoxi, 110 - Len(name), 10))
       tczffd = Trim(Mid$(r_xiaoxi, 120 - Len(name), 10))
              
       f_cardno = cardno                 '卡号
       
       f_name = name                     '姓名
        
       getvaild = True                         '正确返回
   
   Else
       getvaild = False                         '错误返回
   End If

Else
   getvaild = False                             '错误返回
  
End If
End Function