USB接口IC读写器oem软件_AB密码完整解决方案/读写卡测试程序及源代码/网页例程

car_reader

于 2011-06-17 11:52:00 发布

阅读量2k

点赞数

分类专栏：读卡器IT 源代码文章标签：测试 button microsoft vbscript input generator

本文链接：https://blog.csdn.net/car_reader/article/details/6550997

版权

这篇博客提供了一个使用VBS（Visual Basic Script）实现USB IC卡读卡器和写卡器的示例代码，包括读取、写入卡片数据以及错误处理。代码中详细解释了不同控制字、区域号、密码模式等参数的设置，并展示了错误处理的多种情况。

摘要由CSDN通过智能技术生成

代码如下

<html>
<head>
    <meta http-equiv="Content-Language" content="zh-cn">
    <meta name="GENERATOR" content="Microsoft FrontPage 6.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>USB IC 卡读卡器控件调用例程 V1.0 -- 广州荣士电子</title>

dim myctrlword
dim mypiccserial
dim myareano
dim authmode
dim mypicckey
dim piccdata0_2

dim retval

dim strls
dim errorno
strls = "adsgdss"

Sub readcard_onclick
'指定控制字
myctrlword=BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY
'指定区号
myareano = 8 '指定为第8区
'批定密码模式
authmode = 1 '大于0表示用A密码认证，推荐用A密码认证

'指定序列号，未知卡序列号时可指定为8个0
mypiccserial="00000000"

'指定密码，以下密码为厂家出厂密码
mypicckey = "ffffffffffff"

strls=IcCardReader.piccreadex(myctrlword, mypiccserial,myareano,authmode,mypicckey)
errorno = mid(strls,1,4)
select case errorno
  case "ER08"
   msgbox "寻不到卡"
  case "ER09"
   msgbox "寻不到卡"
  case "ER10"
   msgbox "寻不到卡"
  case "ER11"
   CardIDShower.value = "密码认证错误" & Chr(13) & Chr(10)
   CardIDS