vb8 keylogger getasynckeysate(1)Résolu

Question

Bonjour 

KEYLOGGER

Ou doit on poste les topiques VB8 ? 

je demande un thème VB8 Bien sur..

Sous Visual Basic 2008 Express

Normalement il devrait fonctionner, mais j'ai un message d'erreur sous xp sp3 & windows 7.

Erreur: sur la ligne: 

 result =  getasynckeysate(i)

 L'exception ENTRYPOINTNOTFOUNDEXCEPTION N'a pas été gérée 

IMPOSSIBLE DE TROUVER LE POINT D'ENTRÉE 'getasynckeysate' dans la DLL 'user32'.

SIMPLE: FORM1 + TEXTBOX1 + TIMER1

LE Timer A 10
TEXTBOX EN MULTILIGNE

 Voici le code: 



Public Class Form1
    Dim result As Integer
    Private Declare Function getasynckeysate 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
        Timer1.Start()
    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 = getasynckeysate(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
    End Sub
End Class



Lors du play
j'ouvre le NOTEPAD
Puis normalement il synchronise
non ?

 [b]Je suis débutant.. une faute de syntaxe ?
/b
les tuto vb8 sont rare .. 

ces inutiles mais ces bien de comprendre..

Bacterius · Accepted Answer

ces inutiles mais ces bien de comprendre..
Ca commence bien!

Ou doit on poste les topiques VB8 ?
Sur www.vbfrance.com.

result = getasynckeysate(i)
C'est bien Google aussi ... C'est GetAsyncKeyState, pas l'abomination que tu as écrit. Remplace par "getasynckeystate" partout et ça devrait fonctionner.

Cordialement, Bacterius !

bonnoccaz · Answer

Merci Bacterius  

Delphi , Une autre fois.. Je reste sous Vb8 

Résolue: Fin du topic cote Erreur.. 



Ressource MDSN:  le liens

Virtual Key codes (windows) IcI

Voici un exemple sous VB8 (MDSN):

Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As UShort

Usage:

Public Shared ReadOnly Property KeyStatus(ByVal Key As Keys) As Boolean
    Get
        If Key = Keys.LButton AndAlso My.Computer.Mouse.ButtonsSwapped Then
            Key = Keys.RButton
        ElseIf Key = Keys.RButton AndAlso My.Computer.Mouse.ButtonsSwapped Then
           Key = Keys.LButton
        End If
        Return API.Devices.GetAsyncKeyState(Key) And &H8000US
    End Get
End Property

Bye.

Bacterius · Answer

Euh ... j'ai pas propagandé pour Delphi 
Bonne continuation.

Cordialement, Bacterius !

krimog · Answer

@Bacterius
T'as dû le penser tellement fort qu'il l'a entendu ^^

@Bonnoccaz
Si, comme tu semble le dire, Bacterius t'a donné la bonne réponse, indique sa réponse comme "Réponse acceptée", via le bouton s'affichant à gauche de son message.

Krimog : while (!(succeed = try())) ;
- Nous ne sommes pas des décodeurs ambulants. Le style SMS est prohibé. -

Vb8 keylogger getasynckeysate(1)

4 réponses

Votre réponse

Discussions similaires