Wenn Script läuft, wird arbeiten am PC unmöglich

Hallo,

Ich stoße auf folgendes Problem. Seit kurzen nutze ich wieder ein Script von Autoit. Dieses aktiviert das gewünschte Fenster gibt eine Tastenkombination eun unf fertig. Noch 40 Sekunden wird der vorgang wiederholt.

Leider macht mir dies das arbeiten in dieser Zeit an meinem PC unmöglich. z.B schreibe ich einen Bericht in Word, wird alle 40 sekunden das andere Programm aktiviert dann muss ich erst wieder auf word klicken damit ich nicht im andern Fenster weiter schreibe.

Wie könnte ich ein solches Problem umgehen?

Betriebssystem Windows 7

Liebe Grüße

Flubber

Hallo,

Das Programm welches ich nutze heißt Latex, Ich lasse dieses 4 mal parallel laufen. Folgendes soll mein Skript ausführen. Es soll ein Version von Latex wählen, dann "Enter" "Pfeil noch oben" "Enter" drücken (nacheinander), dann durch einen ermittelten Zeitpunkt welches Zufallsmäßig aus einer von mir zuvor festgelegten Zeitspanne ausgewählt wird den Vorgang wiederholen.
Das soll mit jeder Version von Latex unabhängig voneinander passieren. Dazu habe ich folgendes Skript benutzt.

Nun möchte ich aber am PC weiter arbeiten und nicht jedesmal unterbrochen werden wen Latex eine seiner 4 Versionen wählt.

Mein Skript

#include <GUIConstantsEx.au3>


Global $Input[9], $random[4], $time[4], $titles[4] = ["Latex1", "Latex2", "Latex3", "Latex4"], $values[4][2]


$GUI = GUICreate("Klicker :D", 234, 185, 477, 526)
$ButtonStart = GUICtrlCreateButton("Start", 8, 128, 219, 25, 0)
$ButtonStop = GUICtrlCreateButton("Stop", 8, 152, 219, 25, 0)
$Label1 = GUICtrlCreateLabel("Fenster 1", 8, 36, 48, 17)
$Label2 = GUICtrlCreateLabel("Fenster 2", 8, 60, 48, 17)
$Label3 = GUICtrlCreateLabel("Fenster 3", 8, 83, 48, 17)
$Label4 = GUICtrlCreateLabel("Fenster 4", 8, 108, 48, 17)
$Label5 = GUICtrlCreateLabel("Minimum", 77, 8, 45, 17)
$Label6 = GUICtrlCreateLabel("Maximum", 163, 8, 48, 17)
$Input[1] = GUICtrlCreateInput("", 64, 32, 73, 21)
$Input[2] = GUICtrlCreateInput("", 152, 32, 73, 21)
$Input[3] = GUICtrlCreateInput("", 64, 56, 73, 21)
$Input[4] = GUICtrlCreateInput("", 152, 56, 73, 21)
$Input[5] = GUICtrlCreateInput("", 64, 80, 73, 21)
$Input[6] = GUICtrlCreateInput("", 152, 80, 73, 21)
$Input[7] = GUICtrlCreateInput("", 64, 104, 73, 21)
$Input[8] = GUICtrlCreateInput("", 152, 104, 73, 21)


GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $ButtonStop
            Exit
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonStart

            GUICtrlSetState($ButtonStart, $GUI_DISABLE)
            For $i = 1 To 8
                If Not StringIsInt(GUICtrlRead($Input[$i])) Then

                    MsgBox(16, "Error", "Eingaben unvollständig!")
                    GUICtrlSetState($ButtonStart, $GUI_ENABLE)
                    ContinueCase
                EndIf
            Next

            For $i = 0 To 7 Step 2
                $values[$i / 2][0] = GUICtrlRead($Input[$i + 1])
            Next
            For $i = 1 To 8 Step 2
                $values[$i / 2][1] = GUICtrlRead($Input[$i + 1])
            Next

            For $i = 1 To 8 Step 2
                If GUICtrlRead($Input[$i]) >= GUICtrlRead($Input[$i + 1]) Then
                    MsgBox(16, "Error", "Max muss größer als Min sein!")
                    GUICtrlSetState($ButtonStart, $GUI_ENABLE)
                    ContinueCase
                EndIf
                $random[$i / 2 - 0.5] = (Random(GUICtrlRead($Input[$i]) * 1000, GUICtrlRead($Input[$i + 1]) * 1000, 1))
            Next

            For $i = 0 To 3
                $time[$i] = TimerInit()
                _sendkeys($titles[$i])
            Next


            While 1
                For $i = 0 To 3
                    If Int(TimerDiff($time[$i])) >= $random[$i] Then
                        _sendkeys($titles[$i])
                        $time[$i] = TimerInit()
                        $random[$i] = (Random($values[$i][0] * 1000, $values[$i][1] * 1000, 1))
                    EndIf
                Next
            WEnd
    EndSwitch
WEnd


Func _sendkeys($windowtitle)
    WinActivate($windowtitle)
    WinWaitActive($windowtitle, "", 5)
    SendKeepActive($windowtitle)
	Sleep(2000)
    Send("{Enter}")
    Send("{UP}")
    Send("{Enter}")
EndFunc   ;==>_sendkeys

Zitat

du könntest vor dem aktivieren des "Unterfensters" die Mausposition und den Fenstername des aktiven Fensters auslesen und nach dem du die Tastenkombination im "Unterfenster" ausgeführt hast, das gespeicherte Fenster wieder aufrufen und die Mausposition wieder auf die vorherige Position setzen.

Schau dir dazu mal dei Befehle an:
WinGetTitle
MouseGetPos
WinActivate
MouseMove

Hmm, ich glaube nicht das dies meine Lösung sein wird. Es werden immer Textteile beim schreiben eines Berichtes verloren gehen wen Autoit Latex öffnet. Ich glaube ich bekomme dabei zuviele Unterbrechungen.

Zitat

Also so ganz den Sinn des Programms hab ich noch nicht verstanden. Wozu ist Latex gut? Sofern ich nicht zu doof zum googlen war ist Latex doch selbst eine Scriptsprache um Makros für Tex (Programm zur Darstellung von mathematischen Zeichen) zu erstellen ???
Was bewirkt denn das zufällige senden der Tastenkombination an das Latex Fenster?

Vom Sinn abgesehen gibt es vermutlich auch andere Wege Kommandos an das Fenster zu schicken die keinen Fensterfocus erfordern. Schau dir dazu die control****** Funktionen in der Hilfe an.

Ich starte mit latex eine chemische Reaktion. Jedesmal wird mit dem Tasten druck "enter" "up" "enter" eine neue Reaktion eingeleitet. Diese Startet immer zufallsmäßig in dem von mir vorgegebenen Zeitraum.

Wie meinst du das mit dem Fensterfocus? Infos ans Fenster senden ohne dies aktiv werden zu lassen? Das wäre die lösung für mein Problem!

Liebe Grüße

Flubber

Ohje, da füchte ich brauche ich ziemlich viel Hilfe.

Beim Script hat mir schon ein bekannter geholfen. Irgendwie stehe ich mit autoit auf dem Kriegsguß (leider)

Aber ich würde es wiefolgt angehen.

Bis Zeile 75 würde ich das Script so stehen lassen. den hier wird ja noch nichts gesendet.

Und im letzten teil würde ich wiefolgt forgehen.

Aus

Zitat

Func _sendkeys($windowtitle)
WinActivate($windowtitle)
WinWaitActive($windowtitle, "", 5)
SendKeepActive($windowtitle)
Sleep(2000)
Send("{Enter}")
Send("{UP}")
Send("{Enter}")
EndFunc ;==>_sendkeys

Alles anzeigen

wird

Zitat

Func _sendkeys($windowtitle)
ControlSend ( "$windowtitle", "text", controlID, "{Enter}")
ControlSend ( "$windowtitle", "text", controlID, "{UP}")
ControlSend ( "$windowtitle", "text", controlID, "{Enter}")
EndFunc ;==>_sendkeys

Leider bin ich mir unsicher was "Text" und "Controlid" beihnhalten soll

Liebe Grüße

Flubber

Also,

Ich habe versucht mit Window Info die Classe und die Instance zu identifizieren.

Jedoch steht werder in der classe noch in der Instance ein Eintrag. darauf hin habe ich es folgendermaßen in mein Skript geschrieben

ControlSend ( "$windowtitle", "", "", "{Enter}")
ControlSend ( "$windowtitle", "", "", "{UP}")
ControlSend ( "$windowtitle", "", "", "{Enter}")

Leider funktionert mein Skript nun nichtmehr! Was läuft falsch?

Liebe Grüße

Flubber

Hi

Ich habe die Anführungszeichen weg genommen. Nun läuft es perfekt

Es gibt doch eine möglichkeit wo ich das Skript testweise laufen lassen kann um zu sehen welche Zahlen genau aus dem Randomwert ermittetlt werden oder?