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

2009-09-26 09:40:10 281 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别再只做SOLT了！手把手教你为R&S ZNA/ZNB矢量网络分析仪创建自定义TRL校准套件本文详细介绍了如何为R&S ZNA/ZNB矢量网络分析仪创建自定义TRL校准套件，突破传统SOLT校准的局限性。通过TRL校准方法，工程师能够将校准参考面精确延伸到夹具末端，显著提升PCB夹具测试场景的测量精度。文章涵盖校准件设计规范、仪器配置实操、参数测量计算及验证方案，为射频测量提供专业指导。阅读详情

我开发读写器程序，用的是明华的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

等待中。。。。。。

...全文

AI自动化逆向3Dmigoto游戏Mod：从原理到实战的完整方案在游戏开发与图形渲染领域，着色器（Shader）是控制3D物体外观的核心程序，它定义了顶点变换、光照计算和像素着色的数学规则。通过拦截和修改DirectX API调用，开发者能够实时改变游戏渲染流程，实现自定义视觉效果，这一技术广泛应用于游戏Mod制作和图形调试。3Dmigoto框架正是基于此原理，成为《原神》、《崩坏：星穹铁道》等热门游戏Mod开发的关键工具。传统逆向分析需要深入理解HLSL语言和图形管线，过程繁琐且门槛高。如今，借助AI大模型在代码理解和逻辑推理方面的突破，我们可以构建自动化流程，将Mo 阅读详情

rodrigo81

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

xzz1008 2009-09-27

打赏
举报

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

rodrigo81 2009-09-27

打赏
举报

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

aazzcncom 2009-09-26

打赏
举报

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

rodrigo81 2009-09-26

打赏
举报

这是我完整的代码我的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

rodrigo81 2009-09-26

打赏
举报

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

xzz1008 2009-09-26

打赏
举报

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

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

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

相关推荐