网站 › 『编程语言区』 › 简单20多行代码-把我心爱的52破解论坛采集回家做成电子书被窝里头ipad上面慢慢看

冥界3大法王 发表于 2019-4-1 20:03

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

本帖最后由 冥界3大法王 于 2019-4-1 20:06 编辑

简单20多行代码-把我心爱的52破解论坛采集回家做成电子书被窝里头ipad上面慢慢看
无费话，上代码。{:301_975:}

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,文件不存在！
      }
}

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

这是什么语言？

查看完整版本: 简单20多行代码-把我心爱的52破解论坛采集回家做成电子书被窝里头ipad上面慢慢看