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. PenGuin

Beiträge von PenGuin

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    • PenGuin
    • 30. Oktober 2009 um 23:45

    Danke, funktioniert nun.

    :)

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    • PenGuin
    • 30. Oktober 2009 um 14:51

    Aber vorher gings auch, als ich das als Func hatte.

    Nur dann hatte ich das Script ein bisschen umgebaut, um das besser Lesen zui können.

    Und dann gings nicht mehr :S

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    • PenGuin
    • 30. Oktober 2009 um 14:26

    Hallo,

    wahrscheinlich eie simple Frage: Mein Script meint, dass ich $Button1 etc. nicht deklariert hab, obwohl es so ist. :S

    Naja hier das Script, hoffentlich könnt ihr mir helfen.


    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=images\icon.ico
    #AutoIt3Wrapper_outfile=Widerstandsberechner.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_UseAnsi=y
    #AutoIt3Wrapper_Res_LegalCopyright=xxx
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <GDIPlus.au3>
    #include <EditConstants.au3>
    #include <ComboConstants.au3>
    #Include <Constants.au3>
    Opt("TrayMenuMode",1)
    Global $aLabel[10] = ['Schwarz','Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']
    Global $bLabel[8] = ['Keine', 'Silber', 'Gold','Braun','Rot','Grün','Blau','Violett']
    Global $cLabel[9] = ['Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']
    Global $dLabel[12] = ['Silber', 'Gold', 'Schwarz','Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']

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

    Global $eLabel[9] = ['1', '2', '3', '4', '5', '6', '7', '8', '9']
    Global $fLabel [10] = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']
    Global $gLabel [12] = ['0,01', '0,1', '1', '10', '100', '1000', '10000', '100000', '1000000', '10000000', '100000000', '1000000000']
    Global $hLabel [8] = ['20', '10', '5', '1', '2', '0,5', '0,25', '0,1']
    ;------------------------------------------------------------------------------------------------------------
    TraySetIcon(@Scriptdir & "\Images\icon.ico")
    TrayTip("Copyright (c) 2009","...",2,1)
    _intro()
    _gui()
    ;------------------------------------------------------------------------------------------------------------
    Func _gui()
    #Region ### START Koda GUI section ### Form=c:\users\rouven\desktop\form1.kxf
    $Form1 = GUICreate("Widerstandberechner", 700, 304, -1, -1,-1)
    GUISetBkColor(0xFDFDFD)
    $Ringanzahl = GUICtrlCreateLabel("Ringanzahl:", 446, 48, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    GUICtrlCreateCombo("", 544, 45, 49, 5, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_VSCROLL))
    GUICtrlSetFont(-1, 10, 400, 0, "arial")
    GUICtrlSetData(-1, " 4| 5", " 4")

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

    $Input6 = GUICtrlCreateInput("", 40, 120, 97, 21, $ES_READONLY)
    $Blind_Input3 = GUICtrlCreateInput("",153,120,1,21)
    $Updown1 = GUICtrlCreateUpdown($Blind_Input3)
    GUICtrlSetLimit(-1, 8, 0)
    GUICtrlSetData($Input6, $cLabel[0])
    $Input7 = GUICtrlCreateInput("", 170, 120, 97, 21, $ES_READONLY)
    $Blind_Input4 = GUICtrlCreateInput("",283, 120, 1, 21)
    $Updown2 = GUICtrlCreateUpdown($Blind_Input4)
    GUICtrlSetLimit(-1, 9, 0)
    GUICtrlSetData($Input7, $aLabel[0])
    $Input8 = GUICtrlCreateInput("", 300, 120, 97, 21, $ES_READONLY)
    $Blind_Input5 = GUICtrlCreateInput("", 413, 120, 1, 21)
    $Updown3 = GUICtrlCreateUpdown($Blind_Input5)
    GUICtrlSetLimit(-1, 9, 0)
    GUICtrlSetData($Input8, $aLabel[0])
    $Input9 = GUICtrlCreateInput("", 430, 120, 97, 21, $ES_READONLY)
    $Blind_Input6 = GUICtrlCreateInput("", 543, 120, 1, 21)
    $Updown4 = GUICtrlCreateUpdown($Blind_Input6)
    GUICtrlSetLimit(-1, 11, 0)
    GUICtrlSetData($Input9, $dLabel[0])
    $Input10 = GUICtrlCreateInput("", 560, 120, 97, 21, $ES_READONLY)
    $Blind_Input7 = GUICtrlCreateInput("", 673, 120, 1, 21)
    $Updown5 = GUICtrlCreateUpdown($Blind_Input7)
    GUICtrlSetLimit(-1, 7, 0)
    GUICtrlSetData($Input10, $bLabel[0])

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

    $Label1 = GUICtrlCreateLabel("Toleranz", 573, 96, 66, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("2. Ziffer", 183, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("3. Ziffer", 313, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label4 = GUICtrlCreateLabel("Multiplikator", 443, 96, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Ziffer = GUICtrlCreateLabel("1. Ziffer", 53, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label5 = GUICtrlCreateLabel("Widerstandsberechner", 80, 24, 280, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")
    $Input1 = GUICtrlCreateInput("0,01", 443, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 11, 0)
    $Input2 = GUICtrlCreateInput("0", 313, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 9, 0)
    $Input3 = GUICtrlCreateInput("0", 183, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 9, 0)
    $Input4 = GUICtrlCreateInput("20", 573, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 7, 0)
    $Input5 = GUICtrlCreateInput("1", 53, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 12, 0)
    $Button1 = GUICtrlCreateButton("Schließen", 570, 265, 121, 30, 0)
    $Button2 = GUICtrlCreateButton("Copyright", 8, 272, 89, 25, 0)
    $Button3 = GUICtrlCreateButton("Rechnung (mit Toleranz)", 360, 224, 129, 41, 0)
    $Button4 = GUICtrlCreateButton("Rechnung (ohne Toleranz)", 200, 224, 137, 41, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    EndFunc
    $aboutitem = TrayCreateItem("Credits")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")
    TraySetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Exit
    Case $Button2
    _credits()
    Case $Updown1
    GUICtrlSetData($Input6, $cLabel[GUICtrlRead($Blind_Input3)])
    GUICtrlSetData($Input5,$eLabel[GUICtrlRead($Blind_Input3)])
    Case $Updown2
    GUICtrlSetData($Input7, $aLabel[GUICtrlRead($Blind_Input4)])
    GUICtrlSetData($Input3,$fLabel[GUICtrlRead($Blind_Input4)])
    Case $Updown3
    GUICtrlSetData($Input8, $aLabel[GUICtrlRead($Blind_Input5)])
    GUICtrlSetData($Input2,$fLabel[GUICtrlRead($Blind_Input5)])
    Case $Updown4
    GUICtrlSetData($Input9, $dLabel[GUICtrlRead($Blind_Input6)])
    GUICtrlSetData($Input1,$gLabel[GUICtrlRead($Blind_Input6)])
    Case $Updown5
    GUICtrlSetData($Input10, $bLabel[GUICtrlRead($Blind_Input7)])
    GUICtrlSetData($Input4,$hLabel[GUICtrlRead($Blind_Input7)])
    EndSwitch
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $aboutitem
    Msgbox(64, "Credits", "Copyright (c)")
    Case $msg = $exititem
    ExitLoop
    EndSelect
    WEnd
    ;------------------------------------------------------------------------------------------------------------
    Func _intro ()
    #Region ### START Koda GUI section ### Form=
    $intro = GUICreate("Spotlight", 465, 303, -1, -1)
    GUICtrlCreatePic(@Scriptdir & "\Images\logo.jpg",-1,-1,465,303)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    Sleep(2500)
    GUIDelete()
    EndFunc

    [/autoit]


    MfG

  • Wert in einem Input mit UpDown-Arrows verändern

    • PenGuin
    • 27. Oktober 2009 um 22:42

    Ja im Prinzip schon, aber darauf muss man erstmal kommen.

    Ich mach den Thread mal als gelöst.

    Danke

  • Wert in einem Input mit UpDown-Arrows verändern

    • PenGuin
    • 27. Oktober 2009 um 22:34

    Das funktioniert zwar, nur verstehen tu ich das nicht, wie geht das mit 2 Inputs?

  • Wert in einem Input mit UpDown-Arrows verändern

    • PenGuin
    • 27. Oktober 2009 um 22:29

    Lässt sich das aber auch mit Texten verwirklichen?

    EDIT: Das ist mein jetziger Fortschritt und da will ich halt die Farben einstellen und mit Buttons ist das recht kompliziert, da es sosnt mit dem Platz dumm wird und ich möchte auch nicht alles umstrukturieren, da es bis hier shcon Zeit gekostet hat, es ist nur ein Teil des Scripts.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <GDIPlus.au3>
    #include <EditConstants.au3>
    #include <ComboConstants.au3>
    Global $aLabel[10] = ['Schwarz','Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']
    Global $index = 0
    ;------------------------------------------------------------------------------------------------------------
    ; _intro()
    _gui()
    ;------------------------------------------------------------------------------------------------------------
    Func _gui()
    #Region ### START Koda GUI section ### Form=c:\users\rouven\desktop\form1.kxf
    $Form1 = GUICreate("Widerstandberechner", 611, 304, -1, -1,-1)
    GUISetBkColor(0xFDFDFD)
    $Button1 = GUICtrlCreateButton("Schließen", 480, 256, 121, 41, 0)
    $Ringanzahl = GUICtrlCreateLabel("Ringanzahl:", 416, 48, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    GUICtrlCreateCombo("", 504, 45, 49, 5, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_VSCROLL))
    GUICtrlSetFont(-1, 10, 400, 0, "arial")
    GUICtrlSetData(-1, " 4| 5", " 4")
    $Input3 = GUICtrlCreateInput("", 40, 120, 97, 21, $ES_READONLY)
    $Updown1 = GUICtrlCreateUpdown($Input3)
    $Input4 = GUICtrlCreateInput("", 152, 120, 97, 21, $ES_READONLY)
    $Updown2 = GUICtrlCreateUpdown($Input4)
    $Input5 = GUICtrlCreateInput("", 264, 120, 97, 21, $ES_READONLY)
    $Updown3 = GUICtrlCreateUpdown($Input5)
    $Input6 = GUICtrlCreateInput("", 376, 120, 97, 21, $ES_READONLY)
    $Updown4 = GUICtrlCreateUpdown($Input6)
    $Input7 = GUICtrlCreateInput("", 488, 120, 97, 21, $ES_READONLY)
    $Updown5 = GUICtrlCreateUpdown($Input7)
    $Label1 = GUICtrlCreateLabel("Toleranz", 488, 96, 66, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("2. Ziffer", 152, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("3. Ziffer", 264, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label4 = GUICtrlCreateLabel("Multiplikator", 376, 96, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Ziffer = GUICtrlCreateLabel("1. Ziffer", 40, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Button2 = GUICtrlCreateButton("Copyright", 8, 272, 89, 25, 0)
    $Label5 = GUICtrlCreateLabel("Widerstandsberechner", 80, 24, 280, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")
    $Input1 = GUICtrlCreateInput("", 376, 168, 81, 21, $ES_READONLY)
    $Input2 = GUICtrlCreateInput("", 264, 168, 81, 21, $ES_READONLY)
    $Input3 = GUICtrlCreateInput("", 152, 168, 81, 21, $ES_READONLY)
    $Input4 = GUICtrlCreateInput("", 488, 168, 81, 21, $ES_READONLY)
    $Input5 = GUICtrlCreateInput("", 40, 168, 81, 21, $ES_READONLY)
    $Button3 = GUICtrlCreateButton("Rechnung (mit Toleranz)", 280, 224, 129, 41, 0)
    $Button4 = GUICtrlCreateButton("Rechnung (ohne Toleranz)", 120, 224, 137, 41, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Exit
    Case $Button2
    ;_credits()
    EndSwitch
    WEnd
    EndFunc
    #cs;------------------------------------------------------------------------------------------------------------
    Func _intro ()
    #Region ### START Koda GUI section ### Form=
    $intro = GUICreate("Spotlight", 465, 303, -1, -1) ; 369,209
    GUICtrlCreatePic(@Scriptdir & "\Images\logo.jpg",-1,-1,465,303)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    Sleep(2000)
    GUIDelete()
    EndFunc
    #ce;------------------------------------------------------------------------------------------------------------

    [/autoit]
  • Wert in einem Input mit UpDown-Arrows verändern

    • PenGuin
    • 27. Oktober 2009 um 22:14

    Hallo,

    ich hatte schon versucht durch BugFix's Hilfe zu lösen, was aber dann doch nicht richtig geglückt ist.

    So ähnlich hat mir BugFix geholfen:

    [autoit]

    Global $aLabel[10] = ['Schwarz','Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']
    Global $index = 0

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

    $gui = GUICreate('test')
    $Input = GUICtrlCreateInput("", 40, 120, 97, 21)
    $Updown1 = GUICtrlCreateUpdown($Input)
    GUISetState()

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

    GUICtrlSetData($Input, $aLabel[0])

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

    While 1
    Switch GUIGetMsg()
    Case $Updown1
    If $index < 10 Then
    $index += 1
    GUICtrlSetData($Input, $aLabel[$index])
    EndIf
    Case -3
    Exit
    EndSwitch
    WEnd

    [/autoit]


    Es soll am Ende ein Programm werden, dass die Farbcodierung von Widerständen ausrechnet, falls einer die Frage hat, was es mit den Farben auf sich hat.
    Das 1. Problem ist, wenn ich bei den UpDown Arrows, nach unten drücke, fährt er trotzdem normal fort. Also wenn ich bei Orange bin und nach unten drücke, müsste eigentlich Rot kommen, aber es kommt Gelb.

    Das 2. Problem ist, nach Weiß, wenn ich da Up drücke, macht der ein Error in Zeile 16

    Ich hoffe ihr könnt ihr helfen, ich hab selber schon probiert eine If Abfrage zu machen, dass wenn $index = 11 ist, dass er dann wieder von vorn startet, aber das ist mir nicht gelungen.


    MfG

  • Button mit Link

    • PenGuin
    • 26. September 2009 um 14:18

    Bei _RunsDos steht ja auch keine Website, nimm das Script von mir oder von Conan 10

    Außerdem stimmt das mit Case $Form1 auch nicht.

  • Button mit Link

    • PenGuin
    • 26. September 2009 um 14:14

    So gehts auch:


    [autoit]

    #include <GUIConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Website öffner", 196, 128, 193, 125)
    $Button1 = GUICtrlCreateButton("Webseite öffnen", 8, 8, 97, 33, 0)
    $Label1 = GUICtrlCreateLabel("(c) by freejingles-online.de", 8, 96, 126, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button 1
    ShellExecute("www.freejingles-online.de")
    EndSwitch
    WEnd

    [/autoit]
  • Ordner nach Dateien durchsuchen

    • PenGuin
    • 19. September 2009 um 16:17

    Hab wieder mal eine Frage:


    Das hier ist ja der Code:

    Spoiler anzeigen
    [autoit]

    #include <GuiListBox.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <Array.au3>

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

    Local $Ordner = '' ; Hier steht normalerweise ein Pfad, also nicht beachten

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

    HotKeySet("{ENTER}", "_Open_Ordner")
    HotKeySet("{PGUP}", "_Hide")
    HotKeySet("{PGDN}", "_Show")
    HotKeySet("{END}", "_Exit")

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

    Opt('GUIOnEventMode', 1)

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

    $gui = GUICreate('Suchen', 400, 600, -1, -1)
    GUISetOnEvent(-3, '_Ende')
    GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

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

    Global $Input = GUICtrlCreateInput('', 10, 5, 380, 30)
    Global $List = GUICtrlCreateList('', 10, 40, 380, 560)
    Global $hList = GUICtrlGetHandle(-1)

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

    _Listtoarray()

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

    GUISetState()
    While 1
    Sleep(1000)
    WEnd

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

    ; Functions
    Func _Hide()
    GUISetState(@SW_HIDE) ;==> GUI Hide
    EndFunc

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

    Func _Show()
    GUISetState (@SW_SHOW) ;==> GUI Restore
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

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

    Func _Listtoarray()
    local $aOrdner = _FileListToArray($Ordner, "*.mp3", 0) ;Als Filter kann man auch .mp3 oder sowas wählen
    if @error Then
    MsgBox(0, "Fehler" ,@error)
    return
    endif
    For $i = 1 To $aOrdner[0]
    GUICtrlSetData(-1, $aOrdner[$i])
    Next
    endfunc

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

    Func _Check_Eingabe($iwParam)
    switch $iwParam
    case 0x03000003
    _GUICtrlListBox_SetCurSel($hList, _GUICtrlListBox_FindInText($hList, GUICtrlRead($Input)))
    EndSwitch
    EndFunc

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

    Func _Open_Ordner()
    If GUICtrlRead($List) <> "" Then ShellExecute($Ordner & '\' & GUICtrlRead($List))
    EndFunc

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

    Func _Ende()
    Exit
    EndFunc

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

    Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    _Check_Eingabe($iwParam)
    Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
    If Not IsHWnd($List) Then $hWndListBox = GUICtrlGetHandle($List)
    $hWndFrom = $ilParam
    $iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
    $iCode = BitShift($iwParam, 16) ; Hi Word
    Switch $hWndFrom
    Case $List, $hWndListBox
    Switch $iCode
    Case $LBN_DBLCLK
    _Open_Ordner()
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_COMMAND (Bugfix - http://www.autoit.de)

    [/autoit]


    Frage1: Was bringt dieses WM_COMMAND?

    Frage2: Wie ihr seht, hab ich eine Show und Hide Funktion eingbaut. Nachteil ist nun, wenn der Hide-Modus an ist, will ich ganz normal weiterarbeiten, hinzu kommt dass man nunmal Enter drückt. Drücke ich nun Enter, wäjlt er das Lied aus was markiert ist ( das soll er ja auch ) und spielt die Musik ab. Ich will aber nur, dass er bei Enter drücken die Musik abstellt, wenn es im Show-Modus ist. Ich hatte schon probiert, die Opt oben mit einer Variable zu dekarieren und dann bei Hide und Show auf 0 und 1 zu setzen, aber das geht nicht so richtig. Andere Ansätze hatte ich leider noch nicht :(


    EDIT: Hab noch ne Frage: Warum wurde oben das "Opt" auf -3 gesetzt und nicht auf 1?
    MfG

  • Ordner nach Dateien durchsuchen

    • PenGuin
    • 10. September 2009 um 21:50

    Bei Version2 schriebt er dann Fehler 1 :( Man ich frag zuviel nach -.-' EDIT: Hat sich erledigt. (Ist das normal das ich bei Bearbeiten kein Enter drücken kann?)


    So und nun Script verstehen angesagt^^

  • Ordner nach Dateien durchsuchen

    • PenGuin
    • 10. September 2009 um 21:00

    Ach man ich bin zu dumm dafür oO Bei mir ist kein Input wenn ich dein Script aufrufe, der macht sogar noch ne Fehlermeldung^^ EDIT: Ich muss den ListView erst per Kreuz schließen damit der Input kommt, kann man das ändern?
    EDIT2: Ich mekre jetzt gerade, dss er nur Dateien sucht die den passenden Anfang haben, geht das auch das ich Abschnitte mitten aus der Zeile rausnehmen kann? zB: Wenn ich nun xxx -yyy zzzz haben, das ich dann zzzz eingeben kann und der das trotzdem findet?

    Line:41: Variable used without being declared

  • Ordner nach Dateien durchsuchen

    • PenGuin
    • 10. September 2009 um 20:14

    Da ist kein Input :?:

  • Ordner nach Dateien durchsuchen

    • PenGuin
    • 9. September 2009 um 21:35

    Nun hab ich die ListView aufgerufen mit der kompletten Musik. Wie kann ich nun suchen?

  • Ordner nach Dateien durchsuchen

    • PenGuin
    • 9. September 2009 um 20:34

    Er schreibt:

    [autoit]

    For $i = 1 To $aOrdner[0]
    For $i = 1 To $aOrdner^ ERROR

    [/autoit]
  • Ordner nach Dateien durchsuchen

    • PenGuin
    • 9. September 2009 um 14:19

    Hallo.

    Ich hatte vor mir ein Script zu basteln, das den order durchsucht in dem ich mich befinde. Ich brauch das für meinen Musik-Ordner, da er schon recht groß ist und ich nicht immer jede Musik-Datei wiederfinde.

    Ich will auch nicht immer die Windows-Suche benutzen.

    da ich weiß das man das mit FileFindFirstFile und FileFindNextFile alles machen kann, hab ich schonmal angefangen zu scripten.


    Hier der Code:


    [autoit]

    #include <GUIConstants.au3>
    #include <misc.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Suchen", 346, 140, 370, 261)
    $Button1 = GUICtrlCreateButton("Start", 115, 88, 113, 33, 0)
    $Eingeben = GUICtrlCreateInput("", 56, 32, 233, 26)
    GUICtrlSetLimit(-1, 100)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xF4F7FC)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    While 1
    $search = FileFindFirstFile($Eingeben)
    If $search = -1 Then
    MsgBox(0, "Fehler", "Es wurden keine Dateien gefunden, die zu dem Suchmuster passen")
    Exit
    EndIf
    $file = FileFindNextFile($search)
    If @error then ExitLoop
    MSgBox(0,"Titel",$file)
    WEnd
    FileClose($search)
    EndSwitch
    WEnd

    [/autoit]


    Problem:

    - Das Scipt sagt andauernd, dass keine Dateien gefunden worden, obwhol ich weiß das sie in dem Ordner sind!

    - Ich will das die Datei dann im Ordner so markiert wird, nur ich weiß nicht wie ich das mache.


    Hoffe, mir kann jemand helfen, Danke schonmal :)

  • Fenster öffnen

    • PenGuin
    • 1. Juli 2009 um 21:48

    Willst du einfach nur Firefox aufrufen?


    Dann probiers mal mit ShellExecute...

  • schleife bis Buttonklicka usführen

    • PenGuin
    • 12. Juni 2009 um 21:54

    Wozu sollte er ein Bot mit AutoIt bauen?

    Hätte er es beabsichtigt ein Bot zu scripten, dann hätte er es mit Delphi getan...

    Also seh nicht immer alles als Bot an pls.

  • Button geht nicht.. wie lösen?

    • PenGuin
    • 3. Juni 2009 um 16:39

    Ja mit AdlibEnable sollte es gehen, genauere Erklärung dazu steht in meinem Fragenthread, wo ich auch das Programm schließen wollte , während er die Zeit anzeigt:

    [ offen ] Zeit anzeigen lassen

  • Warum funktioniert das nicht ? / Fenster verstecken

    • PenGuin
    • 26. Mai 2009 um 14:00

    Poste das mal bitte immer als AutoIT Quellcode, so wie oben.


    Vielleicht lässt sich da was mit _IsPressed machen.

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™