Probléme avec SendMessage

Question

Je voudrais envoyer une frappe de touche via SendMessage à Firefox donc voici le code 

Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const VK_LEFT = &H25
Public Const VK_UP = &H26
Public Const VK_RIGHT = &H27
Public Const VK_DOWN = &H28

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Sub Main()
' handle de firefox : 0016040A
Dim HandleBwser As Long
Dim lngrep
HandleBwser = FindWindow(vbNullString, "Jeu Flash - Le Jeu de le Saut - Mozilla Firefox")
Dim i As Integer

For i = 0 To 100

lngrep = SendMessage(HandleBwser, WM_KEYDOWN, VK_RIGHT, 0&)
lngrep = SendMessage(HandleBwser, WM_KEYDOWN, VK_LEFT, 0&)
Next i

For i = 0 To 20
lngrep = SendMessage(HandleBwser, WM_KEYDOWN, VK_UP, 0&)
lngrep = SendMessage(HandleBwser, WM_KEYDOWN, VK_DOWN, 0&)
Next i

'MsgBox "terminé"
End Sub

cs_LeGrosWinnie · Answer

j'ai exactement le m&#234;me "probl&#232;me".

J'ai cherch&#233;, y'a plein de gens qui utilisent sendmessage mais personne en sait comment &#231;a marche..pft la gal&#232;re...

Probléme avec SendMessage

1 réponse

Discussions similaires