【升级优化版】压缩包源码模块V3

qqmqqg

66666666666666666666

jiaweiguang

感谢谢谢分享

豆豆灰常开心

下个学习一下

查过

感谢分享，很给力！~

aini1wna2

Channge 发表于 2024-9-23 20:57
案例代码 应该只是更新了一个 进度条加载

调试代码忘记屏蔽了，屏蔽掉就行

Av0x

Channge 发表于 2024-9-23 20:56
[mw_shl_code=javascript,true].版本 2
.支持库 edroptarget
.支持库 shell

谢谢大屌哥

Av0x

aini1wna2 发表于 2024-9-23 19:58
那是调试里面的代码，我没有改，屏蔽掉就行了

6666好的

Channge

Channge 发表于 2024-9-23 20:56
[mw_shl_code=javascript,true].版本 2
.支持库 edroptarget
.支持库 shell

案例代码 应该只是更新了一个 进度条加载

Channge

Av0x 发表于 2024-9-23 16:33
错误(10043): “文件打包”子程序的参数 6 不能接受空数据。

文件打包子程序 只有5个参数 ...

[JavaScript] 纯文本查看 复制代码

.版本 2
.支持库 edroptarget
.支持库 shell
.支持库 spec
.支持库 EThread

.程序集 窗口程序集_启动窗口
.程序集变量 y, 压缩解压类
.程序集变量 局_, 包内文件信息, , "0"
.程序集变量 a, 整数型
.程序集变量 局_读入, 字节集

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (取窗口句柄 ())
' 昀离.皮肤加载 (1, 99, 99, 99, )

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

.如果真 (选择框1.选中 ＝ 真)
    编辑框1.内容 ＝ 接收到的文件路径
.如果真结束




.子程序 子程序1

y.置切片大小 (50)
y.置包密钥 (“8x8x”)
y.文件打包 (编辑框1.内容, 取特定目录 (#系统桌面) ＋ “昀离.xcy”, 状态条1, 进度条2, 进度条1)
调试输出 (y.取包内文件信息 (取特定目录 (#系统桌面) ＋ “昀离.xcy”, 局_))
.计次循环首 (取数组成员数 (局_), a)
    调试输出 (局_ [a].文件名, 局_ [a].目录名, 字节长度转MB长度 (局_ [a].压缩前文件大小), 字节长度转MB长度 (局_ [a].压缩后文件大小), 局_ [a].文件切片数, 到文本 (压缩率计算 (局_ [a].压缩前文件大小, 局_ [a].压缩后文件大小)) ＋ “%”)
.计次循环尾 ()


.子程序 _按钮1_被单击

.判断开始 (编辑框1.内容 ≠ “”)
    启动线程 (&子程序1, , )
.默认
    _启动窗口.标题 ＝ “内容为空”
.判断结束


.子程序 _按钮2_被单击

y.置包密钥 (“8x8x”)
y.解包文件 (取特定目录 (#系统桌面) ＋ “昀离.xcy”, 编辑框1.内容, , 状态条1, 进度条1, 进度条2)
' y.取包内某文件 (取特定目录 (#系统桌面) ＋ “昀离.xcy”, “_asyncio.pyd”, “C:\Users\Administrator\Desktop\测试文件夹\把所需要打包的文件放进来然后复制地址\”)
' 局_读入 ＝ y.取包内某文件_字节集 (取特定目录 (#系统桌面) ＋ “昀离.xcy”, “_asyncio.pyd”)
' 写到文件 (“C:\Users\Administrator\Desktop\测试文件夹\把所需要打包的文件放进来然后复制地址\” ＋ “_asyncio.pyd”, 局_读入)
' 输出调试文本 (局_读入)

Channge

Av0x 发表于 2024-9-23 16:33
错误(10043): “文件打包”子程序的参数 6 不能接受空数据。

文件打包子程序 只有5个参数 ...

[JavaScript] 纯文本查看 复制代码

y.文件打包 (“D:\Seraphine旧版\”, 取特定目录 (#系统桌面) ＋ “zyjson模块源码.xcy”, 状态条1, 进度条1, 进度条1)