-
-
测量机器人无需开通接口操作代码
-
发表于: 2024-6-3 22:08 1856
-
1、代码很烂,估计现在没人用VB来做嵌入式的开发了,当初这个是基于Wince做的,代码是次要的,当年是通过IDA逆向了某商业软件获得无需开通接口即可操作的指令,了解朋友的自然懂。当年一个接口大约好几万元。
2、人到中年了,当初这个是自己非常自豪的事,为了写成这个硬件自己花了一个月工资呀,多普达手机。
3、后面的几个版本因为自己加密的原因,找不回来了。从07年左右断断续续直到12年,我的青春呀。
代码:
Try
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Dim mBaudRate As Integer '波特率 Dim mParity As IO.Ports.Parity '数据检查 Dim mDataBit As Integer '数据长度 Dim mStopbit As IO.Ports.StopBits '停止位数 Dim mPortName As String '串口名称 mPortName = cmbCOM.SelectedItem.ToString '欲开启的通讯端口 mBaudRate = 9600 '通讯速度即波特率 mParity = Parity. None '同位位检查设定 mDataBit = 8 '资料位设定值 mStopbit = StopBits.One '停止位设定值 ' RS232.WriteBufferSize = 2048 ' 设定缓冲区大小 '建立一个通讯端口对象 RS232 = New IO.Ports.SerialPort(mPortName, mBaudRate, mParity, mDataBit, mStopbit) RS232.Encoding = Encoding.ASCII '设定编码方式为 Unicode ,以便能显示中文 If RS232.IsOpen = False Then '尚未开启 RS232. Open () '开启通讯端口 ' btnSend.Enabled = True ' 致能传送按钮 'Timer1.Interval = 300 ' Timer1.Enabled = True |
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!
最后于 2024-6-3 22:14
被zzcc编辑
,原因:
赞赏
他的文章
- 测量机器人无需开通接口操作代码 1857
- [讨论]商城商品“手机遥控树莓派小车” 2218
- [求助]小学生学习编程python还是scratch 4744
- [分享]S4分析复制相关资料 3056
- [求助] Sentinel HL如何模拟 3523
看原图
赞赏
雪币:
留言: