修改任意扩展后可正常运行exe程序源码

.子程序 __启动窗口_创建完毕
.局部变量 管道a, 整数型
.局部变量 管道b, 整数型
.局部变量 创建进程, 整数型

安全属性a.长度 ＝ 12
安全属性a.权限 ＝ 0
安全属性a.句柄 ＝ -1
安全属性b.长度 ＝ 12
安全属性b.权限 ＝ 0
安全属性b.句柄 ＝ -1
管道a ＝ 创建匿名管道 (a输出管道, a输入管道, 安全属性a, 0)
管道b ＝ 创建匿名管道 (b输出管道, b输入管道, 安全属性b, 0)
获取启动信息_ (启动信息)
启动信息.dwFlags ＝ 257 ' 大小类型
启动信息.hStdInput ＝ a输出管道 ' 重定向标准输入
启动信息.hStdOutput ＝ b输入管道 ' 重定向标准输出
启动信息.hStdError ＝ b输入管道 ' 重定向标准错误输出
启动信息.wShowWindow ＝ 0 ' 隐藏运行
创建进程 ＝ 创建进程 (0, “cmd.exe”, 0, 0, -1, 0, 0, “C:\WINDOWS\system32\”, 启动信息, 进程信息)
启动线程 (&读管道, , )

.子程序 读管道
.局部变量 实际尺寸, 整数型
.局部变量 缓存, 字节集
.局部变量 加入文本, 文本型

编辑框1.内容 ＝ “”
缓存 ＝ 取空白字节集 (260)
.判断循环首 (读文件 (b输出管道, 缓存, 260, 实际尺寸, 0) ≠ 0 且 实际尺寸 ≠ 0)
加入文本 ＝ 到文本 (取字节集左边 (缓存, 实际尺寸))
编辑框1.加入文本 (加入文本)
.判断循环尾 ()
是否上传完毕 ＝ 真

.子程序 写管道
.参数 命令名, 文本型
.局部变量 shell, 字节集
.局部变量 实际尺寸, 整数型

shell ＝ 到字节集 (命令名 ＋ #换行符)
写文件 (a输入管道, shell, 取字节集长度 (shell), 实际尺寸, 0)

.子程序 __启动窗口_将被销毁