我都快崩溃了,不知道是问题出在哪里!!
- .版本 2
- ' 创建进程 = 创建进程 (0, cmd名称, 0, 0, -1, 0, 0, 系统目录, 启动信息, 进程信息)
- .否则
- 创建进程 = 创建进程 (0, cmd名称, 0, 0, -1, 0, 0, 运行目录, 启动信息, 进程信息)
复制代码
只要有这两句命令,就提示
错误(10044): 不能将“进程信息”数据转换到“进程信息”数据。
- .版本 2
- .支持库 EThread
- .程序集 控制台
- .程序集变量 加入文本, 文本型
- .程序集变量 连接, 逻辑型
- .程序集变量 ipiton, 文本型
- .程序集变量 进程信息, 进程信息
- .程序集变量 管道a, 整数型
- .程序集变量 管道b, 整数型
- .程序集变量 安全属性b, 安全属性
- .程序集变量 安全属性a, 安全属性
- .程序集变量 启动信息, 启动信息
- .程序集变量 编辑框, 编辑框
- .程序集变量 a输出管道, 整数型
- .程序集变量 a输入管道, 整数型
- .程序集变量 b输出管道, 整数型
- .程序集变量 b输入管道, 整数型
- .程序集变量 进入许可, 整数型
- .子程序 _启动子程序, 整数型
- 连接 = 假
- _临时子程序 ()
- 返回 (0)
- .子程序 _临时子程序
- .子程序 控制台_连接, 整数型, 公开
- .参数 cmd名称, 文本型, 可空
- .参数 运行目录, 文本型, 可空
- .局部变量 shell, 文本型
- .局部变量 系统目录, 文本型
- .局部变量 创建进程, 整数型
- .局部变量 实际尺寸, 整数型
- .局部变量 cmd, 文本型
- .如果真 (取操作系统类别 () ≠ 3)
- 输出调试文本 (“error:控制台连接失败:可能原因只对windows系统有效”)
- 返回 (0)
- .如果真结束
- .如果真 (连接)
- 输出调试文本 (“error:CMD控制台已经上线,请不要重复上线,谢谢!”)
- 返回 (进程信息.进程ID)
- .如果真结束
- 安全属性a.长度 = 12
- 安全属性a.权限 = 0
- 安全属性a.句柄 = -1
- 管道a = 创建匿名管道 (a输出管道, a输入管道, 安全属性a, 0)
- .如果真 (管道a = 0)
- 输出调试文本 (“Error:创建匿名管道失败,原因:可能因为程序的权限不足,请以管理员方式运行!并关闭杀毒软件”)
- 返回 (0)
- .如果真结束
- 安全属性b.长度 = 12
- 安全属性b.权限 = 0
- 安全属性b.句柄 = -1
- 管道b = 创建匿名管道 (b输出管道, b输入管道, 安全属性b, 0)
- 获取启动信息_ (启动信息)
- 启动信息.dwFlags = 257
- 启动信息.hStdInput = a输出管道
- 启动信息.hStdOutput = b输入管道
- 启动信息.hStdError = b输入管道
- 启动信息.wShowwindow = 0
- 系统目录 = 取系统目录 () + “\”
- .如果真 (是否为空 (cmd名称))
- cmd名称 = “cmd.exe”
- .如果真结束
- .如果 (是否为空 (运行目录) = 真)
- ' 创建进程 = 创建进程 (0, cmd名称, 0, 0, -1, 0, 0, 系统目录, 启动信息, 进程信息)
- .否则
- 创建进程 = 创建进程 (0, cmd名称, 0, 0, -1, 0, 0, 运行目录, 启动信息, 进程信息)
- .如果结束
- .如果真 (创建进程 = 0)
- 输出调试文本 (“Error:CMD与系统连接失败,可能原因:创建CMD进程失败,请检查杀毒软件是否拦截”)
- 返回 (0)
- .如果真结束
- 连接 = 真
- 进入许可 = 创建进入许可证 ()
- 字符 (0)
- 返回 (进程信息.进程ID)
复制代码
源代码
CMD.zip
(1.02 MB, 下载次数: 4)
|