累计签到:10 天 连续签到:1 天
|
公众号文章下载工具升级 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('\x0a', '\n').replace('data-src', 'src').replace('max-width: 100%;width: 100%;box-sizing: border-box;height: auto !important;','width:500px');
mmoContent.Text :='' +aTitle + '' + aContent + '';
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下载结果显示 |
精密测量技术论坛免责声明
重要声明:以上内容仅代表该作者观点,不代表本站精密测量技术论坛立场。
如有涉及侵权请尽快告知,我们将会在第一时间处理。作者原创内容未经允许不得转载!
站长联系邮箱:1339305021@qq.com
站长联系微信:dddnnbbb
|