征信报告修改工具插件,自动制作无密码PDF,无痕迹修改效果,仅供代码思路学习,不提供成品

发布时间 2023-11-21 22:28:01作者: 新壳软件

提前说明,成品我不公布,仅供学习,一般我们导出的征信报告是带密码的,想要编辑密码必须要破解密码才可以,那么这个工具你可以将带有密码的报告导入这里面,实现一键解密,然后就可以随便修改里面的内容了。

软件界面图:

 

 

易语言开源代码【仅供学习研究】

===========================================================

.版本 2

.支持库 edroptarget

.支持库 iext

.支持库 spec

.程序集 窗口程序集_启动窗口, , , 本源码来自易语言资源网(www.eyuyan.la)

.程序集变量 pdf功能, PDF功能

.程序集变量 路径, 文本型

.子程序 __启动窗口_创建完毕, , , www.eyuyan.la

拖放对象1.注册拖放控件 (取窗口句柄 ())

拖放对象1.接收文件 = 真

.子程序 _拖放对象1_得到文件

.参数 接收到的文件路径, 文本型

.局部变量 文件数组, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 j, 整数型

.如果 (文件_是否为目录 (接收到的文件路径))

.如果 (文件_枚举 (接收到的文件路径, “*.pdf”, 文件数组, 真, , ) ≠ 0)

.计次循环首 (取数组成员数 (文件数组), i)

j = 超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (j, 0, 到文本 (j + 1))

超级列表框1.置标题 (j, 1, 文件_取文件名 (文件数组 [i], 假))

pdf功能.打开文档 (文件数组 [i], )

超级列表框1.置标题 (j, 2, 到文本 (pdf功能.取页数 ()))

超级列表框1.置标题 (j, 3, 文件数组 [i])

程序_延时 (10)

.计次循环尾 ()

编辑框合并路径.内容 = 接收到的文件路径

编辑框合并名称.内容 = “合并1”

.否则

信息框 (“请选择包含.pdf的文件夹拖入!!”, 16, “文件类型有误”, )

.如果结束

.否则

.如果 (文本_寻找文本 (接收到的文件路径, “.pdf”, , 真) ≠ -1 或 文本_寻找文本 (接收到的文件路径, “.PDF”, , 真) ≠ -1)

路径 = 接收到的文件路径

编辑框拆分路径.内容 = 文件_取目录 (接收到的文件路径)

编辑框拆分名称.内容 = 文件_取文件名 (接收到的文件路径, 假) + “拆分”

.否则

信息框 (“请选择.pdf文件或文件夹拖入!!”, 16, “文件类型有误”, )

.如果结束

.如果结束

.子程序 _合并_被单击, , , 易语言学习资源、源码下载站:www.eyuyan.la

.局部变量 合并文件, 文本型

.局部变量 i, 整数型

.局部变量 结果, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)

i = i - 1

pdf功能.文件列表_添加文件 (合并文件, 超级列表框1.取标题 (i, 3))

程序_延时 (10)

调试输出 (超级列表框1.取标题 (i, 3))

.计次循环尾 ()

.如果 (pdf功能.文件_批量合并文件 (合并文件, 编辑框合并路径.内容 + “\” + 编辑框合并名称.内容 + “.pdf”, 假) ≠ 0)

信息框 (“合并完成!”, 0, “合并完成”, )

.否则

信息框 (“合并失败!”, 16, “合并失败”, )

.如果结束

.子程序 _拆分_被单击

.如果 (pdf功能.文件_取文件页面 (路径, “”, 编辑框拆分路径.内容 + “\” + 编辑框拆分名称.内容 + “.pdf”, 编辑框拆分页面.内容, ) = 1)

信息框 (“拆分完成!”, 0, “拆分完成”, )

.否则

信息框 (“拆分失败!”, 16, “拆分失败”, )

.如果结束

===========================================================