.NET Console application geo-location

PHP Code


<?php 
Imports System.Net

Module Module1
    Sub Main()
        '///This try statment makes sure internet access is avliable
        Try
            My.Computer.Network.Ping("www.google.com")
        Catch ex As Exception
            MsgBox("Error: Internet is required!", MsgBoxStyle.Critical, "Error")
            Environment.Exit(-1)
        End Try

        '///      IF YOU CHANGE THE CONSOLE BACKGROUND COLOR      ///
        '///      CHANGE IT HERE ALSO   ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓        ///             
        While Console.BackgroundColor = ConsoleColor.Black
            Console.Title = "Console Geo-Locator By Dexuh"
            Console.ForegroundColor = ConsoleColor.Red



            '///these are the variables needed for the geo-locator
            Console.Write("Enter A IP Address: ")
            Console.ForegroundColor = ConsoleColor.Green
            Dim IP As String = Console.ReadLine
            Dim wc As New WebClient()
            Dim results As String = wc.DownloadString("http://api.predator.wtf/geoip/?arguments=" + IP)

            '// This line is seperating each line
            Console.ForegroundColor = ConsoleColor.Blue
            results = results.Replace("<br>", vbNewLine)
            results = vbNewLine + results

            '///this is desplaying the results
            Console.WriteLine(results)

            '///Asking if you want to geolocate another IP

            Console.ForegroundColor = ConsoleColor.Cyan
            Console.WriteLine(vbNewLine + "Press Enter to Geo-Locate Another IP")
            Console.ReadLine()
        End While

    End Sub


End Module