Kontextmenü verstecken

Leo.1906

Hallo Leute, ich brauche mal eure Hilfe ..
Ich versuche ein Programm zu automatisieren, möchte aber nicht, dass das weiter auffällt .. Im Zuge der Automatisierung muss auch einmal das Kontextmenü (also rechtklick-menü) benutzt werden. Das sieht natürlich nicht so geil aus, wenn da auf einmal so ein menü aufpopt, auch wenn es nur sehr kurz zu sehen ist.

Aufgerufen wird das Menü durch Send-Befehle: Send("{APPSKEY}") z.B. für den Rechtsklick. Es werden insgesamt keine Clicks benutzt.
Um das zu verstecken habe ich versucht ein Gui darüber zu legen, welches immer im Vordergrund ist.

Code

$winf7 = GUICreate("Test", 500, 500, 0, 0, BitOr($WS_BORDER, $WS_POPUP), BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

Das funktioniert aber leider nicht, das Gui ist leider doch nicht so "TOPMOST" wie ich es gerbe hätte.

Habe auch diese Flags hier getestet:

Code

WinSetOnTop($winf7, "", 1)

und diese Funktion hier, die ich beim googlen gefunden habe:

Code

Func SetAlwaysOnTop($hWnd)
   _WinAPI_SetWindowPos($hWnd, $HWND_TOP+$HWND_TOPMOST, 0, 0, 0, 0, BitOr($SWP_NOMOVE, $SWP_NOSIZE))
EndFunc

Das funktioniert aber alles leider nicht ..
Das Kontextmenü steht über allem

Eine Idee habe ich noch, aber ich glaube das die nicht umsetzbar ist, bzw wenn dann nur sehr schwer.
Ich würde den Mauszeiger an eine Stelle schieben, an der er nicht sichtbar ist. Denn an der Stelle des Zeigers erstellt sich das Kontextmenü automatisch, wenn es über {APPSKEY} aufgerufen wird.
Am liebsten wäre es mir wenn man den Mauszeiger außerhalb des Fensters schieben könnte, aber das geht ja leider nicht weil dort nichts ist. Man bräuchte also eine Art virtuellen Desktop und an der Stelle wird das dann leider etwas zu krass für autoit denke ich mal ...

Vielleicht fällt euch ja noch was schlaues ein, ich weiß nämlich nicht ob das überhaupt möglich wäre ..

Vielen Dank!

lg
Leo.1906

**Raupi**

Poste mal einen Beispielscode zum testen.
Btw, wlches Programm willst du automatisieren, welches das Contextmenü anzeigt.

Leo.1906

Ah sorry, das hier ist iwie bei mir bisschen eingeschlafen
Ich bin momentan auch wieder bei nem anderen Projekt angekommen xD

Das Programm das ich automatisieren möchte ist ESRIs ArcMap. Hier mal ein paar der Funktionen inklusive der "freeze" funktion, welche den Inhalt des GUIs "freezed"

AutoIt

Func _start_edit($shp_name)
	Local $class = _getClasses($shp_name)
	WinActivate($hParentWindow)
	$t2 = ControlGetHandle($hParentWindow, "", $class)
	$t3 = _GUICtrlTreeView_FindItem($t2, $shp_name)
	WinActivate($t2)
	_GUICtrlTreeView_SelectItem($t2, $t3)
	Send("{APPSKEY}")
	Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{RIGHT}{ENTER}")
EndFunc


Func _getClasses($shp_name)
	Local $count = 0
	Local $SysTreeView = 0
	$all = WinGetClassList($hParentWindow)
	$str = StringSplit($all, @CRLF)
	For $i = 0 To $str[0]
		If $str[$i] = "SysTreeView32" Then
			$count += 1
		EndIf
	Next
	For $i = 1 To $count
		$t1 = ControlGetHandle($hParentWindow, "", "SysTreeView32"&$i)
		$t2= _GUICtrlTreeView_FindItem($t1, $shp_name)
		If NOT @error Then $SysTreeView = "SysTreeView32"&$i
	Next
	Return $SysTreeView
EndFunc

Alles anzeigen

Hier die freeze Funktio. Im vorangegangenen wird ein Child-Windows erstellt, welches normalerweise nur ein einzelner Button ist. Wenn freeze aktiviert wird, resized sich das Window auf die Größe des Inhaltes des Parent-GUIs, so das der Rahmen immer noch der des Originals ist
Ich hoffe das ist verständlich erklärt

AutoIt

Func _freeze()
	$img = @TempDir&"\"&$program_name&"\freeze.bmp"
	WinActivate($hParentWindow)
	$pos = WinGetPos($hParentWindow)
	$border_top = _WinAPI_GetSystemMetrics($SM_CYCAPTION)
	$border_side = _WinAPI_GetSystemMetrics($SM_CXFRAME)
	$x1 = ($pos[0] + $border_side)
	$y1 = ($pos[1] + $border_top + $border_side)
	$x2 = ($pos[0] + $pos[2] - $border_side)
	$y2 = ($pos[1] + $pos[3] - $border_side)
	_ScreenCapture_SetBMPFormat(4)
	_ScreenCapture_Capture($img, $x1, $y1, $x2, $y2, False)
	GUICtrlSetState($Btnf7, $GUI_HIDE)
	WinMove($winf7, "", 0, 0,($pos[2] - $border_side*2), ($pos[3] - $border_side*2 -$border_top))
	$pic = GUICtrlCreatePic($img, 0, 0, ($pos[2] - $border_side*2), ($pos[3] - $border_side*2 -$border_top))
	WinSetOnTop($winf7, "", 1)
	Return $pic
EndFunc


Func _unfreeze($pic)
	GUICtrlDelete($pic)
	WinMove($winf7, "", $fleft, $ftop,30, 30)
	GUICtrlSetState($Btnf7, $GUI_SHOW)
EndFunc

Alles anzeigen

Über eine Lösung meines Problems würde ich mich auf jeden Fall freuen, aber wie gesagt bin ich momentan wieder an was anderem dran und weiß überhaupt nicht ob ich das hier noch zuende bringen werde
Interessant ist das Problem dennoch

lg
Leo.1906

**autoBert**

Zitat von Raupi

Poste mal einen Beispielscode zum testen.

damit waren sicher keine Snipets gemeint wo auch noch Teile zu einem lauffähigen Beispielskripot fehlen.

Leo.1906

Lauffähig ist das ganze sowieso erst wenn man ArcMap installiert hat und ich glaube das das die wenigsten von euch haben.
Aber ok, hier ist das ganze Script:

AutoIt

#include "UIAWrappers.au3"
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <GuiToolbar.au3>
#include <MsgBoxConstants.au3>
#include <GuiTreeView.au3>
#include <File.au3>
#include <ScreenCapture.au3>




OnAutoItExitRegister ("_exit()")
AutoItSetOption("WinTitleMatchMode", 2)


Global $program_name = "test"
$ParentTitle = "ArcMap"
$hParentWindow = WinGetHandle($ParentTitle)
GLOBAL $XTPToolBar = _WinAPI_GetClassName($hParentWindow)
Global $random = Random(10000, 50000, 1)


While Not WinExists($hParentWindow)
    Sleep(200)
WEnd


$fleft = 650
$ftop = 5


$winf7 = GUICreate("F7", 30, 30, $fleft, $ftop, $WS_POPUP)
GUISetBkColor(0xff0000)
$Btnf7 = GUICtrlCreateButton("F7", 1, 1, 28, 28)


DllCall("user32.dll", "int", "SetParent", "hwnd", $winf7, "hwnd", $hParentWindow)
GUISetState()


;~ AdlibRegister("redrawButton", 500)
$first_time = 1


While WinExists($hParentWindow)
    If GUIGetMsg() = $Btnf7 Then
;~ 		$img = _freeze()
;~ 		_first_Startup()
		$pyHandle = _start_python()
		_createPython("add_shp")
		_exec("add_shp.py", $pyHandle)
		_start_edit("poly")
		Sleep(1000)
;~ 		WinSetState("Python", "", @SW_SHOW)


;~ 		Sleep(5000)
;~ 		_unfreeze($img)
;~ 		WinSetState("Python", "", @SW_SHOW)


	EndIf


WEnd




WinKill($winf7)






Func redrawButton()
	_WinAPI_InvalidateRect($winf7)
EndFunc


Func _first_Startup()
	If $first_time = 1 Then
		$PyButton="Python"
		$oPyButton=_UIA_getFirstObjectOfElement($UIA_oDesktop,"class:=" & $XTPToolBar, $treescope_children)
		if isobj($oPyButton) Then
			_UIA_DumpThemAll($oPyButton,$treescope_subtree)
			$oButton=_UIA_getFirstObjectOfElement($oPyButton,"name:=" & $PyButton, $treescope_subtree)
			$oInvokeP=_UIA_getpattern($oButton,$UIA_InvokePatternID)
			$oInvokeP.Invoke
			Sleep(400)
			$first_time = 0
			Run("kill.exe")
		EndIf
	EndIf
EndFunc


Func _start_python()
	WinKill("Python")
	$PyButton="Python"
	$oPyButton=_UIA_getFirstObjectOfElement($UIA_oDesktop,"class:=" & $XTPToolBar, $treescope_children)
	if isobj($oPyButton) Then
		_UIA_DumpThemAll($oPyButton,$treescope_subtree)
		$oButton=_UIA_getFirstObjectOfElement($oPyButton,"name:=" & $PyButton, $treescope_subtree)
		$oInvokeP=_UIA_getpattern($oButton,$UIA_InvokePatternID)
		$oInvokeP.Invoke
		WinWaitActive("Python")
		WinSetState("Python", "", @SW_HIDE)
		$pyHandle = WinGetHandle("Python")
		Return $pyHandle
	EndIf
EndFunc


Func _send_simple($send, $handle)
	WinActivate("Python")
	ControlCommand($handle, "", "", "EditPaste", $send)
	ControlSend($handle, "", "", @CR)
	AutoItSetOption("WinDetectHiddenText", 1)
	Return(WinGetText($handle))
EndFunc


Func _start_edit_old()
	WinActivate($hParentWindow)
	Send("{ALTDOWN}ee{ALTUP}")
;~ 	Sleep(100)
	Send("{ENTER}")
;~ 	Sleep(100)
	Send("{ENTER}")
;~ 	Sleep(100)
	$t1 = WinGetHandle("Bearbeitung starten")
	ControlSend($t1, "", "SysListView321", "temp")
;~ 	Sleep(100)
	Send("{ENTER}")
EndFunc


Func _start_edit($shp_name)
	Local $class = _getClasses($shp_name)
	WinActivate($hParentWindow)
	$t2 = ControlGetHandle($hParentWindow, "", $class)
	$t3 = _GUICtrlTreeView_FindItem($t2, $shp_name)
	WinActivate($t2)
	_GUICtrlTreeView_SelectItem($t2, $t3)
	Send("{APPSKEY}")
	Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{RIGHT}{ENTER}")
EndFunc


Func _getClasses($shp_name)
	Local $count = 0
	Local $SysTreeView = 0
	$all = WinGetClassList($hParentWindow)
	$str = StringSplit($all, @CRLF)
	For $i = 0 To $str[0]
		If $str[$i] = "SysTreeView32" Then
			$count += 1
		EndIf
	Next
	For $i = 1 To $count
		$t1 = ControlGetHandle($hParentWindow, "", "SysTreeView32"&$i)
		$t2= _GUICtrlTreeView_FindItem($t1, $shp_name)
		If NOT @error Then $SysTreeView = "SysTreeView32"&$i
	Next
	Return $SysTreeView
EndFunc


Func _createGeoJSON($epsg)
	$json = '{ '& @CRLF & _
			'"type": "FeatureCollection",' & @CRLF & _
			'"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:EPSG::'&$epsg&'" } },' & @CRLF & _
			'"features": [' & @CRLF & _
			'{ "type": "Feature", "properties": { "Id": 0 }, "geometry": { "type": "Polygon", "coordinates": [] } }' & @CRLF & _
			']' & @CRLF & _
			'}'
	If NOT FileExists(@ScriptDir&"\temp") Then
		DirCreate(@ScriptDir&"\temp")
	Else
		$file = _FileCreate(@ScriptDir&"\temp\temp.geojson")
		FileOpen($file)
		FileWrite($file, $json)
		FileClose($file)
	EndIf
EndFunc


Func _createPython($save_name)
	Switch $save_name
		Case "add_shp"
			$add_shp = 	'mxd = arcpy.mapping.MapDocument("CURRENT")'& @CRLF & _
						'dataframe_string = mxd.activeView'& @CRLF & _
						'dataframe = arcpy.mapping.ListDataFrames(mxd, dataframe_string)[0]'& @CRLF & _
						'epsg = oldspatialref = dataframe.spatialReference'& @CRLF & _
						'shp = arcpy.CreateFeatureclass_management(r'&"'"&'C:\Users\kursteilnehmer\Desktop\Neuer Ordner (2)\Shape'&"'"&', "'&$random&'.shp"'&', "POLYGON", spatial_reference=epsg)'
			DirCreate(@TempDir&"\"&$program_name)
			$file = _FileCreate (@TempDir&"\"&$program_name&"\add_shp.py")
			FileOpen(@TempDir&"\"&$program_name&"\add_shp.py", 2)
			FileWrite($file, $add_shp)
			FileClose($file)
	EndSwitch
EndFunc


Func _exec($exec, $handle)
	_send_simple('execfile(r'&"'"&@TempDir&"\"&$program_name&"\"&$exec&"')", $handle)
EndFunc


Func _exit()
	DirRemove(&@TempDir&"\"&$program_name, 1)
EndFunc


Func _freeze()
	$img = @TempDir&"\"&$program_name&"\freeze.bmp"
	WinActivate($hParentWindow)
	$pos = WinGetPos($hParentWindow)
	$border_top = _WinAPI_GetSystemMetrics($SM_CYCAPTION)
	$border_side = _WinAPI_GetSystemMetrics($SM_CXFRAME)
	$x1 = ($pos[0] + $border_side)
	$y1 = ($pos[1] + $border_top + $border_side)
	$x2 = ($pos[0] + $pos[2] - $border_side)
	$y2 = ($pos[1] + $pos[3] - $border_side)
	_ScreenCapture_SetBMPFormat(4)
	_ScreenCapture_Capture($img, $x1, $y1, $x2, $y2, False)
	GUICtrlSetState($Btnf7, $GUI_HIDE)
	WinMove($winf7, "", 0, 0,($pos[2] - $border_side*2), ($pos[3] - $border_side*2 -$border_top))
	$pic = GUICtrlCreatePic($img, 0, 0, ($pos[2] - $border_side*2), ($pos[3] - $border_side*2 -$border_top))
	WinSetOnTop($winf7, "", 1)
	Return $pic
EndFunc


Func _unfreeze($pic)
	GUICtrlDelete($pic)
	WinMove($winf7, "", $fleft, $ftop,30, 30)
	GUICtrlSetState($Btnf7, $GUI_SHOW)
EndFunc

Alles anzeigen

Edit:
hier noch der Code der "Kill.exe"

AutoIt

#NoTrayIcon
WinKill("Python")

Edit2:
ArcMap verwendet durchgehend eigene GUI-Objekte und nicht die von Windows gegebenen. Ich glaube also nicht das man das Contextmenü von ArcMap mit dem von Windows vergleichen kann, aber ich denke das, wenn man das Contextmenü von Windows verstecken könnte, dann könnte man mit der gleichen Methode auch das von ArcMap verstecken.
Also ein einfaches Beispielscript wäre, ein GUI zu erstellen, welches Always on Top ist und dann einen Rechtsklick irgendwo hinter dem Fenster zu machen. Das Ergebnis ist, dass das Contextmenü über dem Always on Top Gui gezeigt wird ...