测量机器人无需开通接口操作代码-茶余饭后-看雪-安全社区|安全招聘|kanxue.com

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

发表于: 2024-6-3 22:08 1904

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

zzcc

2024-6-3 22:08

1904

1、代码很烂，估计现在没人用VB来做嵌入式的开发了，当初这个是基于Wince做的，代码是次要的，当年是通过IDA逆向了某商业软件获得无需开通接口即可操作的指令，了解朋友的自然懂。当年一个接口大约好几万元。
2、人到中年了，当初这个是自己非常自豪的事，为了写成这个硬件自己花了一个月工资呀，多普达手机。
3、后面的几个版本因为自己加密的原因，找不回来了。从07年左右断断续续直到12年，我的青春呀。

代码：
Try

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