[VB6]Simuler le clavier sans sendkeys et keybd_event ?

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 ...

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.

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

Code:

---

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 :P

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)

Citation:

---

Envoyé par 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)

---

Citation:

---

Envoyé par greg1386

[...]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 :lol:


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:

---

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 ///----------

---