【文件属性】:
文件名称:UPX编译自动加壳.e
文件大小:326KB
文件格式:E
更新时间:2016-02-26 13:34:38
编译自动加壳
.版本 2
.支持库 eCompress
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.如果真 (取安装目录 () = “”)
信息框 (“请先安装易语言或者您删除了易语言注册表!”, 64, )
.如果真结束
.子程序 取安装目录, 文本型, 公开, 取易语言安装文件目录.未安装易语言返回空
.局部变量 路径, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
.如果真 (注册项是否存在 (1, “.e\”) = 假)
返回 (“”)
.如果真结束
路径 = 取文本注册项 (1, 取文本注册项 (1, “.e\”, ) + “\Shell\Open\Command\”, )
a = 寻找文本 (路径, #引号, , 假)
.如果 (a = -1)
a = 寻找文本 (路径, “ ”, , 假)
.如果真 (a ≠ -1)
路径 = 取文本左边 (路径, a - 1)
.如果真结束
.否则
b = 寻找文本 (路径, #引号, a + 1, 假)
路径 = 取文本中间 (路径, a + 1, b - a - 1)
.如果结束
.如果真 (文件是否存在 (路径) = 假)
返回 (“”)
.如果真结束
返回 (取文本左边 (路径, 倒找文本 (路径, “\”, , 假)))
.子程序 _按钮1_被单击
.判断开始 (文件是否存在 (取安装目录 () + “tools\link.ini”))
写到文件 (取安装目录 () + “tools\1.zip”, #UPX)
ZIP压缩1.解压 (取安装目录 () + “tools\1.zip”, 取安装目录 () + “tools\”)
删除文件 (取安装目录 () + “tools\1.zip”)
写到文件 (取安装目录 () + “tools\link.ini”, 到字节集 (到文本 (读入文件 (取安装目录 () + “tools\link.ini”)) + #换行符 + #a))
信息框 (“成功!请打开易语言编译测试!”, 64, )
.默认
信息框 (“请确定您的目录是否完整。”, 64, )
.判断结束
.子程序 _按钮2_被单击
.局部变量 c, 文本型
卸载 (“README”)
卸载 (“BUGS”)
卸载 (“COPYING”)
卸载 (“LICENSE”)
卸载 (“NEWS”)
卸载 (“THANKS”)
卸载 (“TODO”)
删除文件 (取安装目录 () + “tools\README.1ST”)
删除文件 (取安装目录 () + “tools\upx.1”)
删除文件 (取安装目录 () + “tools\upx.exe”)
写到文件 (取安装目录 () + “tools\link.ini”, 到字节集 (子文本替换 (到文本 (读入文件 (取安装目录 () + “tools\link.ini”)), #换行符 + #a, “”, , , 真)))
信息框 (“已卸载!”, 64, )
.子程序 卸载
.参数 文件名, 文本型
删除文件 (取安装目录 () + “tools\” + 文件名 + “.”)