Discussion :

[devoluti0n]

Bonsoir !!

J'aurai besoin de votre aide car je dois utiliser sendinput et je ne comprends pas comment m'y prendre, car je ne trouve pas d'éxemple concret en vb.net.

Donc si quelqu'un d'aimable pourai me montrer comment sa fonctionne avec quelque chose de simple, tel que la préssion touche quelquonque, ce serai génial vu que je galere pour trouver !!
Merci d'avance !!!!

[belocom]

Bonjour,
Google donne pléthore de réponses pour sendinput.
Bonne chance

[devoluti0n]

J'y ai déja jeté un coup d'oeil, le souci étant que ces codes sont utilisé pour faire des choses bien précisément, seulement ne savant pas trier les éléments j'en viens à vous demander votre aide.

J'ai réelement besoin de vous, j'ai fait les déclarations suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
    Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, ByVal pInputs As GENERALINPUT, ByVal cbSize As Long) As Long
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal pDst As IntPtr, ByVal pSrc As KEYBDINPUT, ByVal ByteLen As Long)
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Dim genInput(0 To 1) As GENERALINPUT
    Dim keyInput As KEYBDINPUT
 
 
    Private Const VK_CTRL As Long = &HA2
    Private Const VK_SPACE As Long = 32
    Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1
    Private Const KEYEVENTF_KEYUP As Long = &H2
    Const INPUT_MOUSE As Integer = 0
    Const INPUT_KEYBOARD As Integer = 1
    Const INPUT_HARDWARE As Integer = 2
    Structure KEYBDINPUT
        Dim wVk As Integer
        Dim wScan As Integer
        Dim dwFlags As Long
        Dim time As Long
        Dim dwExtraInfo As Long
    End Structure
    Structure HARDWAREINPUT
        Dim uMsg As Long
        Dim wParamL As Integer
        Dim wParamH As Integer
    End Structure
    Structure GENERALINPUT
        Dim dwType As Long
        Dim xi() As Byte
    End Structure

et le code de mon timer que j'appele par un clic sur un bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
    Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(VK_CTRL) Then
            Dim GInput(0 To 1) As GENERALINPUT
            Dim KInput As KEYBDINPUT
            KInput.wVk = VK_SPACE 'the key we're going to press
            KInput.dwFlags = 0 'press the key
            'copy the structure into the input array's buffer.
            GInput(0).dwType = INPUT_KEYBOARD ' keyboard input
            CopyMemory(GInput(0).xi(0), KInput, Len(KInput))
            'do the same as above, but for releasing the key
 
            'send the input now
            Call SendInput(2, GInput(0), Len(GInput(0)))
 
            Sleep(100)
 
 
            KInput.wVk = VK_SPACE ' the key we're going to realease
            KInput.dwFlags = KEYEVENTF_KEYUP ' release the key
            GInput(1).dwType = INPUT_KEYBOARD ' keyboard input
            CopyMemory(GInput(1).xi(0), KInput, Len(KInput))
            Call SendInput(2, GInput(1), Len(GInput(1)))
        End If
    End Sub

Et bien sur sa ne marche pas !! le but étant donc que par préssion de ctrl, ce soit Espace qui soit simuler via sendinput.

A l'aide !