ssh连接linux支持库修复版带demo，支持多线程响应结果正常

keepking

本人小白，上次弄完curl支持库后，想到试试ssh，本来以为很简单，结果翻遍了论坛，
帖子挺多，但是逐一尝试之后，总是有各种问题，主要问题如下：
1. 连接或者执行命令很慢
2. 没有回显结果
3. 不能静态编译
4. 不能内存加载
5. 回显结果异常（有结果但是结果显示不对，仿佛是上次命令返回的结果）
6. 调试正常，编译后闪退

然后还有一些劝退贴，劝说放弃易语言，用C#，python之类的实现，
我倒还真的因为这，去看了C#和python，也捣鼓出了一些东西，但总体还是不甘心，
所以反复翻论坛的帖子，反复尝试，最终弄了一个还可以的支持库出来了

感谢论坛所有大佬相关的帖子，特别是以下两位大佬：
1. 最新libssh2库 例子
这个我真的是花了好长时间研究，几乎完美，
连接和执行命令很快，支持多线程，回显结果正常，可以静态编译内存加载，libssh2.dll也很新，
唯一的问题就是断开连接的时候，程序闪退，这个我解决不了，然后放弃了，希望大佬之后有时间可以修复
因为这个版本集成了较为完整的新版libssh2.dll，后续说不定可以基于这个做密钥登录和文件上传
2. 最新SSH模块，可直接返回结果
这个也是研究学习了好久，大佬封装了模块，连接和执行命令很快，可以静态编译内存加载，libssh2.dll应该是大佬重新编译过的，
运行没有闪退，异常处理的很好，唯一的问题就是回显结果有点问题，我看帖子下面有人反馈这个问题，但是没有回复，
这个我本来是放弃了的，但是其它的都有问题，兜兜转转又回来了，回显结果异常我觉得还是可以处理的，
基于大佬的模块，我做了回显结果的修复模块，写了一个支持多线程的例子，可以做到连续发送命令显示结果，

这里用了模块反编译工具，如果管理和大佬觉得不妥，可以联系我修改，希望大佬可以尽快修复这个问题


简单说明一下我修复libssh2.ec的地方：

  

子程序名	返回值类型	公开	备 注
SSH2客户Duan_发送命令	文本型
参数名	类 型	参考	可空	数组	备 注
session	整数型
command	文本型				多个命令使用“&&”连接，如：cd ../&&ls
error	整数型

变量名	类 型	静态	数组	备 注
响应结果	文本型
响应结果地址	整数型
响应结果长度	整数型
空白文本	文本型

error ＝ 匿名程序集变量_1.调用函数 (“ssh_channel_exec”, session, 取地址_文本型 (command), 取指针地址_整数型 (响应结果地址), 取指针地址_整数型 (响应结果长度))
如果真 (响应结果长度 ＞ 0)
响应结果 ＝ 到文本 (编码转换 (指针到字节集 (响应结果地址, 响应结果长度), #编码_UTF_8, #编码_GB2312, ))
' 响应结果不对，并不是发送了上一次的命令，而是取返回结果的时候，长度计算错了，
' 结合其他大佬的代码，似乎是这里共用了一段地址空间，取完结果后没有清除上一次的响应结果，导致长度取的最大长度而不是实际长度
' 我的修复方案是： 每次得到返回结果后，将这段内存空间填充空白文本，然后删尾空，这样结果就正常了
空白文本 ＝ 取空白文本 (响应结果长度)
写到内存 (到字节集 (空白文本), 响应结果地址, 响应结果长度)
响应结果 ＝ 删尾空 (响应结果)
' 处理换行问题
响应结果长度 ＝ 取文本长度 (响应结果)
响应结果 ＝ 子文本替换 (取文本左边 (响应结果, 响应结果长度), 字符 (10), 字符 (13) ＋ 字符 (10), , , 真)
返回 (响应结果)

i支持库列表	支持库注释
iconv	编码转换支持库

.版本 2<br /> .支持库 iconv<br /> <br /> .子程序 SSH2客户Duan_发送命令, 文本型, 公开<br /> .参数 session, 整数型<br /> .参数 command, 文本型, , 多个命令使用“&&”连接，如：cd ../&&ls<br /> .参数 error, 整数型, 参考 可空<br /> .局部变量 响应结果, 文本型<br /> .局部变量 响应结果地址, 整数型<br /> .局部变量 响应结果长度, 整数型<br /> .局部变量 空白文本, 文本型<br /> <br /> error ＝ 匿名程序集变量_1.调用函数 (“ssh_channel_exec”, session, 取地址_文本型 (command), 取指针地址_整数型 (响应结果地址), 取指针地址_整数型 (响应结果长度))<br /> .如果真 (响应结果长度 ＞ 0)<br />     响应结果 ＝ 到文本 (编码转换 (指针到字节集 (响应结果地址, 响应结果长度), #编码_UTF_8, #编码_GB2312, ))<br /> .如果真结束<br /> ' 响应结果不对，并不是发送了上一次的命令，而是取返回结果的时候，长度计算错了，<br /> ' 结合其他大佬的代码，似乎是这里共用了一段地址空间，取完结果后没有清除上一次的响应结果，导致长度取的最大长度而不是实际长度<br /> ' 我的修复方案是： 每次得到返回结果后，将这段内存空间填充空白文本，然后删尾空，这样结果就正常了<br /> 空白文本 ＝ 取空白文本 (响应结果长度)<br /> 写到内存 (到字节集 (空白文本), 响应结果地址, 响应结果长度)<br /> 响应结果 ＝ 删尾空 (响应结果)<br /> ' 处理换行问题<br /> 响应结果长度 ＝ 取文本长度 (响应结果)<br /> 响应结果 ＝ 子文本替换 (取文本左边 (响应结果, 响应结果长度), 字符 (10), 字符 (13) ＋ 字符 (10), , , 真)<br /> 返回 (响应结果)

这是我写的ssh连接linux的demo代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
session	整数型
状态	整数型
线程池	鱼刺类_线程池
临界区	鱼刺类_临界许可
连接成功	逻辑型
命令序号	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

线程池.创建 (, , , )
按钮连接.禁止 ＝ 假
按钮断开.禁止 ＝ 真
连接成功 ＝ 假
命令序号 ＝ 1
状态 ＝ SSH2客户Duan_初始化 ()
调试输出 (状态)

子程序名	返回值类型	公开	备 注
_按钮连接_被单击

变量名	类 型	静态	数组	备 注
地址	文本型
端口	文本型
用户	文本型
密码	文本型

地址 ＝ 编辑框主机.内容
端口 ＝ 编辑框端口.内容
用户 ＝ 编辑框用户.内容
密码 ＝ 编辑框密码.内容
session ＝ SSH2客户Duan_连接 (地址, 到整数 (端口), 用户, 密码, , )
如果 (session ＞ 0)
编辑框日志.加入文本 (“***连接服务器成功***” ＋ #换行符 )
' 禁用服务器信息输入
编辑框主机.禁止 ＝ 真
编辑框端口.禁止 ＝ 真
编辑框用户.禁止 ＝ 真
编辑框密码.禁止 ＝ 真
按钮连接.禁止 ＝ 真
按钮断开.禁止 ＝ 假
连接成功 ＝ 真
编辑框日志.加入文本 (“***连接服务器失败***” ＋ #换行符 )
连接成功 ＝ 假
编辑框日志.加入文本 (“*************************” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_按钮断开_被单击

SSH2客户Duan_断开 (session, )
编辑框日志.加入文本 (“*****断开服务器*****” ＋ #换行符 )
编辑框主机.禁止 ＝ 假
编辑框端口.禁止 ＝ 假
编辑框用户.禁止 ＝ 假
编辑框密码.禁止 ＝ 假
按钮连接.禁止 ＝ 假
按钮断开.禁止 ＝ 真

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (连接成功)
SSH2客户Duan_销毁 ()

子程序名	返回值类型	公开	备 注
_按钮发送_被单击

如果真 (连接成功 ＝ 假)
信息框 (“请先连接服务器”, 0, “提示”, )
返回 ()
' 这里用多线程，防止执行命令时间长导致界面卡顿
如果 (线程池.投递任务 (&send, , ) ＝ 假)
调试输出 (“创建任务失败”)
调试输出 (“创建任务成功”)

子程序名	返回值类型	公开	备 注
_按钮发送多条命令_被单击

如果真 (连接成功 ＝ 假)
信息框 (“请先连接服务器”, 0, “提示”, )
返回 ()
' 这里用多线程，防止执行命令时间长导致界面卡顿
如果 (线程池.投递任务 (&sendMulti, , ) ＝ 假)
调试输出 (“创建任务失败”)
调试输出 (“创建任务成功”)

子程序名	返回值类型	公开	备 注
send

变量名	类 型	静态	数组	备 注
执行命令	文本型
响应结果	文本型

执行命令 ＝ 编辑框命令.内容
sendSingle (执行命令)

子程序名	返回值类型	公开	备 注
sendMulti

变量名	类 型	静态	数组	备 注
响应结果	文本型

sendSingle (“uptime”)
sendSingle (“ls”)
sendSingle (“ls -l”)
sendSingle (“pwd”)

子程序名	返回值类型	公开	备 注
sendSingle
参数名	类 型	参考	可空	数组	备 注
执行命令	文本型

变量名	类 型	静态	数组	备 注
响应结果	文本型

临界区.进入 ()
编辑框日志.加入文本 (“序号：” ＋ 到文本 (命令序号) ＋ #换行符 )
编辑框日志.加入文本 (“*执行命令：” ＋ 执行命令 ＋ #换行符 )
响应结果 ＝ SSH2客户Duan_发送命令 (session, 执行命令, )
调试输出 (响应结果)
编辑框日志.加入文本 (“*响应结果：” ＋ #换行符 )
编辑框日志.加入文本 (响应结果)
编辑框日志.加入文本 (“*************************” ＋ #换行符 )
命令序号 ＝ 命令序号 ＋ 1
临界区.退出 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 session, 整数型<br /> .程序集变量 状态, 整数型<br /> .程序集变量 线程池, 鱼刺类_线程池<br /> .程序集变量 临界区, 鱼刺类_临界许可<br /> .程序集变量 连接成功, 逻辑型<br /> .程序集变量 命令序号, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> 线程池.创建 (, , , )<br /> <br /> 按钮连接.禁止 ＝ 假<br /> 按钮断开.禁止 ＝ 真<br /> 连接成功 ＝ 假<br /> 命令序号 ＝ 1<br /> <br /> 状态 ＝ SSH2客户Duan_初始化 ()<br /> 调试输出 (状态)<br /> <br /> <br /> .子程序 _按钮连接_被单击<br /> .局部变量 地址, 文本型<br /> .局部变量 端口, 文本型<br /> .局部变量 用户, 文本型<br /> .局部变量 密码, 文本型<br /> <br /> <br /> 地址 ＝ 编辑框主机.内容<br /> 端口 ＝ 编辑框端口.内容<br /> 用户 ＝ 编辑框用户.内容<br /> 密码 ＝ 编辑框密码.内容<br /> <br /> session ＝ SSH2客户Duan_连接 (地址, 到整数 (端口), 用户, 密码, , )<br /> .如果 (session ＞ 0)<br />     编辑框日志.加入文本 (“***连接服务器成功***” ＋ #换行符)<br />     ' 禁用服务器信息输入<br />     编辑框主机.禁止 ＝ 真<br />     编辑框端口.禁止 ＝ 真<br />     编辑框用户.禁止 ＝ 真<br />     编辑框密码.禁止 ＝ 真<br />     按钮连接.禁止 ＝ 真<br />     按钮断开.禁止 ＝ 假<br />     连接成功 ＝ 真<br /> .否则<br />     编辑框日志.加入文本 (“***连接服务器失败***” ＋ #换行符)<br />     连接成功 ＝ 假<br /> .如果结束<br /> 编辑框日志.加入文本 (“*************************” ＋ #换行符)<br /> <br /> <br /> .子程序 _按钮断开_被单击<br /> <br /> SSH2客户Duan_断开 (session, )<br /> 编辑框日志.加入文本 (“*****断开服务器*****” ＋ #换行符)<br /> 编辑框主机.禁止 ＝ 假<br /> 编辑框端口.禁止 ＝ 假<br /> 编辑框用户.禁止 ＝ 假<br /> 编辑框密码.禁止 ＝ 假<br /> 按钮连接.禁止 ＝ 假<br /> 按钮断开.禁止 ＝ 真<br /> <br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .如果真 (连接成功)<br />     SSH2客户Duan_销毁 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮发送_被单击<br /> <br /> <br /> .如果真 (连接成功 ＝ 假)<br />     信息框 (“请先连接服务器”, 0, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> ' 这里用多线程，防止执行命令时间长导致界面卡顿<br /> .如果 (线程池.投递任务 (&send, , ) ＝ 假)<br />     调试输出 (“创建任务失败”)<br /> .否则<br />     调试输出 (“创建任务成功”)<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮发送多条命令_被单击<br /> <br /> .如果真 (连接成功 ＝ 假)<br />     信息框 (“请先连接服务器”, 0, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> ' 这里用多线程，防止执行命令时间长导致界面卡顿<br /> .如果 (线程池.投递任务 (&sendMulti, , ) ＝ 假)<br />     调试输出 (“创建任务失败”)<br /> .否则<br />     调试输出 (“创建任务成功”)<br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 send<br /> .局部变量 执行命令, 文本型<br /> .局部变量 响应结果, 文本型<br /> <br /> 执行命令 ＝ 编辑框命令.内容<br /> sendSingle (执行命令)<br /> <br /> <br /> <br /> <br /> .子程序 sendMulti<br /> .局部变量 响应结果, 文本型<br /> <br /> sendSingle (“uptime”)<br /> sendSingle (“ls”)<br /> sendSingle (“ls -l”)<br /> sendSingle (“pwd”)<br /> <br /> <br /> .子程序 sendSingle<br /> .参数 执行命令, 文本型<br /> .局部变量 响应结果, 文本型<br /> <br /> 临界区.进入 ()<br /> 编辑框日志.加入文本 (“序号：” ＋ 到文本 (命令序号) ＋ #换行符)<br /> 编辑框日志.加入文本 (“*执行命令：” ＋ 执行命令 ＋ #换行符)<br /> 响应结果 ＝ SSH2客户Duan_发送命令 (session, 执行命令, )<br /> 调试输出 (响应结果)<br /> 编辑框日志.加入文本 (“*响应结果：” ＋ #换行符)<br /> 编辑框日志.加入文本 (响应结果)<br /> 编辑框日志.加入文本 (“*************************” ＋ #换行符)<br /> 命令序号 ＝ 命令序号 ＋ 1<br /> 临界区.退出 ()

有相关问题，请联系我，大家共同学习进步~

最后附上我修复的模块和程序源码（包含依赖模块）
ssh连接linux支持多线程静态编译内存加载回显命令结果正常.zip (243.37 KB, 下载次数: 427)

2023-1-18 17:40 上传

点击文件名下载附件

hz15071

感谢分享，很给力！~

aurora123

6666666666666666666666666666666666666

aurora123

太感谢了 正好用得上

qwqaqw

感谢分享    感谢分享

a1540

66666666666666666666666666666

kyo9766

学习一下 ssh连接linux，感谢分享

cheng732119477

没得返回上一层目录  cd无效

ruyi

有一个bug  不能进sudo -i   root权限

ruyi

牛逼呀sasdfasdf