HP-SOCKET官方例程里那个Ab子程序是啥作用啊

laily

  

子程序名	返回值类型	公开	备 注
Ab	整数型		取字节集指针
参数名	类 型	参考	可空	数组	备 注
变量	字节集

置入代码 ({ 139, 69, 8, 139, 0, 131, 192, 8, 139, 229, 93, 194, 4, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 Ab, 整数型, , 取字节集指针<br /> .参数 变量, 字节集, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 131, 192, 8, 139, 229, 93, 194, 4, 0 })<br /> 返回 (0)

置入那代码有什么具体用的。

  

子程序名	返回值类型	公开	备 注
_Receive	整数型		通用处理数据
参数名	类 型	参考	可空	数组	备 注
pData	整数型
iLength	整数型

变量名	类 型	静态	数组	备 注
size	整数型
len	整数型
ilen2	整数型
buff	整数型

' 要实现发送文件之类的操作，需要规定双方的通信协议
' 就是要实现统一的协议，比如：
' pData = 当前数据长度+当前数据
' 当前数据=命令+参数
' 这样可以组成一个简单的协议
' 用整数来实现命令可以容纳FFFFFFFF种命令，且只占据4个固定字节，这样就比较好实现统一的解析
' 如果用文本来实现命令，则第一长度不固定会给解析带来一定的效率影响，所以我一般是用整数来充当命令
' 或者可以用json，xml等标准格式来实现协议。如JSON: {"fun":"sendfile","filename":"1.exe"},就可以通过fun来确定执行的代码
' 在常量里定义命令，请查看常量数据表
buff ＝ pData
ilen2 ＝ iLength
m_Data ＝ m_Data ＋ 指针到字节集 (buff, ilen2)
size ＝ 取字节集长度 (m_Data)
如果真 (size ＜ 8)  ' 如果长度小于8，则不是标准的协议，直接放弃
返回 ( #HR_OK )
len ＝ _Hanle_Data (Ab (m_Data), size)
判断 (len ＝ 0)
m_Data ＝ {  }
m_Data ＝ 取字节集右边 (m_Data, len)
返回 ( #HR_OK )

.版本 2<br /> <br /> .子程序 _Receive, 整数型, , 通用处理数据<br /> .参数 pData, 整数型<br /> .参数 iLength, 整数型<br /> .局部变量 size, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 ilen2, 整数型<br /> .局部变量 buff, 整数型<br /> <br /> ' 要实现发送文件之类的操作，需要规定双方的通信协议<br /> ' 就是要实现统一的协议，比如：<br /> ' pData = 当前数据长度+当前数据<br /> ' 当前数据=命令+参数<br /> ' 这样可以组成一个简单的协议<br /> ' 用整数来实现命令可以容纳FFFFFFFF种命令，且只占据4个固定字节，这样就比较好实现统一的解析<br /> ' 如果用文本来实现命令，则第一长度不固定会给解析带来一定的效率影响，所以我一般是用整数来充当命令<br /> ' 或者可以用json，xml等标准格式来实现协议。如JSON: {"fun":"sendfile","filename":"1.exe"},就可以通过fun来确定执行的代码<br /> ' 在常量里定义命令，请查看常量数据表<br /> buff ＝ pData<br /> ilen2 ＝ iLength<br /> m_Data ＝ m_Data ＋ 指针到字节集 (buff, ilen2)<br /> size ＝ 取字节集长度 (m_Data)<br /> .如果真 (size ＜ 8)  ' 如果长度小于8，则不是标准的协议，直接放弃<br />     返回 (#HR_OK)<br /> .如果真结束<br /> len ＝ _Hanle_Data (Ab (m_Data), size)<br /> .判断开始 (len ＝ 0)<br />     m_Data ＝ {  }<br /> .默认<br />     m_Data ＝ 取字节集右边 (m_Data, len)<br /> .判断结束<br /> 返回 (#HR_OK)

  

子程序名	返回值类型	公开	备 注
_Hanle_Data	整数型		返回剩余长度
参数名	类 型	参考	可空	数组	备 注
data	整数型
size	整数型

变量名	类 型	静态	数组	备 注
pBuffer	字节集
buffsize	整数型			数组长度
len	整数型			数据长度
api	整数型			命令
inlen	整数型

判断循环首 (真)  ' 考虑到粘包问题，所以一直循环去解析数据，直到解不出来未知
' 叠加数据
如果真 (size － inlen ＜ 8)  ' 如果长度小于8，则不是标准的协议，跳出循环，去掉数据
跳出循环 ()
len ＝ _HP_GetDword (data ＋ inlen ＋ #数据长度 )  ' 前四个字节为数据长度，加上上一次的长度
如果真 (len ＋ 4 ＞ size － inlen)  ' 如果数据长度大小剩余长度，则数据不完整，跳出循环，去掉数据
跳出循环 ()
api ＝ _HP_GetDword (data ＋ inlen ＋ #命令 )  ' 第5到8字节为命令
buffsize ＝ len － #命令
如果真 (buffsize ＞ 0)  ' 判断还有没有数据
pBuffer ＝ 指针到字节集 (data ＋ inlen ＋ #数据, len － #命令 )  ' 取出数据

inlen ＝ inlen ＋ len ＋ 4  ' 移动游标
m_Api ＝ api
判断 (api ＝ #发送文件 )  ' 发送文件命令
m_FileName ＝ 到文本 (pBuffer)
_Log (“接收事件”, “收到文件请求，文件名: ” ＋ m_FileName)
CloseHandle (CreateThread (0, 0, &_Thread_API, #发送文件, 0, 0))

判断 (api ＝ #开始发送 )  ' 开发发送
_Log (“接收事件”, “开发发送，文件名: ” ＋ m_FileName)
CloseHandle (CreateThread (0, 0, &_Thread_API, #开始发送, 0, 0))
判断 (api ＝ #开始接收 )  ' 开始接收
m_filesize ＝ 取字节集数据 (pBuffer, #整数型, )
m_type ＝ 取字节集数据 (pBuffer, #整数型, 5)
_Log (“保存文件”, “开始接收: ” ＋ m_SaveFile ＋ “ 长度: ” ＋ 到文本 (m_filesize) ＋ “ 模式: ” ＋ 选择 (m_type ＝ #文件分包模式, “数据包模式”, “数据流”))
m_hFile ＝ 打开文件 (m_SaveFile, #重写, #禁止读写 )
如果真 (m_hFile ＝ 0)
fun_SendData (到整数 (Edit_ConnID.内容), #停止发送 )
_Log (“保存文件”, “打开文件失败: ” ＋ m_SaveFile)

判断 (api ＝ #接收文件 )  ' 接收文件
' _Log (“接收事件”, “写到文件长度3: ” ＋ 到文本 (到整数 (len － #命令)))
如果真 (m_hFile ＝ 0)
fun_SendData (到整数 (Edit_ConnID.内容), #停止发送 )
返回 ( #HR_OK )

m_filesize ＝ m_filesize ��� (len － #命令 )
写出字节集 (m_hFile, pBuffer)
判断 (api ＝ #接收完成 )  ' 接收完成
_Log (“接收事件”, “保存文件,接收完成: ” ＋ m_SaveFile)
如果真 (m_hFile ≠ 0)
关闭文件 (m_hFile)
m_hFile ＝ 0

判断 (api ＝ #停止发送 )  ' 停止发送
判断 (api ＝ #消息 )  ' 消息
_Log (“接收事件”, “收到消息: ” ＋ 到文本 (pBuffer))




判断循环尾 ()
返回 (size － inlen)

.版本 2<br /> <br /> .子程序 _Hanle_Data, 整数型, , 返回剩余长度<br /> .参数 data, 整数型<br /> .参数 size, 整数型<br /> .局部变量 pBuffer, 字节集<br /> .局部变量 buffsize, 整数型, , , 数组长度<br /> .局部变量 len, 整数型, , , 数据长度<br /> .局部变量 api, 整数型, , , 命令<br /> .局部变量 inlen, 整数型<br /> <br /> .判断循环首 (真)  ' 考虑到粘包问题，所以一直循环去解析数据，直到解不出来未知<br />     ' 叠加数据<br />     .如果真 (size － inlen ＜ 8)  ' 如果长度小于8，则不是标准的协议，跳出循环，去掉数据<br />         跳出循环 ()<br />     .如果真结束<br />     len ＝ _HP_GetDword (data ＋ inlen ＋ #数据长度)  ' 前四个字节为数据长度，加上上一次的长度<br /> <br />     .如果真 (len ＋ 4 ＞ size － inlen)  ' 如果数据长度大小剩余长度，则数据不完整，跳出循环，去掉数据<br />         跳出循环 ()<br />     .如果真结束<br />     api ＝ _HP_GetDword (data ＋ inlen ＋ #命令)  ' 第5到8字节为命令<br />     buffsize ＝ len － #命令<br /> <br />     .如果真 (buffsize ＞ 0)  ' 判断还有没有数据<br />         pBuffer ＝ 指针到字节集 (data ＋ inlen ＋ #数据, len － #命令)  ' 取出数据<br />     .如果真结束<br /> <br />     inlen ＝ inlen ＋ len ＋ 4  ' 移动游标<br /> <br />     m_Api ＝ api<br />     .判断开始 (api ＝ #发送文件)  ' 发送文件命令<br />         m_FileName ＝ 到文本 (pBuffer)<br />         _Log (“接收事件”, “收到文件请求，文件名: ” ＋ m_FileName)<br />         CloseHandle (CreateThread (0, 0, &_Thread_API, #发送文件, 0, 0))<br /> <br />     .判断 (api ＝ #开始发送)  ' 开发发送<br />         _Log (“接收事件”, “开发发送，文件名: ” ＋ m_FileName)<br />         CloseHandle (CreateThread (0, 0, &_Thread_API, #开始发送, 0, 0))<br /> <br />     .判断 (api ＝ #开始接收)  ' 开始接收<br />         m_filesize ＝ 取字节集数据 (pBuffer, #整数型, )<br />         m_type ＝ 取字节集数据 (pBuffer, #整数型, 5)<br />         _Log (“保存文件”, “开始接收: ” ＋ m_SaveFile ＋ “ 长度: ” ＋ 到文本 (m_filesize) ＋ “ 模式: ” ＋ 选择 (m_type ＝ #文件分包模式, “数据包模式”, “数据流”))<br />         m_hFile ＝ 打开文件 (m_SaveFile, #重写, #禁止读写)<br />         .如果真 (m_hFile ＝ 0)<br />             fun_SendData (到整数 (Edit_ConnID.内容), #停止发送)<br />             _Log (“保存文件”, “打开文件失败: ” ＋ m_SaveFile)<br />         .如果真结束<br /> <br />     .判断 (api ＝ #接收文件)  ' 接收文件<br />         ' _Log (“接收事件”, “写到文件长度3: ” ＋ 到文本 (到整数 (len － #命令)))<br />         .如果真 (m_hFile ＝ 0)<br />             fun_SendData (到整数 (Edit_ConnID.内容), #停止发送)<br />             返回 (#HR_OK)<br />         .如果真结束<br /> <br />         m_filesize ＝ m_filesize － (len － #命令)<br /> <br /> <br />         写出字节集 (m_hFile, pBuffer)<br /> <br />     .判断 (api ＝ #接收完成)  ' 接收完成<br />         _Log (“接收事件”, “保存文件,接收完成: ” ＋ m_SaveFile)<br />         .如果真 (m_hFile ≠ 0)<br />             关闭文件 (m_hFile)<br />             m_hFile ＝ 0<br />         .如果真结束<br /> <br />     .判断 (api ＝ #停止发送)  ' 停止发送<br /> <br /> <br />     .判断 (api ＝ #消息)  ' 消息<br />         _Log (“接收事件”, “收到消息: ” ＋ 到文本 (pBuffer))<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> <br /> <br /> .判断循环尾 ()<br /> 返回 (size － inlen)

Killing

[2019开源大赛(第四届)] 汇编代码的写法
https://bbs.125.la/forum.php?mod=viewthread&tid=14499496

Patek

备注那里都写了啊：“取字节集指针”
取变量的内存指针地址。

laily

Patek 发表于 2020-9-13 14:42
备注那里都写了啊：“取字节集指针”
取变量的内存指针地址。

干嘛要用那什么置入的，有什么命令可以代替的没？实在不懂

Patek

laily 发表于 2020-9-13 16:33
干嘛要用那什么置入的，有什么命令可以代替的没？实在不懂

置入是直接执行机器码，速度更快。