首页
社区
课程
招聘
测量机器人无需开通接口操作代码
发表于: 2024-6-3 22:08 1856

测量机器人无需开通接口操作代码

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编辑 ,原因:
上传的附件:
收藏
免费 0
支持
分享
最新回复 (0)
游客
登录 | 注册 方可回帖
返回
//