1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Alina

Beiträge von Alina

  • Komplette GUI als "Button"

    • Alina
    • 4. Februar 2024 um 04:35

    Meinst Du soetwas?

    Zur Zeit sind die Buttons beim Start versteckt. Klicks Du einmal in die GUI erscheinen die Buttons, beim zweiten klicken in die GUI sind diese wieder weg.

    edit: funktioniert jetzt:
    Jetzt muss man es nur noch hinbekommen, das es nicht nur einmal funktioniert das die Buttons erscheinen und wieder weg sind. Vielleicht kann da jemand anderes helfen. Wenn es denn das gesuchte ist.

    edit: funktioniert jetzt auch:
    Das schließen der GUI funktioniert noch nicht über das Kreuz. Muss noch angepasst werden. Aber jetzt nicht mehr um diese Zeit. ;)

    Spoiler anzeigen
    AutoIt
    #include <GUIConstants.au3>
    
    Global $btn1, $btn2, $btn3
    Global $buttonsVisible = False
    Global $GUIActive = True
    
    Main()
    
    Func Main()
    	GUICreate("Buttons SHOW HIDE", 300, 200)
    	GUISetState(@SW_SHOW)
    	GUIRegisterMsg($WM_LBUTTONDOWN, "OnMouseDown")
    	While $GUIActive
    		$Msg = GUIGetMsg()
    		Switch $Msg
    			Case $GUI_EVENT_CLOSE
    				OnClose()
    		EndSwitch
    		Sleep(100)
    	WEnd
    EndFunc   ;==>Main
    
    Func OnMouseDown($hWnd, $Msg, $wParam, $lParam)
    	If Not $buttonsVisible Then
    		ShowButtons()
    	Else
    		HideButtons()
    	EndIf
    EndFunc   ;==>OnMouseDown
    
    Func ShowButtons()
    	If Not $buttonsVisible Then
    		$btn1 = GUICtrlCreateButton("Button 1", 50, 50, 100, 30)
    		$btn2 = GUICtrlCreateButton("Button 2", 50, 100, 100, 30)
    		$btn3 = GUICtrlCreateButton("Button 3", 50, 150, 100, 30)
    		GUICtrlSetState($btn1, $GUI_SHOW)
    		GUICtrlSetState($btn2, $GUI_SHOW)
    		GUICtrlSetState($btn3, $GUI_SHOW)
    		$buttonsVisible = True
    	EndIf
    EndFunc   ;==>ShowButtons
    
    Func HideButtons()
    	If $buttonsVisible Then
    		GUICtrlSetState($btn1, $GUI_HIDE)
    		GUICtrlSetState($btn2, $GUI_HIDE)
    		GUICtrlSetState($btn3, $GUI_HIDE)
    		$buttonsVisible = False
    	EndIf
    EndFunc   ;==>HideButtons
    
    Func OnClose()
    	$GUIActive = False
    	Exit
    EndFunc   ;==>OnClose
    Alles anzeigen
  • ASCII-Art

    • Alina
    • 4. Februar 2024 um 01:04

    So sah meine erste berufliche Schreibmaschine mit Diskettenlaufwerk aus.


    Sie befand sich noch im Büroregal bis wir Flensburg verlassen haben. Warum wir sie nie entsorgt
    haben weiß ich nicht.

    Das schöne war, man benötigte kein TipEx oder Berichtigungsband mehr.

    Danach hatten wir ein Schreibprogramm das unter MS-Dos lief. Leider weiß ich nicht mehr wie
    das hieß. Gibt es soetwas heute eigentlich noch bzw. bekommt man das von früher noch irgendwo
    her und könnte es sogar noch auf heutigen PCs laufen?

    erste_berufsschreibmaschine.jpg

  • Mein neuer Zeitvertrieb

    • Alina
    • 31. Januar 2024 um 20:15

    Ich liebe alles was mit Rätzeln zu tun hat und den "Cryptex" habe ich ohne irgendwelche Gebrauchsanweisungen / Lösungshilfen in unter 45 Minuten gelöst. Nach dem Lösen habe ich das Lösungswort in "AUTOIT" umgestellt.


    Wo findet man solche Rätzelboxen. Sie müssen nicht aus Holz sein, aber gerne ohne Standartlösungswort, sondern mit einem individuellem Passwort. Und sehr gerne, wenn es das irgendwo gibt größer oder sehr viel größer vom Volumen her !!! :party:

  • Community Projekt: Teil 2 - Umgang mit Discord, Git, GitHub, gemeinsamen Tooling

    • Alina
    • 31. Januar 2024 um 19:51

    Ich danke Euch beiden für die Erklärung und schön das ich somit wohl nichts "lebenswichtiges" verpasst habe. :klatschen:

  • Community Projekt: Teil 2 - Umgang mit Discord, Git, GitHub, gemeinsamen Tooling

    • Alina
    • 31. Januar 2024 um 17:44
    Zitat von SOLVE-SMART
    • Habt ihr (die Projektinteressenten) Erfahrungswerte mit GitHub und somit auch mit Git?

    Was ist GitHub / Git ???
    Habe ich noch nie mit gearbeitet und weiß darüber so gut wie nicht, um nicht zu sagen "gar nichts". ;(

  • Community Projekt: Teil 1 - Interesse an einem gemeinsamen größeren (Software)Projekt?

    • Alina
    • 31. Januar 2024 um 17:41

    MEIN VORSCHLÄGE WÄREN ...

    ... einen selbst gescripten Browser.
    ... ein Haushaltsbuch (mache ich z. Zt. alles ins Excel)

  • ASCII-Art

    • Alina
    • 30. Januar 2024 um 12:42
    Zitat von Racer

    486DX100 ....das ist ein hochmoderner Computer gegen einen C64....da sieht man was Du für ein junges Mäderl bist;)

    junges Mäderl ? Danke schön, das schmeichelt mich. :*

  • ASCII-Art

    • Alina
    • 27. Januar 2024 um 22:36

    Wolfenstein? Ja, aber auf ein 486DX100 (meine ich) und danach Doom. und irgendwann Lemminge. Habe heute noch alle Doom und Lemmingeversionen und funktionieren noch.

    Die ganz ganz jungen Jahre. Wolfenstein meine ich war zumindest in Deutschland verboten. Aber wen interessierte das in dem jungen Alter?

    Atari, C64, Schneider, .... war damals im Familienkreis unterwegs.

    Und Datenübertragung mit Akustikkoppler via Telefonhörer. Zumindest bei meinem Vater wegen seinem Beruf seeeehr früh. Daten zwischen der USA und DK ausgetauscht. Ohne Telefonflat.

    Oder die PCs mit Kabel verbinden und man brauchte ein Endwiderstand. Wir haben damals kleine Löcher durch unsere Kinderzimmerwände gebohrt. Klein war dann so, das fast eine kleine Suppenkeller durch passte. Als das unsere Elter sahen, gab es "Durchzug" (Ärger und PC war paar Wochen weg). Was man als Teenager nicht alles ohne überlegen gemacht hat.

  • Bestimmtes PDF automatisiert in ein anderes PDF einfügen und speichern

    • Alina
    • 26. Januar 2024 um 15:17
    Zitat von Swiffer

    Vielleicht darf ich das Skript dann auch hier reinschreiben dass auch andere von profitieren können. Ist noch in Abklärung.

    Wäre sehr schön wenn Du die Lösung später hier für alle zur Verfügung stellst. So haben, wie Du ja selber schreibst, alle etwas davon.

  • Ordner älter 24 h löschen

    • Alina
    • 25. Januar 2024 um 19:43

    Ich habe mal einen Ordnerpfad erstellt: C:\Users\AlinaPC33\Desktop\Ordner\1\2
    Der Ordner "2" ist älter "1 Tag" und wird mit nachfolgendem Script gelöscht.
    Bitte beachte die Erklärungen im Script bezüglich Pfadanpassen.

    Ist es das was Du suchst?

    Spoiler anzeigen


    #include <File.au3>
    #include <Date.au3>

    Local $sFolderToCheck = "C:\Users\AlinaPC33\Desktop\Ordner\1\2"

    ; Überprüfe, ob der Ordner existiert
    If Not FileExists($sFolderToCheck) Then
    MsgBox($MB_SYSTEMMODAL, "", "Der Ordner existiert nicht.")
    Exit
    EndIf

    ; Erhalte das Erstellungsdatum des Ordners
    Local $sFolderCreationDate = _GetFolderCreationDate($sFolderToCheck)

    ; Erstelle ein Objekt für das Erstellungsdatum
    Local $oFolderCreationDate = _DateAdd("d", 0, $sFolderCreationDate)

    ; Erstelle ein Objekt für das aktuelle Datum
    Local $oCurrentDate = _Now()

    ; Vergleiche das Erstellungsdatum mit dem aktuellen Datum
    If $oFolderCreationDate < $oCurrentDate Then
    ; Lösche den Ordner, wenn das Erstellungsdatum älter als das aktuelle Datum ist
    DirRemove($sFolderToCheck, $DIR_REMOVE)
    If @error Then
    MsgBox($MB_SYSTEMMODAL, "", "Fehler beim Löschen des Ordners.")
    Else
    MsgBox($MB_SYSTEMMODAL, "", "Der Ordner wurde erfolgreich gelöscht.")
    EndIf
    Else
    MsgBox($MB_SYSTEMMODAL, "", "Der Ordner ist nicht älter als das aktuelle Datum.")
    EndIf

    Func _GetFolderCreationDate($sFolderPath)
    Local $sOutput = ""
    Local $iPID = Run(@ComSpec & ' /c for %I in ("' & $sFolderPath & '") do @echo %~tI', "", @SW_HIDE, $STDOUT_CHILD)
    While 1
    $sOutput &= StdoutRead($iPID)
    If @error Then ExitLoop
    WEnd
    Return StringTrimLeft($sOutput, StringInStr($sOutput, " ") + 1)
    EndFunc


    Ist evtl. noch zu kürzen aber erst einmal arbeitet es bei mir zumindest einwandfrei.

  • Bestimmtes PDF automatisiert in ein anderes PDF einfügen und speichern

    • Alina
    • 20. Januar 2024 um 17:40
    Zitat von Schnuffel

    ich greife Alina mal vor... ^^ (nicht böse gemeint)


    Schnuffel
    Als wenn ich jemals jemanden hier böse auf etwas war. Ich lege Dich gleich über das Knie. :rofl:

    Swiffer
    Betreff Beitrag #14
    Also zu @DesktopDir steht doch in der Hilfe* "Pfad zum Desktop des aktuellen Benutzers". So wie Schnuffel es geschrieben hat ist es richtig.
    Ein Unterordner (Ordner auf dem Desktop wäre dann @DesktopDir\Unterordner

    Local $hSearch = FileFindFirstFile("C:\Users\Swiffer\Desktop\Test PDF durchsuchen" & "\*.pdf")

    *) Bitte einmal die Hilfe herunter laden. Da steht es auch erklärt. ;)

  • Bestimmtes PDF automatisiert in ein anderes PDF einfügen und speichern

    • Alina
    • 20. Januar 2024 um 12:14
    Zitat von Schnuffel

    zu Alinas exe:

    ein mutiger Start in der Konsole offenbart die Wahrheit: https://www.coherentpdf.com/

    mit cpdf.exe -help wird alles erklärt.

    ;)

    Schnuffel Wir haben auf Arbeit eine bezahlte Version.
    Ich bin davon ausgegangen das Swiffer das zusammenfügen nicht gewerblich machen möchte.

  • Bestimmtes PDF automatisiert in ein anderes PDF einfügen und speichern

    • Alina
    • 20. Januar 2024 um 11:33

    Moin Swiffer.

    Was die Exe-Datei betrifft, so kann ich Dir Entwarnung geben. Ich verwende die seit sehr langer Zeit und das auch auf Arbeit. Ich habe die irgendwann einmal von unseren Chefadministration bekommen und sie ist durch viele Antivirenprogramme gelaufen. Also es ist keine Exe-Datei die ich selber erstellt habe bzw. es ist keine via Autoit gescriptete Exe-Datei.

    Zitat von Swiffer

    Edit. Absolut traumhaft wäre: Ordner 1 überwachen ob PDF neu gespeichert wird. Wenn PDF gespeichert schaue letzte 4 ziffern vom Dateinamen (5000). Suche in Ordner 2 nach PDF Inhalt 5000. Füge PDF aus Ordner 2 in PDF aus Ordner 1 ein und speichere dieses in Ordner 3 mit 5000+.

    Da muß Du mal warten was aus dem Forum kommt. Damit wäre ich auch "überfordeert".

  • Bestimmtes PDF automatisiert in ein anderes PDF einfügen und speichern

    • Alina
    • 20. Januar 2024 um 00:26

    Moin Swiffer.

    Im Anhang findest Du folgende Dateien:
    n1.pdf : Inhalt erster Teil von Deinem Beispiel
    n2.pdf : Inhalt zweiter Teil von Deinem Beispiel
    Anweisung.pdf
    zusammengefuehrt.pdf : n1.pdf und n2.pdf als eine Datei.
    cpdf.exe : Kommandozeilendatei, die das zusammen fügen durchführt.

    Wenn Du das über die Kommandozeile so schreibst bekommst Du aus der n1.pdf und der n2.pdf als output die Zusammengefuegte.pdf und das ganze musst nun noch als Script erfolgen.

    Ist das dass, was Du möchtest und habe ich es richtig verstanden?

    In der n1 und n2 habe ich den Text irgendwo auf die Seite kopiert. Also nicht wundern, das es so chaotisch aussieht. Ist schließlich schon spät von der Zeit her. ;)

    Dateien

    pdf_zusammenfuegen.zip 2,6 MB – 276 Downloads
  • ASCII-Art

    • Alina
    • 19. Januar 2024 um 13:26

    Moin zusammen.

    Ich habe letzten Monat ein ASCII-Art BIld geschenkt bekommen. Ich finde soetwas ja mal etwas "Besonderes".
    Da habe ich mal im Netz nachgesehen und eine Möglichkeit gefunden solche Bildr auch zu erstellen?

    Ich habe mal eines erstellt das nur die Buchstaben "a, u, t, o, i, t" verwendet.
    autoit.png

    Ist soetwas auch mit Autoit zu scripten?

    Und hier ein Duschvorhang im gleichen Stil für die Männerrunde. :rofl::rofl::rofl:

  • Wildcards in Verbindung mit ShellExecute

    • Alina
    • 19. Januar 2024 um 13:08
    Zitat von kayes

    Über FileFind bin schon ein ganzes Stück weiter gekommen.


    FileFind hat das Problem gelöst, Vielen Dank Moombas und Alina !

    Das lesen wir gerne im Forum. Sowohl das es gelöst wurde, als auch der Dank. Ich glaube da spreche ich für alle. ;)

  • Wildcards in Verbindung mit ShellExecute

    • Alina
    • 19. Januar 2024 um 10:33

    Ich habe gerade mal die Suchfunktion (PDF Datei öffnen) genutzt und vielleicht helfen Dir diese beiden Links weiter:

    Datei-Anzeige

    RE: Dateien suchen, finden und wegschreiben
    Statt wegschreiben kann man da dann ja evtl. "öffnen" verwenden.

  • Wildcards in Verbindung mit ShellExecute

    • Alina
    • 19. Januar 2024 um 10:19

    Habe ich es richtig verstanden, das Du alle PDF Dateien öffnen möchtest die (in diesem Fall) am 24.01.2023 (230124) datiert sind?

  • Wildcards in Verbindung mit ShellExecute

    • Alina
    • 19. Januar 2024 um 10:01

    Moin Kayes.

    Was möchtest Du denn erreichen?
    Das alle PDF Dateien die mit ....\230124_FA_ vorhanden sind sich öffnen oder diese z. B. als Liste ausgegeben werden?
    Oder möchtest Du diese Dateien weg kopieren bzw. verschieben?

    Ich sehe nicht, was Du erreichen möchtest. Magst Du das BITTE etwas genauer darstellen? Vielen Dank.

  • StringReplace

    • Alina
    • 15. Januar 2024 um 18:28

    Moin Andrey_A

    Zitat von Andrey_A
    AutoIt
    Local $aRepl=StringSplit('1|a|j|t|abc|bnm|xxx|zzz','|'),$sString='1234567890123456789012345678901234567890123456789012345678901end',$aString=StringSplit($sString,1),$sText=$aString[1]
    For $i=2 To $aString[0]
    $sText&=$aRepl[Random(1,$aRepl[0],1)]&$aString[$i]
    Next
    MsgBox(4096,'$sText',$sText)

    Erst einmal Willkommen im Forum.

    Deine Lsg. kann nicht zum Erfolg führen da:
    - nicht '1|a|j|t|abc|bnm|xxx|zzz' sollte ersetzt werden, sondern nur die "1" durch '1|a|j|t' (Ziffer bleibt oder einer der drei Buchstaben).
    - in Deinem $sString ($sString='1234567890123456789012345678901234567890123456789012345678901end') Buchstaben sind und diese nicht der "Vorgabe" entsprechen.
    Der Ausgangsstring ist ein reiner ZIffern (Zahlen 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0).

    Beitrag 7, 8, und 10 haben bereits erfolgreich zur Lösung geführt !

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™