USB有驱IC卡读写器IC-01 (Windows函数接口)

        IC-01型IC卡读写器是广州荣士电子有限公司全新开发的 真正USB接口（而不是U口转串口）的ISO 14443-A协议的IC卡读写器。此款读写器保留了以往机型的优点，性能更稳定、速度更快、功耗更小，使用了更稳定的电脑USB电源，故障率更低。由于读写器的电路板、单片机程序、USB接口驱动程序及函数全部由公司自主开发，所以我们能够把复杂的IC卡认证读写器过程集成转化为更简单的函数调用操作，即使是从未接触过一卡通开发的软件开发人员，写起程序来也毫不困难，一点都不浪费开发时间。一般的计数、扣费操作，只需一个读卡、一个写卡、一个蜂鸣器响声的函数，就能轻松搞定。。 

资料下载： https://share.weiyun.com/KJzaeWZV

产品特点： 

1. 01、专用USB设备接口,只需一条USB线连上电脑；
2. 02、公司自主研发生产,性价比高,自主知识产权；
3. 03、性能稳定,故障率极低,并可根据用户需求提供OEM产品；
4. 04、提供DLL动态库、ACTIVEX控件，可用于WEB网页开发；
5. 05、支持NFC标签信息写入，可写文本、智能海报等NDEF格式信息；
6. 06、支持Windows系统，提供Java、JavaScript、Python、C#、VB.NET、DELPHI、VB6、VC、VFP、Qt、C++Builder、PowerBuilder、易语言 等示例源码，代码可以直接拷贝使用；
7. 07、多款不同外观机型可供选择，满足各种不同的使用场所。

设备型号：IC-01E 

外观尺寸：123×98×26 mm

设备型号：IC-01D 

外观尺寸：110×82×26 mm

设备型号：IC-01B 

外观尺寸：105×69×12 mm

关于piccchangesinglekeyex函数的调用，下面展示一段VB6.0的例子代码，方便客户了解：

函数声明：
Private Declare Function piccchangesinglekeyex Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByVal serial As Long, ByVal area As Byte, ByVal keyA1B0 As Byte, ByVal piccoldkey As Long, ByVal piccnewkey As Long) As Byte

用法：
Private Sub Command6_Click()
Dim i As Integer
Dim status As Byte '存放返回值
Dim myareano As Byte '区号
Dim authmode As Byte '密码类型，用A密码或B密码
Dim myctrlword As Byte '控制字
Dim mypiccserial(0 To 3) As Byte '卡序列号
Dim mypiccoldkey(0 To 5) As Byte '旧密码
Dim mypiccnewkey(0 To 16) As Byte '新密码

'控制字指定,控制字的含义请查看本公司网站提供的动态库说明
myctrlword = BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY

'指定区号
myareano = 10 '指定为第8区
'批定密码模式
authmode = 1 '大于0表示用A密码认证，推荐用A密码认证

'指定旧密码
mypiccoldkey(0) = &HFF
mypiccoldkey(1) = &HFF
mypiccoldkey(2) = &HFF
mypiccoldkey(3) = &HFF
mypiccoldkey(4) = &HFF
mypiccoldkey(5) = &HFF

'指定新密码,注意：指定新密码时一定要记住，否则有可能找不回密码，导致该卡报废。
mypiccnewkey(0) = &HFF  'A密码
mypiccnewkey(1) = &HFF
mypiccnewkey(2) = &HFF
mypiccnewkey(3) = &HFF
mypiccnewkey(4) = &HFF
mypiccnewkey(5) = &HFF

mypiccnewkey(6) = &HFF  '控制字
mypiccnewkey(7) = &H7
mypiccnewkey(8) = &H80
mypiccnewkey(9) = &H69

mypiccnewkey(10) = &HFF  'B密码
mypiccnewkey(11) = &HFF
mypiccnewkey(12) = &HFF
mypiccnewkey(13) = &HFF
mypiccnewkey(14) = &HFF
mypiccnewkey(15) = &HFF

mypiccnewkey(16) = &H3  '3是表示同时更改A、B、 密码权限访问字，为2表示密码权限访问字不更改，只改A、B密码，为0表示只改A密码

status = piccchangesinglekeyex(myctrlword, VarPtr(mypiccserial(0)), myareano, authmode, VarPtr(mypiccoldkey(0)), VarPtr(mypiccnewkey(0)))

'处理返回函数
Select Case status

    Case 0:
    
        MsgBox "操作成功"
        
    Case 8:
    
        MsgBox "请将卡放在感应区"
        
    Case 21 '没有动态库
        MsgBox "找不到动态库ICUSB.DLL请将ICUSB.DLL拷贝到VB安装后的目录VB98下"
    
    Case Else
        MsgBox "异常"

End Select

'返回值解释
'#define ERR_REQUEST 8'寻卡错误
'#define ERR_READSERIAL 9'读序列吗错误
'#define ERR_SELECTCARD 10'选卡错误
'#define ERR_LOADKEY 11'装载密码错误
'#define ERR_AUTHKEY 12'密码认证错误
'#define ERR_READ 13'读卡错误
'#define ERR_WRITE 14'写卡错误
'#define ERR_NONEDLL 21'没有动态库
'#define ERR_DRIVERORDLL 22'动态库或驱动程序异常
'#define ERR_DRIVERNULL 23'驱动程序错误或尚未安装
'#define ERR_TIMEOUT 24'操作超时，一般是动态库没有反映
'#define ERR_TXSIZE 25'发送字数不够
'#define ERR_TXCRC 26'发送的CRC错
'#define ERR_RXSIZE 27'接收的字数不够
'#define ERR_RXCRC 28'接收的CRC错
End Sub