#include <String.au3>
#include <Array.au3>
#include <file.au3>
#include <INet.au3>
$r=1
$r = InputBox("No: of lines in your list.txt","No: of lines")

$file = FileOpen("list43.txt", 0)

while $file
    $ip=FileReadLine ( $file , $r )
    If $ip = -1 then Exit
    InetGet($ip, $r&"html", 1)

    If $r=27 Then
        rosevelt ()
    EndIf

    $r=$r+1

    WEnd

Func rosevelt ()
    MsgBox(0, "total no: of lines read"& $r, "either it completed happily or cant read line")
    Exit
    EndFunc