| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1570 人关注过本帖
标题:明华读卡器 M1卡谁用VB做过二次开发
只看楼主 加入收藏
slw6044632
Rank: 1
来 自:中国安徽
等 级:新手上路
帖 子:9
专家分:0
注 册:2009-10-18
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:4 
明华读卡器 M1卡谁用VB做过二次开发
rf_changeb3(ByVal icdev, sector, akey(0), &H4, &H4, &H4, &H4, 0, bkey(0))     '修改块3的密码和控制位

有点疑问,请大家指教!
有源码的可以发到我邮箱:954228738@,谢谢!
搜索更多相关主题的帖子: 开发 读卡器 明华 
2010-09-29 11:20
slw6044632
Rank: 1
来 自:中国安徽
等 级:新手上路
帖 子:9
专家分:0
注 册:2009-10-18
收藏
得分:0 
'Modify the keys and some control bits
'Keep the following paramerters and keys same as the default
akey(0) = &HA0
akey(1) = &HA1
akey(2) = &HA2
akey(3) = &HA3
akey(4) = &HA4
akey(5) = &HA5

bkey(0) = &HB0
bkey(1) = &HB1
bkey(2) = &HB2
bkey(3) = &HB3
bkey(4) = &HB4
bkey(5) = &HB5

st = rf_changeb3(ByVal icdev, 2, akey(0), 0, 0, 0, 1, 0, bkey(0))  '修改3号块数据
If st <> 0 Then
    M1_label.Caption = "Call rf_changeb3() error.exit!"
    Exit Sub
End If
怎么把整个Byte数组写进去!
2010-09-30 08:51
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:10 
rf_changeb3 的声明呢?
还有,不是已经把地址传过去了吗?
 
2010-09-30 16:07
slw6044632
Rank: 1
来 自:中国安徽
等 级:新手上路
帖 子:9
专家分:0
注 册:2009-10-18
收藏
得分:0 
回复 2楼 slw6044632
Declare Function rf_changeb3 Lib "mwrf32.dll" (ByVal Adr As Long, ByVal secer As Integer, ByRef KeyA As Byte, ByVal B0 As Integer, ByVal B1 As Integer, ByVal B2 As Integer, ByVal B3 As Integer, ByVal Bk As Integer, ByRef KeyB As Byte) As Integer
这是声明,但是写入有问题,你做过这方面的吗?
2010-10-05 11:41
slw6044632
Rank: 1
来 自:中国安徽
等 级:新手上路
帖 子:9
专家分:0
注 册:2009-10-18
收藏
得分:0 
问题解决,谢谢
2010-10-06 11:18
快速回复:明华读卡器 M1卡谁用VB做过二次开发
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017497 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved