本帖最后由 /bq 于 2026-3-16 22:26 编辑
公众号文章下载工具升级 2026.03.15
去除功能
1 文件类型转换
2 界面精简
功能添加
1 支持win,linux,平台使用,先发布win平台测试
2 在set.dat中添加用户名，密码参数支持邮件分发收藏功能，填写EmailTcc支持抄送到邮箱功能
3 支持邮件内容点击收藏，自动导入软件功能
4 支持图片格式文章下载
5 添加cvs数据支持，历史记录可保持
6 添加l18n语言切换功能
已知问题
1 不支持https://mp.weixin.qq.com/s?__biz=文章下载
2 图片格式文章显示未排版
下载:下载:https://wwbvg.lanzoue.com/iDTs93ksdqef 密码:52pj
实现原理：
就是一个页面下载工具，然后对网页源码进行截取、替换的过程，你可以用F12打开源码，然后搜索jsdecode,然后前面有nick_name的是标题,create_date就是发布日期，content这个是网页真实源码，把真实源码里面的%3C这些替换一下就成，要替换的字符列表就是jsdecode里面的东西，最后加上html的头，就是正常文章页面。下面的源码就是截取，替换过程使用delphi的实现。
核心源码：
[mw_shl_code=delphi,true] with idhtp do
begin
aTitle := Get(edtUrl.text);
aContent := aTitle;
aNick := aTitle;
aDate := aTitle;
System.delete(aTitle, 1, pos('title: JsDecode(', aTitle) + 16);
System.delete(aTitle, pos('''),', aTitle), Length(aTitle));
aTitle := aTitle.Replace('|', '_');
System.delete(aDate, 1, pos('create_time: JsDecode(', aDate) + 22);
System.delete(aDate, pos(' ', aDate), Length(aDate));
System.delete(aNick, 1, pos('nick_name: JsDecode(', aNick) + 20);
System.delete(aNick, pos('''),', aNick), Length(aNick));
Self.Caption := aNick + ' ' + aTitle;
System.delete(aContent, 1, pos('content_noencode: JsDecode(', aContent) + 27);
System.delete(aContent, pos('''),', aContent), Length(aContent));
aContent := aContent.replace('\x5c', '\').replace('\x0d', '\r').replace('\x22','"').replace('\x26', '&').replace('\x27', '\').replace('\x3c', '<').replace('\x3e', '>').replace('\x0a', '\n').replace('data-src', 'src').replace('max-width: 100%;width: 100%;box-sizing: border-box;height: auto !important;','width:500px');
mmoContent.Text :='<html><body><section style="box-sizing: border-box;text-align: center;font-size: x-large;">' +aTitle + '</section>' + aContent + '</body></html>';
aPath := format('%s\%s\%s\%s.%s', [ExtractFilePath(ParamStr(0)), aNick,aDate, aTitle, 'html']);
ForceDirectories(ExtractFilePath(aPath));
mmoContent.Lines.SaveToFile(aPath);
1复制链接
2自动下载
3 邮件接收点击收藏自动下载下载
4下载结果显示
|
[复制链接]
发表于 2025-11-28 12:02
|
发表于 2025-12-1 22:29
