Imports System.IO
Imports System.Net
Imports System.Web
Imports System.Drawing
 
Imports Microsoft.Win32
Imports System.Net.NetworkInformation
 
 
Public Class Form1
    Private WithEvents mPing As New Ping
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Try
            Dim hostname As IPHostEntry = Dns.GetHostEntry("blubb.ath.cx")
            Dim ip As IPAddress() = hostname.AddressList
            Label1.Text = ip(0).ToString()
 
            Label4.Text = "Connect..."
        Catch
            Label4.Text = "Connect Error!"
        End Try
 
        '=======================================================================
        Try
            Dim hostname2 As IPHostEntry = Dns.GetHostEntry("blubb.us")
            Dim ip2 As IPAddress() = hostname2.AddressList
            Label8.Text = ip2(0).ToString()
 
            Label5.Text = "Connect..."
        Catch
            Label5.Text = "Connect Error!"
        End Try
 
        '=======================================================================
 
        Timer1.Start()
        Timer2.Start()
 
    End Sub
 
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim ep1 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse( _
        Label1.Text), 80)
        Dim client As New System.Net.Sockets.TcpClient
 
        Try
            client.Connect(ep1)
            PictureBox1.BackColor = Color.GreenYellow
            Label4.Text = "Server is Online"
        Catch ex As Exception
            PictureBox1.BackColor = Color.Red
            Label4.Text = "Server is Offline"
        End Try
        client.Close()
    End Sub
 
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        Dim ep2 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse( _
        Label8.Text), 80)
        Dim client2 As New System.Net.Sockets.TcpClient
 
        Try
            client2.Connect(ep2)
            PictureBox2.BackColor = Color.GreenYellow
            Label5.Text = "Server is Online"
        Catch ex As Exception
            PictureBox2.BackColor = Color.Red
            Label5.Text = "Server is Offline"
        End Try
        client2.Close()
    End Sub
End Class