smscontrol 控件发送信息，偶尔重复发送，求各位老大救命啊，vb中

2010-04-08 08:10:15 189 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

openEuler 20.03 LTS面向RK3399移植系列（3）—openEuler 20.03 LTS面向Firefly RK3399的第一个版本（Linux kernel 4.4）任务动机：完成openEuler面向RK3399开发板的移植。任务描述：按照固件烧写准备，固件获取，固件打包和烧写的步骤实现openEuler面向RK3399开发板的移植，整理过程和相关命令记录到文档。 1. 制作openEuler的rootfs.img 1.1 开发环境树莓派--openEuler系统 openEuler 20.03 LTS 的内测版本镜像，下载。 1.2 具体操作 1.2.1 ssh远程连接树莓派确定树莓派IP ssh连接 1.2.2 制作rootfs.img 阅读详情

smscontrol 控件发送信息，偶尔重复发送，本来这个问题不大，但是我经过二次开发，改成了空中充值的软件，就是发送信息，充值话费，这个问题就严重了，重复发送等于重复充值啊。
发送事件代码如下：
Private Sub Smscontrol1_OnSndMsg()
Dim sndid As Long 'send out index
sndid = Smscontrol1.GetIndexOfLastSnd()

Do
If sndmsg(sndstart).sndid = sndid Then
'从数组中删除该条，表示该条已经成功发送到GSM网络
sndmsg(sndstart).sndid = -1
sndstart = sndstart + 1
If sndstart = 10000 Then
sndstart = 0
End If
Exit Do

End If

If sndstart = sndend Then '已经搜索完了数组
Exit Do
End If

Loop

...全文