Key logger visual basic

Résolu/Fermé

Profil bloqué - 20 avril 2011 à 19:18
arth Messages postés 9374 Date d'inscription mardi 27 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2016 - 22 avril 2011 à 09:27

Bonjour,

voici mon code
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

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
TextBox1.Text = TextBox1.Text + Chr(I)
End If
Next I
End Sub
Mais visual basic 2010 express dit que Une constante ne peut pas être la cible d'une assignation.
Il affiche des vaguelette sur I (après for)
Aidez moi svp

Attention je n'est pas l'intention de faire un keylogger pour piraté.

A voir également:

Visual basic keylogger
Visual basic download - Télécharger - Langages
Microsoft 365 basic - Guide
Microsoft visual c++ runtime - Guide
Visual petanque - Télécharger - Sport
Visual paradigm - Télécharger - Gestion de données

4 réponses

Réponse 1 / 4

Gaunts Messages postés 1125 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 18 mars 2012 116
20 avril 2011 à 21:21

J'ai jamais fait de visual basic, mais ça serait mieux avec un

Dim I as Integer

Au début du code?

Profil bloqué
20 avril 2011 à 22:19

non sa marchera pas car si j'enlève le result (au dim) il n'est plus déclarer

Gaunts Messages postés 1125 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 18 mars 2012 116
21 avril 2011 à 16:36

Public Class Form1
Dim result As Integer
Dim I As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

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
TextBox1.Text = TextBox1.Text + Chr(I)
End If
Next I
End Sub

Profil bloqué
21 avril 2011 à 20:09

plus d'érreur mais le code ne marche pas merci quand même

Réponse 2 / 4

arth Messages postés 9374 Date d'inscription mardi 27 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2016 1 291
21 avril 2011 à 20:19

"Attention je n'est pas l'intention de faire un keylogger pour piraté."

Mouarf ^.^ l'est bien bonne celle-là ...

Réponse 3 / 4

Profil bloqué
21 avril 2011 à 21:36

C'est pour que des adultes voient ce que ont fait leur enfant

Réponse 4 / 4

arth Messages postés 9374 Date d'inscription mardi 27 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2016 1 291
22 avril 2011 à 09:27

Au lieu de voir ce qu'ils font, il est préférable de limiter ce qu'ils peuvent faire via des softs de contrôle parental par exemple.

Un keylogger pour "espionner" ces enfants, puisque c'est de ça qu'il s'agit.

Discussions similaires

Site de confiance ou non ?

CPU tourne à 100% avec Visual Basic Command Line Compiler

Microsoft Visual C++ ? C'est quoi ?

Faut-il conserver toutes les versions de Visual C++ ?

Discussions similaires

Newsletters