Beiträge von Moombas

Entweder For Schleife in der neuen GUI die nach jeder Änderungsbestätigung die entsprechenden Aktionen durchführt oder (suboptimal) for schleife um die GUI und diese jedesmal ausblenden, neu befüllen und wieder einblenden.

So lange bis das für die letzte markierte Datei der Fall ist und dann die Auswahl in der Listbox aufheben.

Hmm, stimmt was MojoeB sagt, eine Inputbox jedesmal entsprechend mit Defaultwerten befüllen und deren Ausgabe zum Umbennen nehmen, müsste auch gehen.

Eventuell würde es helfen, wenn du deinen ganzen code posten würdest und aufzeigst wo du konkret nicht weiter kommst.

+ einem sample der beiden Formulare

Kein Problem, musste nur schmunzeln, das du fast 1:1 die gleiche Frage zu scheinbar fast 1:1 dem gleichen Problem schon mal hattest.

Achja: Der Google Suchbegriff war "autoit arraysearch wildcard" fürs nächste mal vielleicht

Kleiner Hinweis zu deinem eigenen Post: Wildcards in Suchstring bei _ArrayFindAll

Warum machst du es nicht 2 geteilt?

Arraysearch für z.B. "HWiNFO64" und dann durchsuchst du die Ergebnisse (nur benötigt, falls mehr als 1!) mit 2. Arraysearch nach "- System-" und solltest dann doch max. 1 Eintrag finden!?

hipfzwirgel : Was gibt denn @error aus? (Du musst dazu den direkten Arrayzugriff entfernen) bzw. prüfe ob dein $hCombo auch wirklich einen gültigen Wert enthält.

Bin ich jetzt verkehrt? Er spricht doch das Array von _WinAPI_EnumChildWindows an und nicht vom GetHandle. water

MiX-MoX Ich sag es dir ganz ehrlich: Du schaust hier regelmäßig rein und mein "Fix" scheint ja zu funktionieren, denn sonst wärst du sicherlich mit einer negativen Meldung um die Ecke gekommen aber dann nicht mal ein "Danke" und/oder Feedback da zu lassen finde ich nicht gut und wird dafür sorgen, das (zumindest mich betreffend) es sein kann, das dir nicht mehr geholfen wird.

mumpel: Im Prinzip ist das so, aber Ordner können nicht an die Taskleiste angeheftet werden (und somit die gewünschte Funktionalität herzustellen). Nur der Explorer selber, dem dann div. Ordner angeheftet werden können (entspricht nicht der gewünschten Funktionalität). (Das ist auch bei mir bisher bekannten Workarounds zum Anheften von Ordnern so.)

Raleigh : Das kann so nicht hin hauen. Ich habe meine oben angesprochene Korrektur auf deinen Beitrag #29 bezogen.

Dort kommt $iClick NUR in Zeile 49 vor und wird somit nicht benötigt.

Auch fehlt dort die Globale deklaration von $oSession, weshalb dein vorheriger angesprochener Fehler (Zeile 35) her rührt und mit meiner oben angepsrochenen Korrektur (Zeile 10) behoben wird.

Wie soll man dir helfen, wenn du zwischen unterschiedlichen Codes hin und her springst?...

mumpel, nein es geht ihm darum die Desktop icons über die Taskleiste auszuwählen, werden dort dann als Liste ausgegeben.

Das gibt es unter W11 so nicht mehr.

Ändere mal Zeile 10:

Global $sStd, $sMin, $oSession, $iclick = False

Korrektur:

Global $sStd, $sMin, $oSession

UND entferne Zeile 49

$iClick wird nicht benötigt soweit ich es sehe

Das war auf das Startmenü in W11 gemünzt (was ich davor erwähnt hatte; siehe Bild) nicht auf dein Tool. Sorry für die Verwirrung.

BTW: Das Pinnen an die Startleiste hat den Vorteil, das man ins Rechtsklick menü direkt Dateien hinterlegen kann (spart eine Menge icons auf dem Desktop^^):

Hmm, ok das habe ich nie genutzt und in W11 nutze ich stattdessen das Starmenü mit den pinned icons (was Funktional natürlich dann ~dem auf dem Desktop entspricht). Nur den unteren Teil mit den Empfehlungen würde ich noch gerne ganz los werden

Aber für die, die das bisher genutzt haben sicherlich gut.

Es gibt bzgl. $iClick keinen Unterschied zwischen deiner und meiner Variante.

Nur das du fest auf 0 oder eins geschaut hast und exakt darauf prüfen musst, ich dies aber durch false und true ersetzt habe wodurch man dann bei einer abfrage einfach If $iClick then bzw. if not $iClick then nutzen kann. Da du nur 2 Zustände brauchst, bietet sich hier bool an.

Im schlimmsten Fall wird die Ansage doppelt getriggert (die Schleife läuft auf den Wert + Adlib hat seine 30min. erreicht), aber generell ist es eine "Dopplung" und macht das adlib eigentlich unnötig. Teste doch mal was passeirt wenn du es auskommentierst ob es noch so läuft wie erwartet.

Zitat von Velted

Hallo,

ich möchte nur darauf hinweisen, dass das von Moombas im Beitrag #18 eingestellte Skript zwei voneinander unabhängige Zeitsteuerungen hat. Eine in der While Schleife und eine zweite über AdlibRegister(). Ist das wirklich so gewollt?

Da hast du recht und darauf habe ich selber nicht geprüft bzw. weiter Gedanken zu gemacht , sondern nur einzelne Stellen in dem Script von Raleigh bearbeitet (#16). Ich würde den adlib Part auch raus lassen!

Dein Code mal lesbar:

#include <advfha_proc.au3>
#include <Array.au3>

;Restored das Firefox-Fenster sollte es minimiert werden
local $alleFenster
local $fenster
local $status

do    
    sleep (500)    
    $alleFenster = WinList ()    
;   _ArrayDisplay ($alleFenster)    
    $fenster = ""  
  
    for $i = 1 to UBound ($alleFenster) -1        
        $ret = $alleFenster[$i][0]        
        if StringInStr ($ret, "Mozilla Firefox") Then            
            $fenster = $ret       
        EndIf    
    Next    

    if $fenster <> "" Then        
        $status = WinGetState ($fenster)        
        if (BitAND ($status, 16)) = 16 Then                
            ;Fenster ist Minimiert und nichts anderes            
            $ret = WinSetState ($fenster, "", @SW_RESTORE)        
        EndIf    
    EndIf
until 1=2

Hier mal dein Script leicht abgeänder und ich sehe das wie Mojo bzgl. beenden (Änderungen: Siehe Kommentare):

Opt('MustDeclareVars', 1)
#include <wd_helper.au3>
#include <wd_capabilities.au3>
#include <Date.au3>

;Hotkey eingebaut zum beenden des Programms, da aktuell keine Bedingung zum Beenden vorhanden ist.
HotKeySet("{ESC}", "beenden")

;Unbenötigte Variablen entfernt, anstatt auf 0 oder 1 zu prüfen, true und false genutzt, endtime als Name irreführend, daher umbenannt
Global $oSession, $iclick = False
Global Const $specialtime = '22:08:00', $itime_1 = '06', $itime_2 = '10', $itime_adl = 1800000

start() ;Auch wenn bei 30min warten unwahrscheinlich ist das PRobleme auftreten, sollte der WD gestartet werden bevor "Adlib_ansage" durch Adlibregister ausgfeührt werden könnte. Daher Reihenfolge getauscht
AdlibRegister('Adlib_ansage', $itime_adl)

While 1 ;die Prüfung auf $end machte keinen Sinn, die Funktion beenden() einfach dort aufrufen wo sie benötigt wird (aktuell nicht genutzt)
    Sleep(50) ;einfach um die prozessorlast unten zu halten.

    If not $iclick Then
        If _NowTime() = $specialtime Then
            Uhr_ansagen()
            Sleep(10000);es dauert etwas bis die Ansage anläuft deshalb hier nochmal schlafen.
;           Exitloop
        ElseIf StringSplit(_NowTime(), ':')[2] = $itime_1 And StringSplit(_NowTime(), ':')[3] = '00' Then
            Uhr_ansagen()
            ConsoleWrite('ANSAGE : ' & _NowTime() & 'Uhr ELSEIF ! 1!' & @CRLF)
        ElseIf StringSplit(_NowTime(), ':')[2] = $itime_2 And StringSplit(_NowTime(), ':')[3] = '00' Then
            Uhr_ansagen()
            ConsoleWrite('ANSAGE : ' & _NowTime() & 'Uhr ELSEIF ! 2!' & @CRLF)
        EndIf
    ElseIf $iclick Then
        Sleep(1000) ;Schlaf ca. 1sec
        $iclick = False
    EndIf
WEnd
beenden()

;Variablen umsortiert (Deklarationen mittem im Code sind unschön) und eine Lokal gesetzt da außerhalb nicht genutzt
Func start()
Local Const $sLocalFilePath = @ScriptDir & '\talk.html'
Local Const $sLocalFileURL  = "file:///" & StringReplace($sLocalFilePath, "\", "/")
Local $capsi = SetupEdge()
    $oSession = _WD_CreateSession($capsi)
    _WD_Navigate($oSession, $sLocalFileURL)
    Uhr_ansagen()
    ConsoleWrite('ANSAGE : ' & _NowTime() & 'Uhr PER START!!!!' & @CRLF)
EndFunc   ;==>start

Func Adlib_ansage()
    Uhr_ansagen()
    ConsoleWrite('ANSAGE : ' & _NowTime() & 'Uhr PER ADLIB!!!!' & @CRLF)
EndFunc   ;==>Adlib_ansage

Func Uhr_ansagen()
Local $element = _WD_FindElement($oSession, 'xpath', '//*[@id="clockID"]')
    _WD_ElementAction($oSession, $element, 'Click')
    $iclick = True
EndFunc   ;==>Uhr_ansagen

Func beenden()
    _WD_DeleteSession($oSession)
    _WD_Shutdown()
    ConsoleWrite('Script wurde Erfolgreich beendet.' & @CRLF)
    Exit
EndFunc   ;==>beenden

;Variablen umsortiert (Deklarationen mittem im Code sind unschön) und eine entfernt, da direkt über Return zurück gegeben werden kann
Func SetupEdge()
Local $hWnd
    _WD_UpdateDriver("msedge", @ScriptDir)
    _WD_Option('Driver', @ScriptDir & '\msedgedriver.exe')
    _WD_Option('Port', 9515)
    _WD_Startup()
    ; Startparameter sammeln
    _WD_CapabilitiesStartup()
    _WD_CapabilitiesAdd('alwaysMatch', 'msedge')
    _WD_CapabilitiesAdd('excludeSwitches', 'enable-automation')
    _WD_CapabilitiesAdd('args', 'guest')
    _WD_CapabilitiesDump(@ScriptLineNumber)
    _WD_CapabilitiesAdd('args', '--headless')
    $hWnd = WinWait("[CLASS:ConsoleWindowClass]", "", 10)
    WinSetState($hWnd, "", @SW_HIDE)
    Return _WD_CapabilitiesGet()
EndFunc   ;==>SetupEdge

MiX-MoX : Wie sieht es aus, welche Variante ist das was du gesucht hast und funktioniert es so wie erwartet?