Module Module1
 
    Sub Main()
        Dim siteIsOnline As Boolean
        siteIsOnline = False
        siteIsOnline = My.Computer.Network.Ping("loopnor.operaunite.com")
        If siteIsOnline = True Then Console.Write("Site is online") Else Console.Write("Site is offline")
        Console.ReadLine()
    End Sub
 
End Module

Reply to "Ping"

Here you can reply to the paste above

Author What's your name?

Title Give your paste a title.

Language What language is your paste written in?

Your paste Paste your paste here

Create a snipurl Create a shorter url that redirects to your paste?

Create a snipurl

Private Private paste aren't shown in recent listings.

Make Private

Delete After When should we delete your paste?

Feeling clever? Set some advanced options.