Beiträge von Floops

#include <Misc.au3>

$ptzdown = "down"
$ptzup = "up"
$ptzright = "right"
$ptzleft = "left"
$ptzdownright = "downright"
$ptzdownleft = "downleft"
$ptzupright = "upright"
$ptzupleft = "upleft"

While 1
    If _IsPressed(57) OR _IsPressed(53) OR _IsPressed(41) OR _IsPressed(44) then

        $ptz = ""
        _tasten_abfragen()

        ConsoleWrite($ptz & " gedrückt" & @CRLF)
        while _tasten_abfragen()
            ConsoleWrite("aktuell: " & $ptz & @CRLF)
            sleep(50)
        wend
        ConsoleWrite($ptz & " losgelassen" & @CRLF)

    EndIf
WEnd

Func _tasten_abfragen()
    $iDown = False
    $iUp = False
    $iLeft = False
    $iRight = False

    If _IsPressed(57) Then $iDown = True
    If _IsPressed(53) Then $iUp = True
    If _IsPressed(41) Then $iLeft = True
    If _IsPressed(44) Then $iRight = True

    If $iDown Then $ptz = $ptzdown
    If $iUp Then $ptz = $ptzup
    If $iLeft Then $ptz = $ptzleft
    If $iRight Then $ptz = $ptzright

    If $iDown And $iLeft Then $ptz = $ptzdownleft
    If $iDown And $iRight Then $ptz = $ptzdownright
    If $iUp And $iLeft Then $ptz = $ptzupleft
    If $iUp And $iRight Then $ptz = $ptzupright

    If Not _IsPressed(57) And Not _IsPressed(53) And Not _IsPressed(41) And Not _IsPressed(44) Then
        Return False
    Else
        Return True
    EndIf
EndFunc

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndTab, $iTab
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case GUICtrlGetHandle($List2)
            Switch $iCode
                Case $NM_CLICK
                    $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                    If DllStructGetData($tInfo, "Index")<>-1 Then _
                        $id = _GUICtrlListView_GetItemText($List2,DllStructGetData($tInfo, "Index"),0)
                        $bListViewClicked = True ; HIER DEN BOOLEAN AUF TRUE SETZEN!
            EndSwitch
    EndSwitch
     Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GuiDelete($hArtikelGui)
        ExitLoop
    EndSwitch
    if $bListViewClicked = True Then ; HIER DEN BOOLEAN ABFRAGEN!
        $bListViewClicked = False ; BOOLEAN ZURÜCKSETZEN!
        artikel_anzeigen_nachID() ; FUNKTION AUFRUFEN!
    EndIf
WEnd

Func _OL_status()


	$olApp = ObjGet("", "Outlook.Application")
	If @error Then
		$olApp = ObjCreate("", "Outlook.Application")
	EndIf

	If IsObj($olApp) Then
		$olNameSpace = $olApp.GetNamespace("MAPI")
		$status = $olNameSpace.ExchangeConnectionMode
		Return $status
	Else
		Return -1
	EndIf


EndFunc

#include <GuiMenu.au3>


HotKeySet("!{F4}", "_alt_f4")
HotKeySet("{ESC}", "_exit")


Run("Notepad")
WinWait("Unbenannt - Editor")


$handle = WinGetHandle("Unbenannt - Editor")


DisableButton($handle, $SC_CLOSE)




While 1
	Sleep(50)
WEnd


Func DisableButton($hWnd, $iButton)
	$hSysMenu = _GUICtrlMenu_GetSystemMenu($hWnd, 0)
	_GUICtrlMenu_RemoveMenu($hSysMenu, $iButton, False)
	_GUICtrlMenu_DrawMenuBar($hWnd)


EndFunc


Func EnableButton($hWnd, $iButton)
	$hSysMenu = _GUICtrlMenu_GetSystemMenu($hWnd, 1)
	_GUICtrlMenu_RemoveMenu($hSysMenu, $iButton, False)
	_GUICtrlMenu_DrawMenuBar($hWnd)
EndFunc


Func _alt_f4()
	; blockiert
EndFunc


Func _exit()
	WinClose("Unbenannt - Editor")
	Exit
EndFunc

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
$GUI = GUICreate("TEST", 300,300)
$Menu_Tools = GUICtrlCreateMenu("Tools")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_EXIT")
Local $aTools[4][3]
for $i = 1 to ubound($aTools)-1
	$aTools[$i][0] = "Tool " & $i
 	$aTools[$i][1] = "Pfad zur Exe"
	$aTools[$i][2] =  GUICtrlCreateMenuItem($aTools[$i][0], $Menu_Tools)
	GUICTRLSetOnEvent(-1,"_Test" & $i)
Next


While 1
	sleep(50)
WEnd


Func _exit()
	Exit
EndFunc


func _Test1()
	msgbox(0,"","1")
endfunc


func _Test2()
	msgbox(0,"","2")
endfunc


func _Test3()
	msgbox(0,"","3")
endfunc