Beiträge von Schnuffel

  • Wie bekomme ich beide checkboxen gleichzeitig zum laufen

    wenn Deine 1. Funktion aufgerufen wird:

    Spoiler anzeigen
    [autoit]

    Func _Func1 ()
    Run("notepad.exe")
    WinWaitActive("Unbenannt - Editor")
    While 1
    Send("1")
    Sleep(3000)
    WEnd
    Exit
    EndFunc

    [/autoit]

    läuft diese in einer Schleife, um alle 3 Sek. eine 1 zu schreiben.
    Aus dieser Art von Schleife gibt es kein zurück.
    D.h. es wird auch nicht mehr abgefragt, ob Checkbox 2 gedrückt wurde.
    Was meinst Du denn mit:

    Zitat

    beide befehle


    soll dann im Editor etwa stehen 121212121 ??????
    sowas müssen wir schon wissen :D
    PS: wenn du für Code mitposten willst, verwenden den "SP"-Button & rechts daneben den "AutoIt"-Button, dann wird der Code auch formatiert ;)

  • Update funktion soll versionen von exe dateien vergleichen

    Zitat

    $GewaehlteDatei = FileOpenDialog("", "", "exe (*.exe;)", 1) ;exe datei auswählen


    zu Deinem ersten Problem,
    selbes Prinzip:

    Spoiler anzeigen
    [autoit]

    $GewaehlteDatei = StringSplit(FileOpenDialog("", "", "exe (*.exe)", 1),"\") ;exe datei auswählen
    ;Dateiname:
    msgbox(0,"",$GewaehlteDatei[$GewaehlteDatei[0]]); $GewaehlteDatei[0] entspricht dabei der Anzahl Einträge im Array

    [/autoit]

  • Digitaluhr

    ich muß Dir Recht geben.
    Ich habe mehrere Font's versucht, aber bei der Größe ist immer eine deutliche Treppenbildung zu erkennen.

    Naja, war halt nur eine Idee...
    Aber trotzdem Danke, dass Du es ausprobiert hast. :rock:

  • Digitaluhr

    Hallo Oscar,

    Deine Uhr wird immer noch besser.
    Ist ja ein richtiges Lernprojekt :D

    Jetzt sind mir doch glatt noch ein paar Verbesserungsvorschläge eingefallen.
    Vielleicht kannst Du ja anstatt Deiner *.gif's einfach einen Font nehmen, der bei "Installation" Deiner Uhr mit kopiert wird.
    z.B. siehe Dateianhang lcd.zip.
    Damit wäre es möglich
    1. über ein AuswahlFenster alle Farben der Farbpalette zu vergeben und
    2. die Darstellung in der Größe dynamisch zu gestalten ( Fenstergröße <--> Fontgröße)

    Vielleicht gefällt Dir ja meine Idee ...

  • ms in sek

    wenn das mit der Sekunde nicht 100% stimmen muss, ;)

    würde ich das so machen:

    Spoiler anzeigen
    [autoit]

    $progress = 26 ; Sekunden die der Progress laufen soll
    $j=1
    ProgressOn("Laden" , "Bitte Warten",0)
    For $i = 1 To 100 Step (100/$progress)
    Sleep(990)
    ProgressSet( $i , $j)
    $j +=1
    Next
    ProgressSet(100 , "Laden beendet" , "Fertig")
    Sleep(500)
    ProgressOff()

    [/autoit]

    Ansonsten musst Du halt noch die Laufzeit Deines Scriptes mit TimerInit() & TimerDiff() abgreifen und von den sleep(1000-TimerDiff) auf die Differenz setzen.
    Ist zwar nicht wissenschaftlich genau, aber ...

  • Emails exportieren

    @ progandy,

    sorry, hast natürlich Recht... (war ein morgentlicher Schnellschuss) ;(

    @ Crazy-A

    Also für Outlook Express würde ich gar nicht mit den Identitie-Schlüsseln hantieren.
    Du weißt bestimmt den Usernamen. Daraus läßt sich ja schonmal der Pfad:
    "C:\Dokumente und Einstellungen\Username\Lokale Einstellungen\Anwendungsdaten\Identities\" herleiten.
    In dem Pfad suchst Du halt nach den *.dbx Dateien. Fertig.
    Wenn Du das ganze natürlich Variabel für Outlook Express, Outlook (nur wenn *.pst-Dateien, nicht Exchange (zumindest nicht so einfach) ...),
    Thunderbird, etc... gestalten willst, musst Du wohl erstmal in Deinem Script abfragen im Programme Ordner oder Registry, welche Software denn drauf ist, und vielleicht auch, welche als Standard registriert ist...

  • Variablen aufteilen

    noch ein kleiner Tip der Schreibarbeit spart:

    Spoiler anzeigen
    [autoit]

    $varges = InputBox("test","Bitte TEXT eingeben.")

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

    MsgBox(4096,"INFO","eingegebener TEXT ist "&$varges)

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

    $var1 = StringSplit($varges,"")

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

    MsgBox(0,"","string ist "&$var1[0]&" zeichen lang")

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

    For $i = 1 to $var1[0] Step 1
    MsgBox(0,"","Zeichen "&$i&" = "&$var1[$i])
    Next

    [/autoit]

  • Digitaluhr

    Hallo Oscar,

    auch von mir ein großes Lob :thumbup:

    einen Bug hab ich auf die schnelle doch noch gefunden und einen Wunsch:
    Bug: wenn ich bei Laufender Uhr die transparenz einschalte kommt ein Message-Fenster und sagt
    "Das Programm läuft bereits" (danach läuft es nicht mehr ;( )
    Wunsch: Die Funktionsfenster vielleicht auf onTop setzen, damit diese nicht unter der Uhr verschwinden.

    Aber ich muß sagen, das Ding entwickelt sich schneller, als man es herunterladen kann :D

  • FileInstall

    aus der AutoIt Hilfe:

    Zitat

    @ScriptDir = Directory containing the running script. (Result does not contain a trailing backslash)
    @ScriptFullPath = Equivalent to @ScriptDir & "\" & @ScriptName

    ich denke mal das ist die "Abfang-Routine" in FileInstall.
    Wenn die Pfadangabe ungültig ist, geht das Script von der Root aus.

  • Formularinhalt per Schaltfläche ändern

    mach ich sonst in der Ausfürlichkeit eigentlich nicht, aber das hatte ich gerade rumliegen :)

    ich denke darauf kann man aufbauen...

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>

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

    Opt("MustDeclareVars", 1)
    Opt("GUIOnEventMode", 1)
    Const $main_gui_width = 860
    Const $main_gui_height = 710
    Const $child_gui_width = 860
    Const $child_gui_height = 660
    Const $btn_bkcol = 0xd4d0c8
    Const $btn_col = 0x000000
    Const $btn_bkcol_a = 0x0a246a
    Const $btn_col_a = 0xffffff
    Global $title = "Demo für Child-Fenster"
    Global $dummy=GUICtrlCreateLabel("",0,0,1,1)
    Global $main_gui = GuiCreate($title, $main_gui_width, $main_gui_height, -1, -1, BitOr($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
    Global $child1_gui, $child2_gui, $child3_gui, $child4_gui, $child5_gui, $child_akt, $child_old
    Global $btn_child1=GUICtrlCreateButton("Button 1", 10,0,160,30)
    GUICtrlSetFont(-1,10,300)
    GUICtrlSetOnEvent(-1, "child_show")
    Global $btn_child2=GUICtrlCreateButton("Button 2",180,0,160,30)
    GUICtrlSetFont(-1,10,300)
    GUICtrlSetOnEvent(-1, "child_show")
    Global $btn_child3=GUICtrlCreateButton("Button 3",350,0,160,30)
    GUICtrlSetFont(-1,10,300)
    GUICtrlSetOnEvent(-1, "child_show")
    Global $btn_child4=GUICtrlCreateButton("Button 4",520,0,160,30)
    GUICtrlSetFont(-1,10,300)
    GUICtrlSetOnEvent(-1, "child_show")
    Global $btn_child5=GUICtrlCreateButton("Button 5",690,0,160,30)
    GUICtrlSetFont(-1,10,300)
    GUICtrlSetOnEvent(-1, "child_show")

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

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

    child1_gui()
    child2_gui()
    child3_gui()
    child4_gui()
    child5_gui()

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

    $child_akt = $child1_gui ; um letzten aktiven Button wieder neutral zu färben
    GUICtrlSetBkColor($btn_child1,$btn_bkcol_a)
    GUICtrlSetColor($btn_child1,$btn_col_a)
    GUICtrlSetState($dummy,$GUI_FOCUS)
    GuiSetState(@SW_SHOW,$main_gui)
    GuiSetState(@SW_SHOW,$child1_gui)

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

    While 1
    Sleep(1)
    WEnd

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

    Func child_show()
    $child_old = $child_akt
    Switch @GUI_CtrlId
    Case $btn_child1
    If $child_akt <> $child1_gui Then
    GuiSetState(@SW_HIDE,$child_akt)
    GuiSetState(@SW_SHOW,$child1_gui)
    $child_akt = $child1_gui
    GUICtrlSetBkColor($btn_child1,$btn_bkcol_a)
    GUICtrlSetColor($btn_child1,$btn_col_a)
    GUICtrlSetState($dummy,$GUI_FOCUS)
    EndIf
    Case @GUI_CtrlId = $btn_child2
    If $child_akt <> $child2_gui Then
    GuiSetState(@SW_HIDE,$child_akt)
    GuiSetState(@SW_SHOW,$child2_gui)
    $child_akt = $child2_gui
    GUICtrlSetBkColor($btn_child2,$btn_bkcol_a)
    GUICtrlSetColor($btn_child2,$btn_col_a)
    GUICtrlSetState($dummy,$GUI_FOCUS)
    EndIf
    Case $btn_child3
    If $child_akt <> $child3_gui Then
    GuiSetState(@SW_HIDE,$child_akt)
    GuiSetState(@SW_SHOW,$child3_gui)
    $child_akt = $child3_gui
    GUICtrlSetBkColor($btn_child3,$btn_bkcol_a)
    GUICtrlSetColor($btn_child3,$btn_col_a)
    GUICtrlSetState($dummy,$GUI_FOCUS)
    EndIf
    Case $btn_child4
    If $child_akt <> $child4_gui Then
    GuiSetState(@SW_HIDE,$child_akt)
    GuiSetState(@SW_SHOW,$child4_gui)
    $child_akt = $child4_gui
    GUICtrlSetBkColor($btn_child4,$btn_bkcol_a)
    GUICtrlSetColor($btn_child4,$btn_col_a)
    GUICtrlSetState($dummy,$GUI_FOCUS)
    EndIf
    Case $btn_child5
    If $child_akt <> $child5_gui Then
    GuiSetState(@SW_HIDE,$child_akt)
    GuiSetState(@SW_SHOW,$child5_gui)
    $child_akt = $child5_gui
    GUICtrlSetBkColor($btn_child5,$btn_bkcol_a)
    GUICtrlSetColor($btn_child5,$btn_col_a)
    GUICtrlSetState($dummy,$GUI_FOCUS)
    EndIf
    EndSwitch
    If $child_old <> $child_akt Then
    Switch $child_old
    Case $child1_gui
    GUICtrlSetBkColor($btn_child1,$btn_bkcol)
    GUICtrlSetColor($btn_child1,$btn_col)
    Case $child2_gui
    GUICtrlSetBkColor($btn_child2,$btn_bkcol)
    GUICtrlSetColor($btn_child2,$btn_col)
    Case $child3_gui
    GUICtrlSetBkColor($btn_child3,$btn_bkcol)
    GUICtrlSetColor($btn_child3,$btn_col)
    Case $child4_gui
    GUICtrlSetBkColor($btn_child4,$btn_bkcol)
    GUICtrlSetColor($btn_child4,$btn_col)
    Case $child5_gui
    GUICtrlSetBkColor($btn_child5,$btn_bkcol)
    GUICtrlSetColor($btn_child5,$btn_col)
    EndSwitch
    EndIf

    EndFunc
    Func child1_gui()
    $child1_gui = GUICreate("", $child_gui_width, $child_gui_height, 0, 10, BitOR($WS_CHILD, $WS_TABSTOP), $WS_EX_CONTROLPARENT, $main_gui)
    GuiCtrlCreateLabel("Dies ist Seite 1",50,200,200,30)
    GuiCtrlSetFont(-1,12,600)
    GuiSetState(@SW_HIDE,$child1_gui)
    EndFunc
    Func child2_gui()
    $child2_gui = GUICreate("", $child_gui_width, $child_gui_height, 0, 10, BitOR($WS_CHILD, $WS_TABSTOP), $WS_EX_CONTROLPARENT, $main_gui)
    GuiCtrlCreateLabel("Dies ist Seite 2",50,200,200,30)
    GuiCtrlSetFont(-1,12,600)
    GuiSetState(@SW_HIDE,$child2_gui)
    EndFunc
    Func child3_gui()
    $child3_gui = GUICreate("", $child_gui_width, $child_gui_height, 0, 10, BitOR($WS_CHILD, $WS_TABSTOP), $WS_EX_CONTROLPARENT, $main_gui)
    GuiCtrlCreateLabel("Dies ist Seite 3",50,200,200,30)
    GuiCtrlSetFont(-1,12,600)
    GuiSetState(@SW_HIDE,$child3_gui)
    EndFunc
    Func child4_gui()
    $child4_gui = GUICreate("", $child_gui_width, $child_gui_height, 0, 10, BitOR($WS_CHILD, $WS_TABSTOP), $WS_EX_CONTROLPARENT, $main_gui)
    GuiCtrlCreateLabel("Dies ist Seite 4",50,200,200,30)
    GuiCtrlSetFont(-1,12,600)
    GuiSetState(@SW_HIDE,$child4_gui)
    EndFunc
    Func child5_gui()
    $child5_gui = GUICreate("", $child_gui_width, $child_gui_height, 0, 10, BitOR($WS_CHILD, $WS_TABSTOP), $WS_EX_CONTROLPARENT, $main_gui)
    GuiCtrlCreateLabel("Dies ist Seite 5",50,200,200,30)
    GuiCtrlSetFont(-1,12,600)
    GuiSetState(@SW_HIDE,$child5_gui)
    EndFunc

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

    Func CLOSEClicked()
    Exit 0
    EndFunc

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

  • _ZIp mit Autoit Plugin

    nur mal so am Rande:
    Das einzige Proggie, dass ich kenne mit diesem Funktionsumfang und diesen Anforderungen, ist ein Virus,
    der Dateien mit passwortschutz zipt und nur gegen Bares gibt's das Passwort zum entzippen. ?(

  • Kann Autoit warten bis ein bestimmtes Gerät an den PC angeschlossen wird?

    Naja, dann versuch es doch mal mit der Zeile 20:
    20 18:19:05 services.exe:980 QueryValue HKLM\SYSTEM\ControlSet001\Enum\ROOT\WPD\0000\FriendlyName SUCCESS "Nokia E61"

    Schau einfach mal nach, was in diesem Reg-Schlüssel steht, wenn dein Handy nicht am PC angeschlossen ist.

    Wenn der Wert sich ändert hast Du doch schon die Möglichkeit mittels einer Schleife und RegRead eine Abfrage zu "basteln".

    :P

  • Blond oder Blööd?? PROBLEM!!!!

    @ Candyandy2

    glaubst du, dass sich jemand mehr um dein Problem bemühen wird als Du selbst bereit bist zu tun?

    Es wäre leichter Dir zu helfen, wenn Du erst einmal versuchst ein Script zu schreiben.
    Wenn das nicht klappt, kannst Du das dann hier posten.
    Dann findet sich sicherlich jemand, der sich das ansieht und Dir Hilfestellung gibt.

    @ BugFix
    ich weiß, bin manchmal verständnislos, bei der allgemeinen Erwartungshaltung heutzutage.
    Versuche Besserung :rolleyes: