Trở về
Tham gia nhóm m Autoit đ đưc hưng dn và gii đáp trc tiếp : http://fb.com/groups/autoitscript
Tin tức công nghệ  -  Thủ thuật lập trình

Friday, November 15, 2013

Code tải truyện từ manga24h.vn - Autoit


Toàn màn hìnhIn bài viết



Code tải truyện từ manga24h cho các bạn lười đọc online , sử dụng các hàm căn bản của Autoit ^^!

#Include <Inet.au3>
#Include <Array.au3>
#Include <String.au3>

$comic="Nise Koi"
$link="http://manga24h.com/1458/Nise-Koi-Tinh-Yeu-Gia-Tao.html"

DownloadFUllManga($comic,$link,1,0,1)
MsgBox(0,'',"Done!")

Func DownloadFUllManga($comic,$link,$start=1,$end=0,$firstpass=0)

$link=_InetGetSource($link)
$link=_StringBetween($link,'<td><a href="','">')
_ArrayReverse($link)

If $end=0 then
    $end=UBound($link)-1
ElseIf $end=-1 then
    $end=$start-1+$firstpass
ElseIf $end>0 then
    $end+=$firstpass-1
Endif

For $i=$start-1+$firstpass to $end
    DirCreate(@ScriptDir&"\"&$comic&"\Chapter "&$i+1-$firstpass)
$source=_InetGetSource("http://manga24h.com/"&$link[$i])
$regex=StringRegExp($source,"http.*?(?:jpg|png)",3)
For $j=0 to UBound($regex)-1
    InetGet($regex[$j],@ScriptDir&"\"&$comic&"\Chapter "&$i+1-$firstpass&"\"&$j&".jpg")
Next
Next

EndFunc

Chú thích:

$comic: tên truyện (đặt tùy thích)
$link: link truyện
$start: chapter bắt đầu tải (mặc định là trang 1)
$end: chapter tải sau cùng, mặc định là 0 (tải nguyên bộ), -1 là tải 1 chapter hiện hành
$firstpass: số chapter được bỏ qua đầu tiên (OVA, OAD ...)