Beiträge von Oscar

  • Wie / Wo werden Funktionsaufrufe gespeichert? Kann man diesen "Speicher" löschen?

    Das ist auch so einfach, wenn man erstmal aufgehört hat in GOTO-Dimensionen zu denken. GOTOs sind (zum Glück) nicht in AutoIt enthalten. Die führen nur zu "unlesbaren" Code.
    Mit den Schleifenbefehlen (While...WEnd, Do...Until und For...Next) kann man alle GOTOs vergessen.
    Funktionen hingegen, sind Unterprogramme (Routinen), die beim erreichen von EndFunc, von allein beendet werden oder mit Return vorzeitig (z.B. innerhalb einer If...Then-Anweisung) beendet werden können.
    Wenn man eine bestimmte Funktion innerhalb dieser Funktion wieder aufruft, so nennt man das Rekursion. Dafür gibt es durchaus Anwendungsmöglichkeiten, aber man muss auf die Abbruchbedingungen achten, sonst wird die max. Rekursionstiefe erreicht und das Script wird mit einer Fehlermeldung beendet. Als GOTO-Ersatz darf das aber nicht verwendet werden.

  • TrayIcon Hilfe

    Entscheidend ist TraySetClick().
    Damit entscheidest Du mit welche(r/n) Maustaste(n) Du das normale Traymenü aufrufen willst. Den Event kannst Du aber trotzdem von beiden Tasten abfragen (siehe TrayGetMsg) und entsprechend reagieren.

  • TrayIcon Hilfe

    Ich denke mal, Du meinst sowas:

    Spoiler anzeigen
    [autoit]


    #include<GUIConstantsEx.au3>
    #include <Constants.au3>
    #NoTrayIcon

    [/autoit] [autoit][/autoit] [autoit]

    Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.
    $hGui = GUICreate('test')

    [/autoit] [autoit][/autoit] [autoit]

    $settingsitem = TrayCreateMenu("Settings")
    $displayitem = TrayCreateItem("Display", $settingsitem)
    $printeritem = TrayCreateItem("Printer", $settingsitem)
    TrayCreateItem("")
    $aboutitem = TrayCreateItem("About")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")
    TraySetClick(8)
    TraySetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    Switch TrayGetMsg()
    Case $TRAY_EVENT_PRIMARYDOWN
    GUISetState(@SW_SHOW)
    Case $aboutitem
    MsgBox(64, "About:", "AutoIt3-Tray-sample")
    Case $exititem
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • Fenster an einer bestimmten Position öffnen

    Herzlich willkommen hier im Forum.
    Wenn Du eine Frage hast, dann erstelle ruhig einen neuen Thread. Einen alten Thread zu verwenden ist nicht so sinnvoll.

    Hier mal ein Beispielscript (2 Notpads öffnen und nach links oben sowie recht oben verschieben):

    [autoit]


    ShellExecute('notepad.exe')
    ShellExecute('notepad.exe')
    WinWait('Unbenannt')
    WinWait('Unbenannt')
    $aList = WinList("Unbenannt -", "")
    WinMove($aList[1][1], '', 0, 0, 480, 320)
    WinMove($aList[2][1], '', @DesktopWidth-480, 0, 480, 320)

    [/autoit]

  • taste gedrückt halten

    Sorry, dass ich diesen alten Thread nochmal ausgrabe. ;)

    Aber ich habe gerade eine bessere Variante für den "Filmstreifen" erstellt. Dazu braucht man folgendes:

    AutoIt-Script

    Spoiler anzeigen
    [autoit]


    #include<IE.au3>
    #include<GUIConstantsEx.au3>
    #include<WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    HotKeySet('{Esc}', '_End')
    $oIE = _IECreateEmbedded()
    $hGUI1 = GUICreate('', 248, 619, -1, -1, $WS_POPUP, $WS_EX_TRANSPARENT)
    GUICtrlCreateObj($oIE, 0, 0, 248, 619)
    _IENavigate($oIE, @ScriptDir & '\filmstreifen.html')
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While True
    Sleep(20)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _End()
    Exit
    EndFunc

    [/autoit]

    HTML-Seite

    Spoiler anzeigen

    und das Hintergrundbild. Alles zusammen gibt es als ZIP-Archiv im Anhang.

  • kleins prob. mit GUI

    Ja! Hier mal die geänderte HTML-Datei:

    Spoiler anzeigen

  • _MultiFileCopy

    Die Abfrage geschieht etwas "ungewöhnlich", weil man in der Callback-Routine keine Messages abfragen kann. Deshalb gibt es dort:

    [autoit]


    If _IsPressed('01', Int($aSplit[12])) And ($pos[4] = Int($aSplit[7])) Then Return 1

    [/autoit]

  • Popup Menü auf Listvieweintrag

    Zitat von ari


    Man kann in der Func auf die Variable bzw. deren Inhalt zugreifen.

    [autoit]

    AutoItSetOption("MustDeclareVars", 1)

    [/autoit] [autoit][/autoit] [autoit]

    Local $sTest = "Das ist ein Test"

    [/autoit] [autoit][/autoit] [autoit]

    _TestFunc()

    [/autoit] [autoit][/autoit] [autoit]

    Func _TestFunc()
    MsgBox(4096, "nix", $sTest)
    EndFunc

    [/autoit]

    Äh?! Das funktioniert ja tatsächlich! Seit wann geht das denn? Das ist doch ein Bug! :wacko:

  • Variable einer Website auslesen

    _StringBetween gibt ein Array zurück:

    [autoit]


    $string = _INetGetSource("http://127.0.0.1/planets")
    $wert =_StringBetween($string,">Wert: ","<br>Aktionspunkte ")
    If IsArray($wert) Then MsgBox(0, "", $wert[0])

    [/autoit]

    Edit: Und _InetGetSource nicht in Anführungsstriche.

  • Skript zum Auslesen der Inhalte eines Verzeichnisses und Weitergabe in eine Textdatei

    @Onkel-tom: Mir ging es vor allem um die letzten Zahlen (vor dem .mp3). Wenn die max. 2stellig sind, dann funktioniert das untenstehende Script.

    @Xeno: Kannst Du Dir mal den zweiten Teil des Scripts ansehen? Das ist irgendwie merkwürdig (siehe Kommentare) oder ich habe da etwas nicht verstanden...

    Spoiler anzeigen
    [autoit]


    #include<Array.au3>
    #Include <File.au3>
    ; Testdaten

    [/autoit] [autoit][/autoit] [autoit]

    ;~ For $i = 1 To 20
    ;~ FileWrite(FileOpen(@ScriptDir & '\F--_Title_01_Chapter ' & $i & '.mp3', 1), '')
    ;~ Next

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $FileList = _FileListToArray(@ScriptDir, '*.mp3', 1)
    If IsArray($FileList) Then
    For $i = 1 To $FileList[0]
    $Replace = StringRegExp($FileList[$i], '(\D)(\d\.mp3)', 3)
    If IsArray($Replace) Then $FileList[$i] = StringRegExpReplace($FileList[$i], '\D\d\.mp3', $Replace[0] & '0' & $Replace[1])
    Next
    _ArraySort($FileList)
    _ArrayDisplay($FileList)
    _FileWriteFromArray(@ScriptDir & '\MP3-List.txt', $FileList)
    EndIf

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; Das Folgende funktioniert komischerweise nicht!
    ; Der Anfang des Replacestring '$10$2$3' wird als $10 interpretiert, obwohl es lt. Hilfe nur $0...$9 geben sollte.
    ; Tatsächlich beginnen die Back-References aber mit $1
    ; Wie kann man das aber schreiben, wenn zwischen Back-Reference $1 und $2 eine Null eingefügt werden soll?
    $FileList = _FileListToArray(@ScriptDir, '*.mp3', 1)
    If IsArray($FileList) Then
    For $i = 1 To $FileList[0]
    $FileList[$i] = StringRegExpReplace($FileList[$i], '(\D)(\d)(\.mp3)', '$10$2$3')
    Next
    _ArraySort($FileList)
    _ArrayDisplay($FileList)
    _FileWriteFromArray(@ScriptDir & '\MP3-List.txt', $FileList)
    EndIf

    [/autoit]

  • Ideen

    @r1fLeX: Ich denke, Du hast nicht die richtige Motivation. Besonders den Vorschlag von Raupi finde ich äußerst passend. Dort besitzt Du doch bereits das nötige Hintergrundwissen (oder kannst es Dir aneignen, was zugleich der Ausbildung dienlich wäre). Und wer das spätere Programm dann benutzt, kann Dir doch eigentlich egal sein. Hauptsache ist doch, dass Du das Problem in ein Programm umgesetzt hast. Das sollte Deine Motivation sein: Ich habe es geschafft!
    BTW: Mit so einem Programm könntest Du doch Deinen Ausbilder beeindrucken. Macht sich immer gut, wenn sich ein Auszubildender auch "privat" mit der Materie beschäftigt.