Control MouseClickDrag

[D2_sid]

Ich habe hier einen alten Beitrag gefunden mit einer UDF, mit der ein Mouse Drag an einen bestimmten Client gesendet wird.

;=================================================================================================
; Function:			_PostMessage_ClickDrag($hWnd, $X1, $Y1, $X2, $Y2, $Button = "left")
; Description:		Sends a mouse click and drag command to a specified window.
; Parameter(s):		$hWnd - The handle or the title of the window.
;					$X1, $Y1 - The x/y position to start the drag operation from.
;					$X2, $Y2 - The x/y position to end the drag operation at.
;					$Button - (optional) The button to click, "left", "right", "middle". Default is the left button.
;					$Delay - (optional) Delay in milliseconds. Default is 50.
; Requirement(s):	A window handle/title.
; Return Value(s):	On Success - Returns true
;					On Failure - Returns false
;					@Error - 0 = No error.
;							 1 = Invalid window handle or title.
;							 2 = Invalid start position.
;							 3 = Invalid end position.
;							 4 = Failed to open the dll.
;							 5 = Failed to send a MouseDown command.
;							 5 = Failed to send a MouseMove command.
;							 7 = Failed to send a MouseUp command.
; Author(s):		KillerDeluxe
;=================================================================================================
Func _PostMessage_ClickDrag($hWnd, $X1, $Y1, $X2, $Y2, $Button = "left", $Delay = 50)
	If Not IsHWnd($hWnd) And $hWnd <> "" Then
		$hWnd = WinGetHandle($hWnd)
	EndIf

	If Not IsHWnd($hWnd) Then
		Return SetError(1, "", False)
	EndIf

	If Not IsInt($X1) Or Not IsInt($Y1) Then
		Return SetError(2, "", False)
	EndIf

	If Not IsInt($X2) Or Not IsInt($Y2) Then
		Return SetError(3, "", False)
	EndIf

	If StringLower($Button) == "left" Then
		$Button = $WM_LBUTTONDOWN
		$Pressed = 1
	ElseIf StringLower($Button) == "right" Then
		$Button = $WM_RBUTTONDOWN
		$Pressed = 2
	ElseIf StringLower($Button) == "middle" Then
		$Button = $WM_MBUTTONDOWN
		$Pressed = 10
		If $Delay == 10 Then $Delay = 100
	EndIf

	$User32 = DllOpen("User32.dll")
	If @error Then Return SetError(4, "", False)

	DllCall($User32, "bool", "PostMessage", "hwnd", $hWnd, "int", $Button, "int", "0", "long", _MakeLong($X1, $Y1))
	If @error Then Return SetError(5, "", False)

	Sleep($Delay / 2)

	DllCall($User32, "bool", "PostMessage", "hwnd", $hWnd, "int", $WM_MOUSEMOVE, "int", $Pressed, "long", _MakeLong($X2, $Y2))
	If @error Then Return SetError(6, "", False)

	Sleep($Delay / 2)

	DllCall($User32, "bool", "PostMessage", "hwnd", $hWnd, "int", $Button + 1, "int", "0", "long", _MakeLong($X2, $Y2))
	If @error Then Return SetError(7, "", False)

	DllClose($User32)
	Return SetError(0, 0, True)
EndFunc

Ich habe diesen Code in einer neue ClickDrag.au3 kopiert und in den Ordner include eingefügt.

In meinem Script:

#include <ClickDrag.au3>
#include <SendMessage.au3>

$HANDLE = WinGetHandle ( "Example" )

Func _Test()
 While 1
   _PostMessage_ClickDrag($HANDLE, $z1, $z2, $z1+80, $z2, "right")
   Sleep(200)
 WEnd
EndFunc

Es passiert leider gar nichts. Hat jemand eine Idee?

[alpines]

Was soll denn da auch passieren? Die Funktionen sind in einer Funktion versteckt die gar nicht gecallt wird.

[D2_sid]

Dann verstehe ich da wohl etwas grundlegend falsch. Ist es denn mit dieser UDF möglich ein Control Mouse Drag an ein inaktives Fenster zu senden?

[elmarcia]

Where is supposed to be the function _MakeLong($x1,$x2) in your click drag UDF ?, i searched in my SendMessage.au3 file and that function does not exist. Then won't work until u define that function.

[alpines]

Originally Posted by D2_sid

Dann verstehe ich da wohl etwas grundlegend falsch. Ist es denn mit dieser UDF möglich ein Control Mouse Drag an ein inaktives Fenster zu senden?

In deinem Script wird die Drag-Funktion in einer anderen Funktion verwendet die nie gecalled wird -> Drag-Funktion wird auch nie gecalled. Beschäftige dich doch mal mit den Grundlagen bevor du sowas machen willst.

[urlau]

Originally Posted by D2_sid

In meinem Script:

#include <ClickDrag.au3>
#include <SendMessage.au3>

$HANDLE = WinGetHandle ( "Example" )

Func _Test()
 While 1
   _PostMessage_ClickDrag($HANDLE, $z1, $z2, $z1+80, $z2, "right")
   Sleep(200)
 WEnd
EndFunc

ändere es in

#include <ClickDrag.au3>
#include <SendMessage.au3>

$HANDLE = WinGetHandle ( "Example" )
_Test($HANDLE)
Exit

Func _Test($HANDLE)
 While 1
   _PostMessage_ClickDrag($HANDLE, $z1, $z2, $z1+80, $z2, "right")
   Sleep(200)
 WEnd
EndFunc

Dann wird Deine Func aufgerufen, das ist auch die Aussage von alpines