物聯傳媒 旗下網站
登錄 注冊
廣州網源科技有限公司
Guangzhou Wangyuan Technology Co.,Ltd

IC讀寫器(USB2.0)

品牌：RUK

型號：RUK200

規格：12cm×10cm×3cm

發布時間:2007-07-14

電話：020-39797930

地址：廣州中山大道中280號

詳細介紹

產品詳情：

產品簡介

RUK-200針對目前市面IC讀寫器產品二次開發復雜，函數功能較少，價格較高的情況．推出的一款新產品，采用真正的USB2.0通訊,USB供電,可主動讀取卡號到記事本等文檔中,也可以二次開發,真正的USB讀寫器.
RUK-200讀寫器的電路板、單片機程序、USB接口驅動程序、函數動態庫全部自主開發，把復雜的IC卡認證讀寫過程集成-—轉化為更簡單的函數調用操作，即使是從未接觸過一卡通開發的軟件開發人員，寫起程序來也毫無困難，一般的記數、扣費操作，只需一個讀卡、一個寫卡、一個蜂鳴器響聲的函數，就可以輕松完成對卡的操作

技術參數
1． USB2.0接口,非USB虛擬串口,通訊穩定快速。
2． 電腦USB接口提供穩定的電源VDC+5V，無需外接電源，并內置電源保護。
3． 獨立自主的底層程序，可控性強，讀寫更可靠。
4． 強大的功能，全面的程序接口，可實現更多的需求。提供VC、 VB、DELPHI、C++BUILDER等開發DEMO
5． 兩個LED指示燈和一個蜂鳴器，可自編程控制。
6． 支持Mifare標準，頻率：13.56MHz，感應距離為50mm-100mm。
7． 功耗<0.2W、低功耗造就低故障率。
8． 自主的USB驅動程序，簡單快捷的函數庫，無需了解底層協議，減少了產品開發時間。
9． 外形小巧，新潮流暢，(尺寸:長×寬×高）12cm×10cm×3cm。
10． 內置天線
11．可主動輸出物理卡號到記事本等， 或定制輸出特定扇區的數據
12．執行一次改16區密碼只需不到180毫秒的時間 （DEMO 中提供一次性改寫16個區密碼功能）




例子程序--VB開發環境

'讀卡函數聲明
Private Declare Function piccreadex Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByVal serial As Long, ByVal area As Byte, ByVal keyA1B0 As Byte, ByVal picckey As Long, ByVal piccdata0_2 As Long) As Byte

'寫卡函數聲明
Private Declare Function piccwriteex Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByVal serial As Long, ByVal area As Byte, ByVal keyA1B0 As Byte, ByVal picckey As Long, ByVal piccdata0_2 As Long) As Byte

'修改單區函數聲明
Private Declare Function piccchangesinglekey 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 Declare Function pcdbeep Lib "OUR_MIFARE.dll" (ByVal xms As Long) As Byte

'讀取設備編號函數聲明
Private Declare Function pcdgetdevicenumber Lib "OUR_MIFARE.dll" (ByVal devicenumber As Long) As Byte

'控制字定義,控制字指定,控制字的含義請查看本公司網站提供的動態庫說明
Private Const BLOCK0_EN = &H1
Private Const BLOCK1_EN = &H2
Private Const BLOCK2_EN = &H4
Private Const NEEDSERIAL = &H8
Private Const EXTERNKEY = &H10
Private Const NEEDHALT = &H20


Private Sub Command1_Click()
'輕松讀卡
'技術支持:
'網站:
Dim status As Byte '存放返回值

Dim myareano As Byte '區號
Dim authmode As Byte '密碼類型，用A密碼或B密碼
Dim myctrlword As Byte '控制字
Dim mypicckey(0 To 5) As Byte '密碼
Dim mypiccserial(0 To 3) As Byte '卡序列號
Dim mypiccdata(0 To 47) As Byte '卡數據緩沖



'控制字指定,控制字的含義請查看本公司網站提供的動態庫說明
myctrlword = BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY

'指定區號
myareano = 8 '指定為第8區
'批定密碼模式
authmode = 1 '大于0表示用A密碼認證，推薦用A密碼認證

'指定密碼
mypicckey(0) = &HFF
mypicckey(1) = &HFF
mypicckey(2) = &HFF
mypicckey(3) = &HFF
mypicckey(4) = &HFF
mypicckey(5) = &HFF

status = piccreadex(myctrlword, VarPtr(mypiccserial(0)), myareano, authmode, VarPtr(mypicckey(0)), VarPtr(mypiccdata(0)))
'在下面設定斷點，然后查看mypiccserial、mypiccdata，
'調用完 piccreadex函數可讀出卡序列號到 mypiccserial，讀出卡數據到mypiccdata，
'開發人員根據自己的需要處理mypiccserial、mypiccdata 中的數據了。
'處理返回函數
Select Case status

Case 0:

MsgBox "操作成功"

Case 8:

MsgBox "請將卡放在感應區"

Case 21 '沒有動態庫
MsgBox "找不到動態庫WY-ICUSB.DLL請將WY-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

Private Sub Command2_Click()
'輕松寫卡
'技術支持:
'網站:
Dim i As Integer

Dim status As Byte '存放返回值
Dim myareano As Byte '區號
Dim authmode As Byte '密碼類型，用A密碼或B密碼
Dim myctrlword As Byte '控制字
Dim mypicckey(0 To 5) As Byte '密碼
Dim mypiccserial(0 To 3) As Byte '卡序列號
Dim mypiccdata(0 To 47) As Byte '卡數據緩沖










'控制字指定,控制字的含義請查看本公司網站提供的動態庫說明
myctrlword = BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY

'指定區號
myareano = 8 '指定為第8區
'批定密碼模式
authmode = 1 '大于0表示用A密碼認證，推薦用A密碼認證

'指定密碼
mypicckey(0) = &HFF
mypicckey(1) = &HFF
mypicckey(2) = &HFF
mypicckey(3) = &HFF
mypicckey(4) = &HFF
mypicckey(5) = &HFF

'指定卡數據
For i = 0 To 47
mypiccdata(i) = i
Next i

status = piccwriteex(myctrlword, VarPtr(mypiccserial(0)), myareano, authmode, VarPtr(mypicckey(0)), VarPtr(mypiccdata(0)))
'在下面設定斷點，然后查看mypiccserial、mypiccdata，
'調用完 piccreadex函數可讀出卡序列號到 mypiccserial，讀出卡數據到mypiccdata，
'開發人員根據自己的需要處理mypiccserial、mypiccdata 中的數據了。
'處理返回函數
Select Case status

Case 0:

MsgBox "操作成功"

Case 8:

MsgBox "請將卡放在感應區"

Case 21 '沒有動態庫
MsgBox "找不到動態庫WY-ICUSB.DLL請將WY-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

Private Sub Command3_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 5) As Byte '新密碼







'控制字指定,控制字的含義請查看本公司網站提供的動態庫說明
myctrlword = BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY

'指定區號
myareano = 8 '指定為第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
mypiccnewkey(1) = &HFF
mypiccnewkey(2) = &HFF
mypiccnewkey(3) = &HFF
mypiccnewkey(4) = &HFF
mypiccnewkey(5) = &HFF

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

'處理返回函數
Select Case status

Case 0:

MsgBox "操作成功"

Case 8:

MsgBox "請將卡放在感應區"

Case 21 '沒有動態庫
MsgBox "找不到動態庫WY-ICUSB.DLL請將WY-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

Private Sub Command4_Click()
'讓設備發出聲音
'技術支持:
'網站:
pcdbeep 50
End Sub

Private Sub Command5_Click()
'讀取設備編號，可做為軟件加密狗用,也可以根據此編號在公司網站上查詢保修期限

'技術支持:
'網站:

Dim devno(0 To 3) As Byte '設備編號

status = pcdgetdevicenumber(VarPtr(devno(0)))

If pcdgetdevicenumber(VarPtr(devno(0))) = 0 Then
MsgBox CStr(devno(0)) + "-" + CStr(devno(1)) + "-" + CStr(devno(2)) + "-" + CStr(devno(3))
End If




'返回解釋
'#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


更多開發語言請下載二次開發包

適用場所

消費系統發卡機.充值機 考勤系統發卡 一卡通系統等,會員系統,等RFID應用終端

客戶留言
廣州網源科技有限公司

電話：020-39797930

地址：廣州中山大道中280號