本帖最后由 冥界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,文件不存在!
}
}
|