URL CHECKER 1.1

[logmein]

Try it and comment :

expandcollapse popup

#include <GUIConstants.au3>
#include <WindowsCOnstants.au3>
#include <EditCOnstants.au3>
#include <ButtonConstants.au3>
#include <INet.au3>
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Welcome\Desktop\URL Checker\MAinform.kxf
$Form1 = GUICreate("URL Checker 1.1.0", 646, 465, 193, 125)
$List = GUICtrlCreateEdit("", 8, 24, 633, 401)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Copy && Paste your file's URLs here :", 8, 0, 180, 17)
$Check = GUICtrlCreateButton("&Check", 224, 432, 75, 25, $BS_DEFPUSHBUTTON)
$About = GUICtrlCreateButton("&About", 304, 432, 75, 25, 0)
$Exit = GUICtrlCreateButton("&Exit", 384, 432, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Exit
            Exit
        Case $Check
            _check()
        Case $About
            MsgBox(262208, "About", _
                    "URL CHECKER" & @LF & _
                    "v 1.1.0" & @LF & _
                    "------------------------------------------------" & @LF & _
                    "Author : LogMeIn" & @LF & _
                    "Email : minhthanh.autoit@gmail.com" & @LF & _
                    "------------------------------------------------" & @LF & _
                    "All comments are welcome!!!", 0, $Form1)
    EndSwitch
WEnd
Func _check()
    $err = ''
    $e = ''

    $split = StringSplit(GUICtrlRead($List), @CRLF)
    ProgressOn('URL Checker 1.1.0', 'Checking...', 'Spliting...', -1, -1, 2)
    For $i = 1 To $split[0]
        
        If $split[$i] <> '' Then
            $inet = Ping ($split[$i],4000)
            ProgressSet(($i * 100) / $split[0], $split[$i], 'Checking...')
            If $inet = 0 Then
                $err &= $split[$i] & '(died!)' & @CRLF
            Else
                $err &= $split[$i] & '(ok)' & @CRLF
            EndIf
        EndIf
        
            
    Next
    ProgressOff()
    GUICtrlSetData ($List,$err)
    

EndFunc  ;==>_check

Try to use these URL :

http://www.autoitscript.com/forum/index.php?act=Attach&type=post&id=26158
http://www.autoitscript.com/forum/index.php?act=Attach&type=post&id=26157
http://www.autoitscript.com/forum/index.php?act=Attach&type=post&id=25804

All comments are welcome!!!

Edited July 22, 2009 by logmein

[logmein]

no comment?

[Yashied]

I would rename it to the Internet File Checker, but no URL CHECKER. Why not just use ping? Thanks anyway.

[logmein]

Version 1.1.0 released! Enjoy!

Edited July 22, 2009 by logmein

[logmein]

No comment ?