急救！新手 vb开发读写器设备 rf_load_key报错！！

[rodrigo81]

我开发读写器程序，用的是明华的RF-35
我的代码如下：
Option Explicit
Dim akey(6) As Long
Dim bkey(6) As Long
Dim cardmode As Integer
Global loadmode As Integer

Private Sub Command1_Click()

loadmode = 0


If icdev < 0 Then
icdev = rf_init(0, 115200)
End If
If icdev < 0 Then
Label1.Caption = "Call rf_init() error.Exit!"
Exit Sub
End If

akey(0) = &HFF
akey(1) = &HFF
akey(2) = &HFF
akey(3) = &HFF
akey(4) = &HFF
akey(5) = &HFF

For sector = 0 To 15

st = rf_load_key(ByVal icdev, loadmode, sector, akey(0)) // 这里的akey（0）应该这样写吗？

If st <> 0 Then
Label1.Caption = "Call rf_load_key() error.Exit!" //报错

Exit Sub
End If
Next

等待中。。。。。。

[qingye2008]

你确实是那个地方报错吗?

Label1.Caption = "Call rf_load_key() error.Exit!" //报错
这句话也会报错.....

[rodrigo81]

不是的
是页面输出了 Call rf_load_key() error.Exit!

[rodrigo81]

这是我完整的代码 我的QQ254858759

Private Sub Command1_Click()

Dim Snr As Long
Dim databuff16 As String * 16
loadmode = 0
Dim akey(6) As Byte
Dim bkey(6) As Byte


icdev = rf_init(0, 115200) '初始化 0为串口号，115200为波特率

akey(0) = &HFF
akey(1) = &HFF
akey(2) = &HFF
akey(3) = &HFF
akey(4) = &HFF
akey(5) = &HFF

For sector = 0 To 15
st = rf_load_key(ByVal icdev, loadmode, sector, akey(0))
Next

st = rf_card(ByVal icdev, 0, Snr) '寻卡

Do While st <> 0 '循环判断是否有卡的存在
st = rf_card(ByVal icdev, 0, Snr) '0表示寻卡模式 snr返回卡的序列号 icdev为设备标识符

att = rf_authentication(ByVal icdev, loadmode, 0)

If st = 0 Then
st = rf_read_hex(ByVal icdev, 1, databuff16) 'icdev为设备标识符 address为M1卡——块地址（0～63）databuff32为读出的数据
Parent.script.cardPassword.value = st '将读到的卡值
Exit Sub
End If
Exit Do '跳出循环

Loop


End Sub

[aazzcncom]

福娃免费空间"并连接地址"http://h.8wa.com"即可,然后将发表文章或贴子的地址 复制到下面 进行检测.注意:必须在5个不同的站.
福娃免费空间"并连接地址"http://h.8wa.com"即可,然后将发表文章或贴子的地址 复制到下面 进行检测.注意:必须在5个不同的站.
福娃免费空间"并连接地址"http://h.8wa.com"即可,然后将发表文章或贴子的地址 复制到下面 进行检测.注意:必须在5个不同的站.

[rodrigo81]

问题自己已经解决 谢谢大家 是icdev要先设初始值

[qingye2008]

单步跟踪.
rf_load_key函数原型呢?