Func ident()
LogWrite("Identifikation fängt an")
ControlSend($Hwnd1, "", "", "{.}")
Sleep(500)
$ident_x = 35
$ident_y = 430
$x = 20
$y = 50
$ident = 0
For $iy = $y To $y + 200 Step 50
For $ix = $x To $x + 170 Step 44
ControlClick($Hwnd1, "", "", "left", 2, $ident_x, $ident_y)
Sleep(200)
_MouseClick($Hwnd1, "left", $ix, $iy, 1, 80)
Next
Next
ControlSend($Hwnd1, "", "", "{.}")
EndFunc ;==>ident
Func _MakeLong($LoWord, $HiWord)
Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc ;==>_MakeLong
Func _MouseClick($hwnd, $button, $x, $y, $times = 1, $delay = 15) ; Use the relative coords to the client area of the active window
If $hwnd = 0 Then
SetError(-1)
Return
EndIf
Local $ix
Local $lParam = _MakeLong($x, $y)
Local $user32 = DllOpen("user32.dll")
$button = StringLower($button)
If $button = "left" Then
For $ix = 1 To $times
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x200, "int", 0, "long", $lParam) ; Move
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x201, "int", 1, "long", $lParam) ; Down
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x202, "int", 0, "long", $lParam) ; Up
If $ix < $times Then Sleep($delay)
Next
ElseIf $button = "right" Then
For $ix = 1 To $times
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x200, "int", 0, "long", $lParam) ; Move
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x204, "int", 2, "long", $lParam) ; Down
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x205, "int", 0, "long", $lParam) ; Up
If $ix < $times Then Sleep($delay)
Next
Else
SetError(-2)
If $user32 <> -1 Then DllClose($user32)
Return
EndIf
If $user32 <> -1 Then DllClose($user32)
EndFunc ;==>_MouseClick
|
achso ich würde mich auch sehr über verbesserungen etc. freuen :-)