Bonjour,
Je sollicite votre aide , étant débutant ( depuis hier .. ) je bloque sur un problème je vous explique :
Je souhaite faire un bot qui va ouvrir la banque et faire d'autre en tache de fond sur dofus 1.29 ( pendant que je regarde une vidéo par exemple )
Donc j'ai commencé à coder : premier clique sur le PNJ
puis voila mon problème , pas moyen de faire cliqué sur la petite box "Parler" qui apparaît une fois cliqué sur le PNJ ... ça fonctionne que quand mon curseur est sur la box ... du coup étant débutant vous êtes peut être plus apte à m'aider ...
voila des screens du problème :
Loading Image
Je vous fais part du code ( très simplifier lol )
les positions sont correct (x et y )
__________________________________________________________________________________________________________________________________________________________________
Func Win_Click($Title, $iButton = "left", $X = "", $Y = "", $iClicks = 1)
Local $Full = WinGetTitle ($Title)
Local $HWnD = WinGetHandle ($Full)
Local $MK_LBUTTON = 0x0001
Local $WM_LBUTTONDOWN = 0x0201
Local $WM_LBUTTONUP = 0x0202
Local $MK_RBUTTON = 0x0002
Local $WM_RBUTTONDOWN = 0x0204
Local $WM_RBUTTONUP = 0x0205
Local $WM_MOUSEMOVE = 0x0200
Local $i = 0
Local $Button,$ButtonDown,$ButtonUp,$MouseCoord
If IsHWnD ($HWnD) And WinExists ($Full) <> '0' Then
Select
Case $iButton = "left"
$Button = $MK_LBUTTON
$ButtonDown = $WM_LBUTTONDOWN
$ButtonUp = $WM_LBUTTONUP
Case $iButton = "right"
$Button = $MK_RBUTTON
$ButtonDown = $WM_RBUTTONDOWN
$ButtonUp = $WM_RBUTTONUP
EndSelect
If $X = "" OR $Y = "" Then
$MouseCoord = MouseGetPos()
$X = $MouseCoord[0]
$Y = $MouseCoord[1]
EndIf
For $i = 1 to $iClicks
DllCall("user32.dll", "int", "SendMessage","hwnd",$HWnD,"int",$WM_MOUSEMOVE,"int","long",_MakeLong($X, $Y))
DllCall("user32.dll", "int", "SendMessage","hwnd",$HWnD,"int",$ButtonDown,"int",$Button,"long",_MakeLong($X, $Y))
DllCall("user32.dll", "int", "SendMessage","hwnd", $HWnD,"int",$ButtonUp,"int",$Button,"long", _MakeLong($X, $Y))
Next
EndIf
EndFunc
Func _MakeLong($LoWord,$HiWord)
Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc
Win_Click("Adobe Flash Player 18","left",x,y,2) ; Clique sur le PNJ
Win_Click("Adobe Flash Player 18","left",x,y,1) ; Clique PNJ-Parler <--- ici ne fonctionne pas