Imports System.Net.Sockets
Imports System.Text
Module Module1
    Sub Main()
        Console.Title = "Shifty Server Keeper"
        Dim clientSocket As New System.Net.Sockets.TcpClient()
        While clientSocket.Connected = False
            Try
                clientSocket.Connect("127.0.0.1", 27015)
                Console.WriteLine("Running")
            Catch ex As Exception
                Console.WriteLine("Crashed")
                Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("ssrcds")
                For Each p As Process In pProcess
                    p.Kill()
                Next
                System.Diagnostics.Process.Start("C:\....")
            End Try
        End While
        While clientSocket.Connected = True
        End While
    End Sub
End Module