Sign in to follow this  
Followers 0
logmein

URL CHECKER 1.1

5 posts in this topic

#1 ·  Posted (edited)

Try it and comment :

#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 by logmein

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0