本帖最后由 牧民Donn 于 2017-9-3 22:08 编辑
软件名称：UPX 3.94 GUI版本
个人使用，坛子之前也有很多UPX的版本，只不过UPX出3.94了，我就简单用易语言写了3.94的GUI版本。。
功能嘛。。略简单了些，就是为了方便嘛。。用得着的话就下载吧。。
有人要公开源码,顺便公开下,如果谁想增加新的选项的话，照着代码里面写的方法加就行了
[Erlang] 纯文本查看 复制代码 .版本 2
.支持库 edroptarget
.支持库 shell
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.程序集变量 压缩量, 文本型
.程序集变量 压缩方法, 文本型
.程序集变量 备份文件, 文本型
.子程序 __启动窗口_创建完毕
皮肤_资源加载 (#皮肤_Win10)
拖放文件.注册拖放控件 (_启动窗口.取窗口句柄 ())
.子程序 _拖放文件_得到文件
.参数 接收到的文件路径, 文本型
文件名_编辑框.内容 ＝ 接收到的文件路径
.子程序 _压缩_按钮_被单击
.如果 (方法_选择框.选中 ＝ 真)
压缩方法 ＝ “--all-methods”
.否则
压缩方法 ＝ “”
.如果结束
.如果 (压缩比_选择框.选中 ＝ 真)
压缩量 ＝ “--best”
.否则
压缩量 ＝ “”
.如果结束
.如果 (备份_选择框.选中 ＝ 真)
备份文件 ＝ “-k”
.否则
备份文件 ＝ “”
.如果结束
.如果 (文件名_编辑框.内容 ≠ “” 且 文件是否存在 (文件名_编辑框.内容) ＝ 真)
写到文件 (取特定目录 (11) ＋ “upx.exe”, #upx)
运行 (取特定目录 (11) ＋ “upx.exe” ＋ “ ” ＋ 压缩量 ＋ “ ” ＋ 压缩方法 ＋ “ ” ＋ 备份文件 ＋ “ ” ＋ 文件名_编辑框.内容, 假, 1)
.否则
返回 ()
.如果结束
.循环判断首 ()
处理事件 ()
.循环判断尾 (进程是否存在 (“upx.exe”))
.如果真 (文件是否存在 (取特定目录 (11) ＋ “upx.exe”))
删除文件 (取特定目录 (11) ＋ “upx.exe”)
.如果真结束
.如果真 (退出_选择框.选中 ＝ 真)
结束 ()
.如果真结束
.子程序 _浏览_按钮_被单击
文件名_编辑框.内容 ＝ 浏览文件夹 (“请选择欲压缩或解压缩文件：”, 真)
.子程序 进程是否存在, 逻辑型
.参数 进程名称, 文本型
.局部变量 进程数组, 进程信息, , "0"
.局部变量 i, 整数型
进程数组 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程数组), i)
.如果真 (到小写 (进程数组 [i].进程名称) ＝ 到小写 (进程名称))
返回 (真)
跳出循环 ()
.如果真结束
.计次循环尾 ()
返回 (假)
.子程序 _解压缩_按钮_被单击
.如果 (备份_选择框.选中 ＝ 真)
备份文件 ＝ “-k”
.否则
备份文件 ＝ “”
.如果结束
.如果 (文件名_编辑框.内容 ≠ “” 且 文件是否存在 (文件名_编辑框.内容) ＝ 真)
写到文件 (取特定目录 (11) ＋ “upx.exe”, #upx)
运行 (取特定目录 (11) ＋ “upx.exe” ＋ “ -d” ＋ “ ” ＋ 备份文件 ＋ “ ” ＋ 文件名_编辑框.内容, 假, 1)
.否则
返回 ()
.如果结束
.循环判断首 ()
处理事件 ()
.循环判断尾 (进程是否存在 (“upx.exe”))
.如果真 (文件是否存在 (取特定目录 (11) ＋ “upx.exe”))
删除文件 (取特定目录 (11) ＋ “upx.exe”)
.如果真结束
.如果真 (退出_选择框.选中 ＝ 真)
结束 ()
.如果真结束
软件界面：
本地赛门铁克杀毒：
链接: https://pan.baidu.com/s/1mh8TC9a 密码: yrem | 
[复制链接]
发表于 2017-8-16 14:53
