Breadcrumbs

[Adroxxx]

Is someone able to make a dead link checker? hehaho;

[bisnes_niko]

Well, I use

On load;

Code: Select all

If CheckLink("www.hastalavistababytrolollthiswebsiteshouldnotbeexisting.com/super.html") = False then : msgbox("This link is dead ;(") : Else : Msgbox("This link isn't dead! hurray")

and add this code piece inside the Public Class Form1, end class

Code: Select all

Private Function CheckLink(ByVal Address as String) as Boolean
Try
my.computer.network.ping(Address)
catch ex as exception
Return False
end try
return true
End function

YES, fixed D:

[Axel]

kinda good idea i made a library a while ago but i quitted vb this would be a good idea for a library...

[Adroxxx]

Did I do something wrong?

[Axel]

Did I do something wrong?

you forgot the address

so you need to do "Checklink("http:/www.codenstuff.com")"
thats why i love "ByVal"

[bisnes_niko]

Woopsie... My bad did this too fast :o

[Adroxxx]

It always says that my link is dead even if my link isnt cryer;

[mandai]

You don't use Ping on a HTTP URL.
Use WebClient.DownloadData, if there is an error you can catch it in an exception.

[Axel]

It always says that my link is dead even if my link isnt cryer;

cuz u returned true ?

maybe you should change the "try" a little bit

Code: Select all

Try 
my.network.ping(adress)
return true
catch ex as exception
Msgbox(ex.message)
return false
end try

[bisnes_niko]

Things you dont want to happen, happens when you do the thing too fast :S