Discussion :

[greg1386]

Bonjour a tous voila je code une application en visual basic 6 qui doit envoyer une suite de touche dans un jeux le problème est que ni sendkeys , ni keybd_event ne fonctionne… j’ai chercher un peut de partout , j’ai trouver des personne qui on le même problème mais rien point de vu « solution » c’est pour cela que je fait appelle a vous car je n trouve pas le moyen de faire croire que j’appuis sur ce maudit clavier ^^

Par avance merci pour les solution @++


ps : J'ai lus un truc sur DirectInput par directX mais comment l'utiliser j'ai chercher mais j'ai rien trouver ...

[sovo]

c'est quoi exactement le probleme ? essai d'etre un peut plus clair. qu'est qui ne marche pas ?? le code ou la fonction. En nous donnant un bout de code on poura voir le truc.

[greg1386]

Salut ce qui marche pas c'est que le jeu ne reçoit aucune touche

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
' // declaration -----
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
' // function -----
Public Function Mysendkeys(key As Byte, time As Long)
keybd_event key, 0, 0, 0 ' on appuis
Sleep time               ' on attent
keybd_event key, 0, 2, 0 ' on lache
End Function
 
' // Objet -----
Private Sub Timer1_Timer()
If GetAsyncKeyState(123) <> 0 Then ' Detection de F12
    Mysendkeys 38, 5 ' Envoi d'une touche du clavier ( ici touche haut )
End If ' fin
End Sub

tu peut essayer le code 1 timer et ces tout dans un texte sa marche sous windows aussi mais dans mon jeux rien... et je voudrais une alternative qui marche, ou une solution

[sovo]

Bon deja je n'ai jamais utiliser le key_event donc ... Mais avec le SendKey de VB je crois que ca devrais aller ?? vu qu'il fait ce que tu veux faire. Pour plus d'info sur la fonction Aide en ligne (MSDN)

[greg1386]

Bon deja je n'ai jamais utiliser le key_event donc ... Mais avec le SendKey de VB je crois que ca devrais aller ?? vu qu'il fait ce que tu veux faire. Pour plus d'info sur la fonction Aide en ligne (MSDN)

[...]qui doit envoyer une suite de touche dans un jeux le problème est que ni sendkeys , ni keybd_event ne fonctionne…

... le problèmes et la aucun d'eux ne marche si non j'aurais pas crée ce post


Pour ce qui est de directinput ... j'ai trouver un jeux source sous vb6 et j'ai pu en comprendre la lecture du clavier mais j'arrive pas a simuler un état voila mon code

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
32
33
34
35
36
37
38
39
40
41
42
 
'----------------/// Module ///----------
 
'/// Declaration
Option Explicit
Public dx As New DirectX7
Public DI As DirectInput
Public DIdevice As DirectInputDevice
Public DIstate As DIKEYBOARDSTATE
 
'/// Chargement du clavier
Function Load_KB()
Set DI = dx.DirectInputCreate()
  Set DIdevice = DI.CreateDevice("GUID_SysKeyboard")
  DIdevice.SetCommonDataFormat DIFORMAT_KEYBOARD
  DIdevice.SetCooperativeLevel Form1.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE
    DIdevice.Acquire
End Function
 
'----------------/// Fin du module ///----------
 
 
'----------------/// Form1 ///----------
 
'/// chargement
Private Sub Form_Load()
Load_KB
End Sub
 
 
'/// Objet
 
Private Sub Timer1_Timer()
DIdevice.GetDeviceStateKeyboard DIstate
If DIstate.Key(203) <> 0 Then Text1 = "Droite"
If DIstate.Key(205) <> 0 Then Text1 = "gauche"
If DIstate.Key(200) <> 0 Then Text1 = "haut"
If DIstate.Key(208) <> 0 Then Text1 = "bas"
 
End Sub
 
'----------------/// Fin de form1 ///----------