Beiträge von kangool

also nun zu meinem problem ...wie im vorherigen thread passt die lösung mit der idle time ganz gut...so das sich dad programm beendet und ein anderes startet

nun möchte ich via tastendruck wieder wechseln können

das funktioniert auch so weit so gut...mein problem besteht darin das ich aber jene taste so lange gedrückt halten muss solange ich das programm ausfühen will...

habe f6 taste dafür gewählt...

drücke und halte f6 programm xyz.exe wird ausgeführt

wenn ich die taste loslasse wird program xyz.exe beendet und programm zyx.exe gestartet

mein problem hierbei ist das dadurch jegliche tastatureingaben (in diesem fall der scanner der als usb hid fungiert...tastaturmonitor...) blockiert werden...

wie schaff ich es durch kürzes drücken der f6 taste zwischen den programmen hin und her schalte...

hab das ganze an nem smarthome relais mit arduino micro der als tastatur fungiert hängen...

und ein zweites gerät wo ich halt direkt ne usbtastaturplatine an nem relais hängen hab....

hoffentlich soweit verständlich

; Script Start - Add your code below here
#include <Timers.au3>

;Declare the Timer:
; Global $TIMER = TimerInit()


While 1

    ;If this application is active then reset the timer:
;WinExists("Terminalapp") And
    If ProcessExists("appchoice.exe") And _Timer_GetIdleTime() >= 300 * 1000 Then
  ;process will be closed
ProcessClose("appchoice.exe")
sleep(500)
;change app
run("c:\ipoint1\ipoint.exe")
EndIf

    ;Sleep for 1 seconds before looping again:
;    Sleep(1000)
WEnd

sollte theroretisch so funktionieren

kanns ned testen da ich mit handy online bin und unterwegs

ok i werd mal google nach _Timer_GetIdleTime quälen ggggg

also ich möchte eine while schleife haben die die mausbewegung überpfüft

ich hab dazu auch ein kleines script gefunden

das eben bei jeder touchberührung (TOUCH LÄUFT MIT NEM ALTWM TREINER SOMIT WIRD ER ALS HID ERKANNT ALS MAUS)

eine msgbox anzeigt

kenn jetzr denn genauen code ned hab momentan nur es handy zur hand

while 
if
mouse alt 0 <> mouse new 0 or mouse alt 1 <> mouse new then
msgbox
mause wurde bewegt
.
.
.
.exit
endif
wend

ich hätte aber jetzt bei jeder bewegung

das er die while schleife von vorne anfäng

oder eben eine func

func(1)

sleep(600000)

run blabla

if

processexists(blablabla)

exit loop

endfunc

er soll dann halt bei jeder mausbewegung nicht das sleep dazu addieren sondern neu starten das es halt ab der letzten mausbewegung 10minuten sind die vergehen bis er eben weiter macht und eim gewisses programm beendet und ein anderes startet und die while shleife muss auch beendet werden nach ablauf der zeit bzw wenn das andere programm läuft

vl kann mir wer helfen danke

ist so ne art schutzmassnahme

danke für den tipp

sieht jetzt so aus und funktioniert

Func gui1()
    Local $hGUI1 = GUICreate("Gui 1", 117, 64, @DesktopWidth, @DesktopHeight, 0, 0) ;window left top
    Local $idButton2 = GUICtrlCreateButton("",0,0,117,64)
    $aWin = WinGetPos($hGUI1)
WinMove($hGUI1, "", @DesktopWidth - $aWin[0] - 40 , @DesktopHeight - $aWin[1] - 25)
        WinSetTrans( $hGUI1, '', 255 ) ; set transparent to 1 for invisible
        WinSetOnTop("Gui 1", '', 1) ; set window always on top
        GUISetState(@SW_SHOW)
    GUISetState()

ergänzung

hab mir ein kleines skript geschrieben um über den touch über nicht sichtbaren buttons/fenster die immer um vordergrund liegen das jeweilig laufende programm zu beenden und ein anderes zu starten

funktioniert dann so

click button1

click button2

hold shift+click button3

laufendes programm wird beendet

anderes wird gestartet

sleep 150 sek

programm wird beendet

anderes programm wird gestartet

die buttons sollten jeweils im linken oberen, rechten oberen, und rechten unteren eck des bildschirm liegen

soweit so gut für meine auflösung am laptob angepasst...

nur soll das ganze auf verschiedenen terminals laufen die alle irgednwie andere auflösungen haben

mal 1440x900 mal mit 1024x768 mal 2048x1024 usw

gibts jetzt ne möglichkeit die auflösung automatisch aus zu lesen und das skript bzw die positionen der fenster mit den buttons automatisch an zu passen

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")

     If Not ProcessExists("notepad.exe") Then ;check mainprogram is running
        Run("notepad.exe") ;if not start mainprogram
        EndIf

sleep(2000)


gui1()

Func gui1()
    Local $hGUI1 = GUICreate("Gui 1", 50, 65, -50, -25, 0, 0) ;window left top
    Local $idButton2 = GUICtrlCreateButton("",46, 0, 82, 40)
        WinSetTrans( $hGUI1, '', 255 ) ; set transparent to 1 for invisible
        WinSetOnTop("Gui 1", '', 1) ; set window always on top
        GUISetState(@SW_SHOW)
    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idButton2
                ; Disable the first GUI
                GUISetState(@SW_DISABLE, $hGUI1)
                gui2()
        EndSwitch
    WEnd
EndFunc   ;==>gui1

Func gui2()
    Local $hGUI2 = GUICreate("Gui 2", 85, 65, 1293, -25, 0, 0) ;window rigth top
    Local $idButton3 = GUICtrlCreateButton("", 0, 0, 82, 40)
        WinSetTrans( $hGUI2, '', 255 ) ; set transparent to 1 for invisible
        WinSetOnTop("Gui 2", '', 1) ; set window always on top
        GUISetState(@SW_SHOW)
    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idButton3
                ; Disable the first GUI
                GUISetState(@SW_DISABLE, $hGUI2)
                gui3()

        EndSwitch
    WEnd

EndFunc 

Func gui3()
    Local $hGUI3 = GUICreate("Gui 3", 85, 65, 1293, 700, 0, 0) ;window rigth down
    Local $idButton3 = GUICtrlCreateButton("", 0, 0, 82, 40)
            WinSetTrans( $hGUI3, '', 255 ) ; set transparent to 1 for invisible
        WinSetOnTop("Gui 3", '', 1) ; set window always on top

        GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idButton3
                If _IsPressed("10", $hDLL) Then ;hold shift + click button for action
                    ProcessClose("menu.exe")
                    sleep(2000)
                    run("C:\ATM\atm.exe")
                    sleep(150000)
                    processclose("atm.exe")
                    sleep(2000)
                    run("check config.exe")
                EndIf

        EndSwitch
    WEnd

EndFunc

so das wäre mal der ursprüngliche code...

die check config exe beendet dieses script und startet es nach einer gewissen zeit wieder neu

im prinzip gehts darum diese 2 zeilen automatisch an die bildschirmauflösung an zu passen

denn der erste button passt ja eigentlich immer

damit die positionen immer stimmen bzw die buttons immer im eck oben rechts und unten rechts liegen

Local $hGUI2 = GUICreate("Gui 2", 85, 65, 1293, -25, 0, 0) ;window rigth top

Local $hGUI3 = GUICreate("Gui 3", 85, 65, 1293, 700, 0, 0) ;window rigth down