Ich gehöre zum Anlagenhersteller, wir machen die Erstinbetriebnahme... Daher ist das ok... Leider gibts bei uns Softwaretechnisch keine Unterscheidung zwischen Kunden und Inbetriebnehmer -> wenn ich das Implementieren lasse wird es der Kunde später auch nutzen, auch wenn er nicht weiß was er da macht
Aber danke für euren Hinweis, ich hätte es nie so ausführlich beschreiben sollen
So ich habe es inzwischen etwas anders gelöst aber hier für die Nachwelt:
Screenshot erstellen:
Spoiler anzeigen
Func function_screenshot()
;## get window name
$win_name = WinGetTitle("")
;## put window name in input box
_GUICtrlEdit_SetText ($input_window_name, $win_name)
;## make Screenshot
$pic_path = @ScriptDir & "\screenshot.jpg"
_ScreenCapture_CaptureWnd($pic_path, $win_name)
;## get Picture size
_GDIPlus_Startup()
$IMG = _GDIPlus_ImageLoadFromFile($pic_path)
$h = _GDIPlus_ImageGetHeight($IMG)
$w = _GDIPlus_ImageGetWidth($IMG)
_GDIPlus_ImageDispose($IMG)
_GDIPlus_Shutdown()
;## change picture in GUI
GUICtrlSetPos ($screenshot, 200, 64, $w, $h)
GUICtrlSetImage($screenshot,$pic_path)
;## enable Pointer
GUICtrlSetState($button_pointer, $GUI_ENABLE)
WinActivate("Auf-Zu")
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]Pointer auf Bild setzen
Spoiler anzeigen
Func function_pointer()
;## Schleife starten
$exit = 0
;## Alten Pointer löschen
if $pic_drag_and_drop > 0 Then
GUICtrlDelete ( $pic_drag_and_drop )
EndIf
;## change Cursor
GUICtrlSetCursor ( $screenshot, 3)
;## Schleife bis Maus gedrückt wird
Local $hDLL = DllOpen("user32.dll")
While $exit = 0
Sleep(10) ; This enough to prevent CPU overload <<<<<<<<<<<<<<<<<<<<<<<<
;## Nimmt die Aktuelle Position auf
If _IsPressed("01", $hDLL) Then
$MousePos = MouseGetPos()
ConsoleWrite("Mouse Button Pressed" & @CRLF & "X=" & $MousePos[0] & @CRLF & "Y=" & $MousePos[1] & @CRLF)
;## Schleife beenden
$exit = 1
;## Koordinaten in Textfelder schreiben
_GUICtrlEdit_SetText ($input_pointer_x, $MousePos[0]-204)
_GUICtrlEdit_SetText ($input_pointer_y, $MousePos[1]-90)
;## Corser zurücksetzen
GUICtrlSetCursor ( $screenshot, 2)
;## Pointer einsetzen
$pic_drag_and_drop = GUICtrlCreatePic( @ScriptDir & "\1.gif", $MousePos[0]-35, $MousePos[1]-56, 65, 65)
GUICtrlSetState($screenshot, $GUI_HIDE)
GUICtrlSetState($screenshot, $GUI_SHOW)
While _IsPressed("01", $hDLL)
Sleep(10)
WEnd
EndIf
WEnd
[/autoit] [autoit][/autoit] [autoit];## enable Start
GUICtrlSetState($button_start, $GUI_ENABLE)
EndFunc
[/autoit] [autoit][/autoit] [autoit]Ist halt kein Drag and Drop geworden aber auch noch ok
[/autoit] [autoit][/autoit] [autoit][/autoit]