吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 5115|回复: 19
收起左侧

[其他原创] 简单20多行代码-把我心爱的52破解论坛采集回家做成电子书被窝里头ipad上面慢慢看

  [复制链接]
冥界3大法王 发表于 2019-4-1 20:03
本帖最后由 冥界3大法王 于 2019-4-1 20:06 编辑

简单20多行代码-把我心爱的52破解论坛采集回家做成电子书被窝里头ipad上面慢慢看
无费话,上代码。
[Asm] 纯文本查看 复制代码
Loop, Read, C:\Users\Administrator\Desktop\2link - 副本.txt
{
        Loop, Parse, A_LoopReadLine, %A_Tab%
        {
                wb := ComObjCreate("InternetExplorer.Application")        ;创建一个IE对象
                wb.visible := true                                                                                   ;显示IE
                ;MsgBox,%A_LoopField%                                                                     ;按行读取52破解链接
                wb.navigate(%A_LoopField%)                                                            ;打开52破解链接
                while wb.Readystate <> 4                                                                   ;当IE页面加载完毕!
                        continue
                ;MsgBox, % wb.locationURL                                                                                  ;显示出当前的链接
                ;Clipboard = % wb.document.title
                ;MsgBox, % wb.document.title                                                                ;显示网页标题
                ;执行字符串切割操作,以便得到【保存的文件名 +.html】
                String =  % wb.document.title
                StringTrimRight, 文件名, String, 60
                ;MsgBox,%文件名%
                文件名2=J:\52破解逆向文章采集2\%文件名%.html

                ControlSend, Internet Explorer_Server1, ^s, ahk_class IEFrame
                Sleep, 500
                ControlSetText, Edit1, %文件名2%, 保存网页
                Sleep, 500
                Control,choosestring,Unicode (UTF-8),Combobox3,保存网页
                Sleep, 500
                ControlClick, Button2, 保存网页
                ;判断文件是否存在?不存在则延迟
                ;While IfNotExist, C:\Temp1.txt   这种写法是不正确的,正确是下面这样
                while AttributeString := !FileExist("J:\52破解逆向文章采集2")
                        Sleep, 200                                   ;MsgBox,文件不存在!
        }
}

免费评分

参与人数 6吾爱币 +7 热心值 +6 收起 理由
smile1110 + 3 + 1 谢谢@Thanks!
jc0319 + 1 我很赞同!
_ever_ + 1 + 1 谢谢@Thanks!
yjn866y + 1 + 1 谢谢@Thanks!
东皇太乙真人 + 1 + 1 用心讨论,共获提升!
Pear + 1 + 1 吾爱破解论坛因你更精彩!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

xtuuqtbl 发表于 2019-4-1 20:18
大佬满血复活了
ee789852 发表于 2019-4-1 20:21
Pear 发表于 2019-4-1 20:22
狮王 发表于 2019-4-1 20:32
感谢分享,干货满满
凯咪 发表于 2019-4-1 20:36
请教大神这是什么语言的代码
lxzhtxh13 发表于 2019-4-1 20:50
那些需要登录才能看的呢
raixen 发表于 2019-4-1 20:53
来跟楼主学习学习
linuxprobe 发表于 2019-4-1 20:55
难道完成20行代码,就能一劳永逸了吗?
双眼皮的微笑 发表于 2019-4-1 21:11
这是什么语言?
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-16 04:45

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表