simuler un click sur une page web avec VBA (ou autre langage)Résolu

Question

Je cherche un moyen de simuler un click sur un bouton d'une page web (dont j'ai l'URL) sans avoir &#224; le faire manuellement. C'est pour r&#233;p&#233;ter cette op&#233;ration sur ~600 pages web de m&#234;me structure... 

HELP!

PCPT · Accepted Answer

voici un petit exemple.... Private Declare Function SetCursorPos Lib "user32" _ (ByVal x As Long, ByVal y As Long) As Long Private Declare Sub mouse_event Lib "user32" _ (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _ ByVal cButtons As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Private Sub Form_Load() Me.Show SetCursorPos (Me.Left / Screen.TwipsPerPixelX) + 10, (Me.Top / Screen.TwipsPerPixelY) + 10 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI End Sub Coloration syntaxique automatique [AFCK] PCPT

cs_CanisLupus · Answer

Salut,
Vois les api setcursotpos et mouse_event.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

salut, Private Declare Sub mouse_event Lib "user32" _ (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _ ByVal cButtons As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Coloration syntaxique automatique [AFCK] PCPT

PCPT · Answer

pas vu CanisLupus^^ d&#233;sol&#233;
PCPT

cs_mickey91 · Answer

Cool ! Vous etes des dieux !
R&#233;activit&#233; et efficacit&#233;, on peut pas faire mieux....

Merci

Mickey

PCPT · Answer

pense &#224; valider
@+
PCPT

cs_mickey91 · Answer

Ok, dsl... manque d'exp&#233;rience!

PCPT · Answer

en principe, il faut valider la r&#233;ponse qui te convient.
(pour que les autres lecteurs aillent lire directement le pav&#233; vert...)

mais tant que tu valides (si bien s&#251;r tu as la solution), c'est le principal ;)

++
PCPT

Simuler un click sur une page web avec VBA (ou autre langage)

8 réponses

Discussions similaires