Imports System.Net
Imports System.IO
Imports System.Net.Sockets
Imports System.Net.NetworkInformation
Imports System.Net.HttpWebRequest
Imports System
Imports System.Globalization
Imports System.Windows.Forms
Imports AutoUpdaterDotNET
Imports Microsoft.Win32


Public Class Form1

    Dim game As New Process()

#Region "Check Server Status"



    Private Sub CheckServerStatus()
        Dim tryconnect1 As New UdpClient


        Try
            tryconnect1.Connect("78.46.71.147", 7777)
            Label2.ForeColor = Color.Lime
            Label2.Text = "Online"
        Catch ex As Exception
            Label2.ForeColor = Color.Red
            Label2.Text = "Offline"
        End Try

    End Sub
#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckServerStatus()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AutoUpdater.Start("http://fusion-host.org/breadfish/AppCast.xml")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Label2.Text = "Online" Then
            MsgBox("Du wirst nun zum Server verbunden ...")
            Process.Start("samp://78.46.71.147:7777")
        Else
            MsgBox("Der Server ist zur Zet Offline !!!")
        End If
    End Sub

End Class