Get All Website using IP server

Imports System.Net
Imports System.IO
Imports System.Threading
Imports Newtonsoft.Json.Linq

Module Module1

    Sub Main()

        Console.Title = "[ Get All Website using IP server .. ]"
        Console.SetWindowSize(100, 25)
        Console.ForegroundColor = ConsoleColor.DarkRed
        Console.WriteLine(String.Format("{0," & Console.WindowWidth - 35 & "}", "/* .. Twitter : @0xHunter .. *\" & vbNewLine & vbNewLine))
        Dim thread As Thread
        Thread.Sleep(3000)
        thread = New Thread(AddressOf GetWebsitesFromServer)
        thread.Start()
    End Sub

    Private Function CheckForIllegalCrossThreadCalls() As Boolean
        Throw New NotImplementedException()
    End Function

    Public Sub GetWebsitesFromServer()
        Try
            Dim ip As String = "160.153.131.204" ' change this ip
            Dim attack As HttpWebRequest = CType(WebRequest.Create("https://api.viewdns.info/reverseip/?host=" + ip + "&apikey=df00b8a29918e3830317a84b738cf4cc543ec9a4&output=json"), HttpWebRequest)
            attack.Method = "GET"
            Dim res As HttpWebResponse = CType(attack.GetResponse(), HttpWebResponse)
            Dim webStream As Stream = res.GetResponseStream()
            Dim webStreamReader As New StreamReader(webStream)
            Dim response_attack = webStreamReader.ReadToEnd()
            Dim json As JObject = JObject.Parse(response_attack)
            Dim x = json.SelectToken("response").SelectToken("domains")
            For Each w As JObject In x
                Dim urls = "http://" + w.SelectToken("name").ToString
                Console.WriteLine(urls)
            Next
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.WriteLine(vbNewLine & "[ + ] Done Get Website " & vbNewLine)
            Thread.Sleep(90000)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            'Thread.Sleep(9000)
        End Try
    End Sub
End Module