Function("Text0", "Text1", "Text2")
Func Function($w0 = "", $w1 = "", $w2 = "", $w3 = "", $w4 = "", $w5 = "", $w6 = "", $w7 = "", $w8 = "", $w9 = "")
For $i = 0 To 9
$xx = Eval("w" & $i)
If $xx = "" Then ExitLoop
;~ Protocol("$xx::"&$xx)
ConsoleWrite($xx & @CRLF)
;~ MsgBox(0,"",$xx)
Next
EndFunc ;==>FunctionIch verwende Torrents und vergleiche den Datei-Hash mit dem der Original-Website. Der Name „Sergei Strelec“ ist bekannt, und der Rest ist leicht über Google zu finden.
Vielleicht können Sie dieses ISO als Grundlage für Ihr Projekt verwenden? Dieses ISO funktioniert sehr gut.
Ich habe das Beispiel in "Sergei Strelec" getestet und es funktioniert
4) Argumente ohne Sinn... von wegen Stromausfall....
Hmm, das war ich.
Oh, sieh mal einer an, ich habe den Blockieren-Button gefunden.
Außerdem kann eine Datenbank-Engine einen Stromausfall in jeder Phase des Schreibvorgangs überstehen, ohne dass die gesamte Datenbank verloren geht. Das ist ebenfalls sehr wichtig. 
Ich stimme der Aussage im obigen Beitrag zu 100 % zu und habe nicht gepostet, weil „andere offenbar nicht streiten wollen“ auch mich einschließt
Ich habe ein Testskript (Link oben) für den Patch von ioa747 erstellt, um AM/PM in die Date.au3-UDF zu integrieren.
Ich würde mich freuen, wenn Sie es ausprobieren und mir mitteilen könnten, ob es bei Ihnen funktioniert.
Vielen Dank.
Ich hatte ein Video im Hintergrund laufen 
Target fps: 30
Recording time: 20 seconds
Recording screen dim: 2560 x 1080
Starting fullscreen capturing in 3 seconds...
kmin: 24
kmax: 38
ellapsed: 20.23877710010856 seconds
frames captured: 439 21.69103389145213 fps
frame index: 439 21.69103389145213 fps
delta : 0 0 %
total frames: 600 target fps 30 delta: 0.7316666666666667 %
File size: 838094 bytes
DoneDie aufgenommene Datei sieht gut aus, wenn sie abgespielt wird.
Keine Filmqualität, aber gut für Screenshots.
Es erkannte problemlos den Hauptmonitor zwischen den beiden.
#include <Array.au3>
Exit CloseAllThemArrayDisplay()
Func CloseAllThemArrayDisplay()
Local $sText, $aArray = WinList("[CLASS:AutoIt v3 GUI;]", "@ArrayDisplayInternals@GUIidentifier@")
For $n = UBound($aArray) -1 To 1 Step -1
$sText = WinGetText($aArray[$n][0])
ConsoleWrite($n & @TAB & $sText & @CRLF)
If StringInStr($sText, "@ArrayDisplayInternals@GUIidentifier@") <> 1 Then
_ArrayDelete($aArray, $n)
$aArray[0][0] -= 1
EndIf
Next
_ArrayDisplay($aArray, "@ArrayDisplayInternals@GUIidentifier@")
For $n = 1 To UBound($aArray) -1
; You do your closing WinClose() or WinKill() or ... anything
WinClose($aArray[$n][0])
Next
EndFuncIch habe den Code geändert, weil er einen unschönen Fehler hatte. Und ich habe einen Bezeichner hinzugefügt, damit man die Fenster gesammelt finden und mit so etwas wie dem obigen Skript schließen kann.
Der Code ist für sehr seltenen Randfälle gedacht, bei denen der Benutzer über das Systemtray-Icon beenden würde, während „ArrayDisplay“ angezeigt wird. Die Änderung ist nicht entscheidend für das Ausführen von Skripten, aber sie war etwas, das Aufmerksamkeit benötigte, da der Prozess nicht beendet werden konnte – weder das Tray-Icon noch die Benutzeroberfläche wurde angezeigt. Im Grunde blieb der Prozess hängen.
Local $hGUI = GUICreate(...
GUICtrlCreateLabel("@ArrayDisplayInternals@GUIidentifier@", 0, -10, 0, 0) ; add this @Mars
...
; Switch to GetMessage mode
Local $iOnEventMode = Opt("GUIOnEventMode", 0), $aMsg
ConsoleWrite("__ArrayDisplay_Share() loadded in: " & TimerDiff($hRetTimer) & @CRLF)
__ArrayDisplay_OnExit_CleanUp(1, $hGUI, $iCoordMode, $iOnEventMode, $_iCallerError, $_iCallerExtended, $p__ArrayDisplay_NotifyHandler) ; add this
OnAutoItExitRegister(__ArrayDisplay_OnExit_CleanUp) ; add this
...
; Pass array and selection to user function
$hUser_Function($_g_ArrayDisplay_aArray, $aiSelItems)
$_g_ArrayDisplay_bUserFunc = False
OnAutoItExitUnRegister(__ArrayDisplay_OnExit_CleanUp) ; add this
...
#EndRegion GUI Handling events
OnAutoItExitUnRegister(__ArrayDisplay_OnExit_CleanUp) ; add this
__ArrayDisplay_CleanUp($hGUI, $iCoordMode, $iOnEventMode, $_iCallerError, $_iCallerExtended, $p__ArrayDisplay_NotifyHandler)
...
Func __ArrayDisplay_OnExit_CleanUp($iInit = 0, $hGUI = "", $iCoordMode = "", $iOnEventMode = "", $_iCallerError = "", $_iCallerExtended = "", $p__ArrayDisplay_NotifyHandler = "")
#forceref $iInit
Local Static $Saved_hGUI = "", $Saved_iCoordMode = "", $Saved_iOnEventMode = "", $Saved__iCallerError = "", $Saved__iCallerExtended = "", $Saved_p__ArrayDisplay_NotifyHandler = ""
ConsoleWrite('"ArrayDisplayInternals.au3" (' & @ScriptLineNumber & ') : Func __ArrayDisplay_OnExit_CleanUp(' & Eval("hGUI") & ') - $Saved_hGUI = ' & $Saved_hGUI & @CRLF)
If Int(Eval("iInit")) Then
If IsHWnd($hGUI) Then
$Saved_hGUI = $hGUI
$Saved_iCoordMode = $iCoordMode
$Saved_iOnEventMode = $iOnEventMode
$Saved__iCallerError = $_iCallerError
$Saved__iCallerExtended = $_iCallerExtended
$Saved_p__ArrayDisplay_NotifyHandler = $p__ArrayDisplay_NotifyHandler
EndIf
Else
If $Saved_hGUI Then __ArrayDisplay_CleanUp($Saved_hGUI, $Saved_iCoordMode, $Saved_iOnEventMode, $Saved__iCallerError, $Saved__iCallerExtended, $Saved_p__ArrayDisplay_NotifyHandler)
EndIf
EndFunc ;==>__ArrayDisplay_OnExit_CleanUpDies behebt das Hoppla
Ich werde diesen Fix für die nächste Beta vorschlagen
...
GUISetState(@SW_SHOW, $hAlarmPopup)
WinSetOnTop($hAlarmPopup, "", 1)
...Andernfalls ist das Popup möglicherweise nicht sichtbar.
Vielen Dank fürs Teilen 
bei bedarf oder wunsch wuerde ich den
entsprechenden code auch von der python version posten, aber ich denke
das wird hier nicht noetig sein?
Ich muss mich mit Python beschäftigen, da ich angefangen habe, mit LLMs zu spielen, und das ist alles Python. Daher würde ich das Python-Gegenstück begrüßen.
Moombas : vorhin war das beispiel von aspirinjunkie noch NICHT da.
Dies hätte der Beitrag ohne das Drama sein können. Mein Penny der Weisheit
ConsoleWrite('>>> ' & _DateDiffMs('2021/08/16 13:25:08.727', '2021/08/16 13:25:08.729') & @CRLF)
Func _DateDiffMs($sDate1st, $sDate2nd)
Local $iDate1st, $aDate1st = StringSplit($sDate1st, ".")
ReDim $aDate1st[3]
Local $iDate2nd, $aDate2nd = StringSplit($sDate2nd, ".")
ReDim $aDate2nd[3]
Local $iDate1st = _DateDiff('s', '1970/01/01 00:00:00', $aDate1st[1])
Local $iDate2nd = _DateDiff('s', '1970/01/01 00:00:00', $aDate2nd[1])
$iDate1st &= "000"
$iDate2nd &= "000"
$iDate1st += Int($aDate1st[2])
$iDate2nd += Int($aDate2nd[2])
Return ( $iDate2nd - $iDate1st ) / 1000
EndFunc....
also nicht immer verbal mit der kelle zuschlagen, nur weil man nicht genau weiss was der sinn dahinter ist.
Ich muss alles aus einer anderen Sprache übersetzen und ich sehe nirgendwo Schmähwörter oder offensive Texte.
Auto-magic
#include <Timers.au3>
HotKeySet("{ESC}", _HotKeySetExit)
Func _HotKeySetExit() ; just in case
Exit
EndFunc ;==>_HotKeySetExit
Global $g_iIdle = 60 * 1000 ; a minute
main()
Func main()
If $CmdLine[0] Then
If Int($CmdLine[1]) > 59 Then
$g_iIdle = Int($CmdLine[1]) * 1000 ; cmdline in seconds
EndIf
EndIf
;~ $g_iIdle = 1000 ; testing
AdlibRegister(OhMyMouse, 5000)
While Sleep(50)
WEnd
EndFunc ;==>main
Func OhMyMouse()
If _Timer_GetIdleTime() < $g_iIdle Then Return
MouseMove(Random(0, @DesktopWidth, 1), Random(0, @DesktopHeight, 1))
EndFunc ;==>OhMyMouselol, ich habe den Beitrag oben nicht gelesen ( AspirinJunkie 's )
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
;~ HotKeySet("{ESC}", _HotKeySetExit)
;~ Func _HotKeySetExit() ; just in case
;~ Exit
;~ EndFunc ;==>_HotKeySetExit
Global $Window = GUICreate("mouse - mouseing it!", 305, 185, -1, -1)
Global $File = GUICtrlCreateMenu("File")
Global $StartFile = GUICtrlCreateMenuItem("Start Mouse", $File)
Global $StopFile = GUICtrlCreateMenuItem("Stop Mouse", $File)
Global $ExitFile = GUICtrlCreateMenuItem("Exit Mouse", $File)
Global $Help = GUICtrlCreateMenu("Help")
Global $Info = GUICtrlCreateMenuItem("Infobox", $Help)
Global $About = GUICtrlCreateMenuItem("About", $Help)
Global $Mousefield = GUICtrlCreateGroup("Mousefield", 128, 16, 161, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $StartCheck = GUICtrlCreateCheckbox("Start Mouse", 24, 32, 81, 17)
Global $Stop = GUICtrlCreateButton("Reset/Stop", 16, 80, 95, 25)
Global $ExitBut = GUICtrlCreateButton("EXIT", 16, 112, 95, 25)
GUISetState(@SW_SHOW)
Global $dancing = False
Global $step = 0
Global $positions[4][2] = [[15, 15], [118, 15], [118, 90], [15, 90]] ; Relative Positionen in der GUI
Global $lastMoveTime = TimerInit()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $ExitBut, $ExitFile
Exit
Case $StartCheck
If GUICtrlRead($StartCheck) = 1 Then
$dancing = True
$step = 0 ; Reset dance
$lastMoveTime = TimerInit()
EndIf
Case $StartFile
GUICtrlSetState($StartCheck, $GUI_CHECKED)
If GUICtrlRead($StartCheck) = 1 Then
$dancing = True
$step = 0 ; Reset dance
$lastMoveTime = TimerInit()
EndIf
Case $Stop, $StopFile
$dancing = False
GUICtrlSetState($StartCheck, $GUI_UNCHECKED)
EndSwitch
dancing($dancing)
; Aktiviere die tanzende Maus nur wenn Checkbox gecheckt ist
WEnd
Func dancing($dancing)
Local Static $windowPos
If $dancing Then
If TimerDiff($lastMoveTime) > 5000 Then
; Hole Koordianten vom der linken oberen Ecke des GUI-Fensters
Local $iState = WinGetState($Window)
If @error Then Return
If Not BitAND($iState, $WIN_STATE_MINIMIZED) Then
$windowPos = WinGetPos($Window)
If @error Then Return
EndIf
Local $windowX = $windowPos[0]
Local $windowY = $windowPos[1]
; Definiere die Bewegungsposition innerhalb des Fensters(Mousefield)
Local $fieldX = 140 ; X position relativ zum GUI-Fenster
Local $fieldY = 65 ; Y position relativ zum GUI-Fenster
Local $fieldWidth = 161 ; Breite von Mousefield
Local $fieldHeight = 121 ; Hoehe of Mousefield
; Berechne nun die neue Positionen
Local $xPos = $positions[$step][0] + $fieldX + $windowX
Local $yPos = $positions[$step][1] + $fieldY + $windowY
; Stelle sicher das die relative Abhaengigkeit gewaehrleistet bleibt.
If $xPos < $windowX + $fieldX Then $xPos = $windowX + $fieldX
If $yPos < $windowY + $fieldY Then $yPos = $windowY + $fieldY
If $xPos > $windowX + $fieldX + $fieldWidth Then $xPos = $windowX + $fieldX + $fieldWidth
If $yPos > $windowY + $fieldY + $fieldHeight Then $yPos = $windowY + $fieldY + $fieldHeight
; Setze den Mauszeiger an die berechnete Stelle
MouseMove($xPos, $yPos, 10)
$step += 1
If $step >= UBound($positions) Then $step = 0
$lastMoveTime = TimerInit()
EndIf
EndIf
EndFunc ;==>dancing