Hỏi/ Thắc mắc - Phần mềm kiểm tra url còn sống hay không? | VN-Zoom | Cộng đồng Chia Sẻ Kiến Thức Công Nghệ và Phần Mềm Máy Tính

Adblocker detected! Please consider reading this notice.

We've detected that you are using AdBlock Plus or some other adblocking software which is preventing the page from fully loading.

We need money to operate the site, and almost all of it comes from our online advertising.

If possible, please support us by clicking on the advertisements.

Please add vn-z.vn to your ad blocking whitelist or disable your adblocking software.

×

Hỏi/ Thắc mắc Phần mềm kiểm tra url còn sống hay không?

TB Magic

Rìu Vàng Đôi
Không biết bác nào có phần mềm để kiểm tra url còn sống hay không. Em hiện tại đang có hơn 20.000 url cần kiểm tra.
Em đã thử tìm thì thấy có 1 trang web (urlcheckr.com) nhưng bị giới hạn số lượng url 1 lần kiểm tra (250 url 1 lần) nhưng mà hay bị báo lỗi error và cũng không xuất được các url còn sống.
Url của em thuộc về các trang web sau: nitroflare, uploadgig, rapidgator, google drive, mega.

Em cảm ơn.
 

TB Magic

Rìu Vàng Đôi
Không bác nào biết phần mềm nào giúp em ạ. 😭😭😭
 

TB Magic

Rìu Vàng Đôi
Sau 1 thời gian tìm kiếm thì em không tìm ra được phần mềm nào nên đành phải tìm code để kiểm tra.
Dưới đây là mã AutoIT em tìm được kiểm tra cũng khá ổn.
Mã:
#include <Array.au3>
#include <File.au3>

Global $aUrls, $PingTimeout = 1000

_FileReadToArray(@ScriptDir & "\urls.txt", $aUrls)

For $i = 1 To UBound($aUrls) - 1
    Switch StringLeft($aUrls[$i], 3)
        Case 'www'
            $aUrls[$i] = 'http://' & $aUrls[$i]
        Case 'htt'
            ContinueLoop
        Case Else
            $aUrls[$i] = 'http://www.' & $aUrls[$i]
    EndSwitch
Next

For $i = 1 To $aUrls[0]
    If _UrlExists($aUrls[$i]) Then
        ConsoleWrite("Exists: " & $aUrls[$i] & @LF)
        ContinueLoop
    EndIf
    ConsoleWrite("Not Exists Or No Response in " & $PingTimeout / 1000 & " Seconds: " & $aUrls[$i] & @LF)
Next

Func _UrlExists($url)
    If (StringLen(InetRead($url, 1)) > 0) Then Return 1
    If Ping($url, $PingTimeout) Then Return 2
    Return 0
EndFunc
 


Top