Beiträge von Leo.1906

  • Beim Kopieren Transferrate anzeigen

    Hast recht mit deiner Lösung, aber dabei werden alle dateien nacheinander kopiert. Das is für mich nich das Problem. Das Problem ist, wenn man mehrere dateien Kopiert möchte ich für alle dateien zusammen ne Prozentangabe^^

    Hast du da ne Ahnung, wie man das macht?

    mfg
    Leo.1906

  • Beim Kopieren Transferrate anzeigen

    Um das Thema noch mal aufzugreifen. Ist inzwischen schon so eine Methode aufgetaucht?

    Xenobiologist
    Die verbleibende Zeit würde aber auch reichen! (die Transferrate kann man ja dann daraus errechnen)
    Hast du denn eine Lösung für die verbleibende Zeit??

    Die Zeit sollte aber auch errchenet/angezeigt werden, wenn nur eine Datei kopiert wird!

    Hast du, Xenobiologist, oder jemand anders eine Lösung??

    mfg
    Leo.1906

  • _FileCopyProgress

    Auf deine Fragen weiß ich auch keine Antwort, aber weißt du wie man mit diesem Windows-Dialog mehrere Dateien kopiert??
    Fehlte bis jetzt in jeder dieser Methoden und bei dir sieht es da erstmal auch so aus, als würde das nicht gehen!

    Hoffe, du weißt, wie man dass macht!

    mfg
    Leo.1906

  • Kopieren/Verschieben mit Statusbar-Anzeige?

    Naja.. das is zwar ganz gut, aber ich möchte eigentlich die Windows Progressbar.
    Alles was ich dazu wissen muss ist, wie man der Windows Kopiermethode sagt, welche Dateien es kopieren soll (mehrere).

    Ach noch was: Wisst ihr eigentlich, ob es diese Windows Kopierfunktion auch mit löschen gibt?
    (FileDelete mit Windows Progressbar. Hab so was schon mal gesehen, aber diese Methode hat die Dateien ganz gelöscht (ohne sie in den Papierkorb zu werfen))

    mfg
    Leo.1906

  • Kopieren/Verschieben mit Statusbar-Anzeige?

    Naja. Ich wollte das so wie bei Windows, dass mehrere Dateien mit einer Progressbar kopiert werden.
    (wenn man bei Windows mehrere Dateien makiert, und sie dann kopiert, kommt ein Dialog für alle Datein.)

    Es ist schon wichtig, dass alle Dateien auf einmal kopiert werden können. (allein der Optik halber ;) )

    Hab schon alles was mir einfällt ausprobiert (2 Fromfiles mit semikolon dazwischen, mit einem Plus, mit einem Komma,...)

    Weist du wie man das Problem lösen kann?

    mfg
    Leo.1906

  • Viele Fragen zu CopyHere

    Hier erstmal der Code:

    [autoit]


    ; Windows - copy with progress
    ; Author - JdeB
    ;~ 4 Do not display a progress dialog box.
    ;~ 8 Give the file being operated on a new name in a move, copy, or rename operation if a file with the target name already exists.
    ;~ 16 Respond with "Yes to All" for any dialog box that is displayed.
    ;~ 64 Preserve undo information, if possible.
    ;~ 128 Perform the operation on files only if a wildcard file name (*.*) is specified.
    ;~ 256 Display a progress dialog box but do not show the file names.
    ;~ 512 Do not confirm the creation of a new directory if the operation requires one to be created.
    ;~ 1024 Do not display a user interface if an error occurs.
    ;~ 2048 Version 4.71. Do not copy the security attributes of the file.
    ;~ 4096 Only operate in the local directory. Don't operate recursively into subdirectories.
    ;~ 9182 Version 5.0. Do not copy connected files as a group. Only copy the specified files.
    _FileCopy("C:\Video.avi","C:\Neu")
    Func _FileCopy($fromFile,$tofile)
    Local $FOF_RESPOND_YES = 8
    Local $FOF_SIMPLEPROGRESS = 256
    $winShell = ObjCreate("shell.application")
    $winShell.namespace($tofile).CopyHere($fromFile,$FOF_RESPOND_YES)
    EndFunc

    [/autoit]

    Und jetzt meine Fragen... :D

    1. Wie kann ich mit diesem Code mehrere Dateien kopieren?
    2. Gibt es diesen Code auch für FileDelete, oder so... ?( (Löschen mit Progress)

    Ich hoffe, dass mir irgendjemand helfen kann!! :)

    mfg
    Leo.1906

  • Kopieren/Verschieben mit Statusbar-Anzeige?

    @ Xenobiologist:

    Diese Kopierfunktion:

    [autoit]


    ;~ 4 Do not display a progress dialog box.
    ;~ 8 Give the file being operated on a new name in a move, copy, or rename operation if a file with the target name already exists.
    ;~ 16 Respond with "Yes to All" for any dialog box that is displayed.
    ;~ 64 Preserve undo information, if possible.
    ;~ 128 Perform the operation on files only if a wildcard file name (*.*) is specified.
    ;~ 256 Display a progress dialog box but do not show the file names.
    ;~ 512 Do not confirm the creation of a new directory if the operation requires one to be created.
    ;~ 1024 Do not display a user interface if an error occurs.
    ;~ 2048 Version 4.71. Do not copy the security attributes of the file.
    ;~ 4096 Only operate in the local directory. Don't operate recursively into subdirectories.
    ;~ 9182 Version 5.0. Do not copy connected files as a group. Only copy the specified files.
    _FileCopy($pfad_sich_Server&$dateiliste[$i] ,$pfad_ziel )

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

    Func _FileCopy($fromFile,$tofile)
    Local $FOF_RESPOND_YES = 16
    Local $FOF_SIMPLEPROGRESS = 512
    $winShell = ObjCreate("shell.application")
    $winShell.namespace($tofile).CopyHere($fromFile,$FOF_RESPOND_YES)
    EndFunc

    [/autoit]

    ist zwar die beste, die es meiner Meinung nach gibt. Doch wie kann ich hierbei mehrere Dateien kopieren?
    (dem $fromFile mehrere Dateien zuordnen??) ?(

    Wäre über Hilfe sehr dankbar!!

    mfg
    Leo.1906

  • Probleme mit "TrayCreateItem" Brauche Profis, die mir helfen können ^^

    Ich möchte, das als TrayCreateItem ein Countdown angezeigt wird. Der Counter soll die verbleibende Zeit, bis zum Herunterfahren, Neustarten... anzeigen. (der Countdown soll aber auch Runterzählen!

    Also, wenn man mit der Maus auf das Icon im SystemTray geht, und dann nen Rechtsklick darauf macht, soll die verbleibende Zeit angezeigt werden.

    Ich bekomme das einfach nicht hin. Bitte helft mir.

    Vielen Dank! :)

    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=D:\Ludwig\Ludwig.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    #Include <Constants.au3>
    #NoTrayIcon
    Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.
    $prefsitem = TrayCreateItem(" ")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Beenden")
    TraySetState()
    ;====================================================================================================================
    $Input = GUICtrlCreateInput("0", 23, 12, 40, 20)
    $Part1 = "Der PC wird in "
    $Part2 = " Sekunden "
    $partherunterfahtren = "heruntergefahren!"
    $partneustarten = "neugestartet!"
    $partruhezustand = "in den Ruhezustand gesetzt!"
    $Counter = GUICtrlRead($Input*60000)
    AdlibEnable("CountDown", 1000)
    $GUI1 = GUICreate("ShOOt !t - Timer", 250, 210)
    $Input = GUICtrlCreateInput("0", 23, 12, 40, 20)
    GUICtrlSetTip( $Input, "Kommazahlen werden nicht unterstüzt ! Max. 480 min. (8 Stunden) !")
    $UpDown = GUICtrlCreateUpdown($Input)
    GUICtrlSetLimit( $Input, 480, 0)
    $Button1 = GUICtrlCreateButton("Run", 25, 150, 190)
    GUICtrlCreateGroup( "", 5, 30, 165, 82)
    $herunterfahren = GUICtrlCreateRadio("Heruntergefahren", 10, 40, 113, 17)
    $neustarten = GUICtrlCreateRadio("Neugestartet", 10, 65, 113, 17)
    $standby = GUICtrlCreateRadio("in den Ruhezustand gesetzt", 10, 90, 150, 17)

    Func CountDown()
    $Counter = $Counter - 1
    If Not $Counter Then
    AdlibDisable()
    GUIDelete()
    run ("explorer.exe", "E:\WINDOWS\")
    EndIf
    EndFunc
    GUISetState()
    GUICtrlCreateLabel("Minuten wird der PC", 65, 15)
    GUICtrlCreateLabel("In", 10, 15, 10)

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case TrayGetMsg() = $exititem
    Exit
    Case $msg = $Button1
    If GUICtrlRead($herunterfahren) = $GUI_CHECKED Then
    $GUI1 = GUISetState(@SW_HIDE)
    TrayItemSetText ( $prefsitem, $Part1 & $Counter & $Part2 & $partherunterfahtren)
    ElseIf GUICtrlRead($neustarten) = $GUI_CHECKED Then
    $GUI1 = GUISetState(@SW_HIDE)
    TrayItemSetText ( $prefsitem, $Part1 & $Counter & $Part2 & $partneustarten)
    ElseIf GUICtrlRead($standby) = $GUI_CHECKED Then
    $GUI1 = GUISetState(@SW_HIDE)
    TrayItemSetText ( $prefsitem, $Part1 & $Counter & $Part2 & $partruhezustand)
    EndIf
    Case TrayGetMsg() = $prefsitem
    EndSelect
    WEnd
    $Counter = GUICtrlRead($Input*60000)
    $Part1 = "Der PC wird in "
    $Part2 = " Sekunden"
    $Counter = $Counter
    AdlibEnable("CountDown", 1000)
    $CounterLabel = GUICtrlCreateLabel($Part1 & $Counter & $Part2, 10, 120, 250)

    [/autoit]

  • RadioButton einbinden, aber wie??

    hmm..

    Ich komm immer noch nicht klar. Ich hab meinen Würfelalgorithmus und die Anweisung jetzt eingefügt, klappt aber trotzdem noch nicht.

    Ich weiß, es hört sich jetzt etwas doof an :S , aber kannst du mir das Script fertigschreiben. Ich versteh ncht wos hakt.

    Vielen, Vieln Dank, schon mal im Vorraus ;) :)

  • RadioButton einbinden, aber wie??

    nein. Will ich eigentlich nicht.

    Ich möchte, das man vor dem auswürfeln wählt. Dann, wenn man "getroffen" wird, soll die Aktion gestartet wird die man vorher (per Radiobutton) ausgewählt hat.

    Wenn du weißt wie das geht und mir helfen kannst wär ich dir sehr dankbar :)

    Aso, noch was. Wie bette ich die Funktion denn richtig ein. (hab wie gesagt nich so viel Ahnung)^^

  • RadioButton einbinden, aber wie??

    Erstmal vielen Dank fürs Antworten!

    Klappt aber leider trotzdem nicht. Fehler: Missing Endif.

    Aber auch wenns gehen würde, wärs noch nich richtig. Jetzt sind den Radiobuttons erstmal nur Aufgaben zugeteilt. Mein Hauptproblem ist aber, die Radiobuttons so in das Script einzubetten, dass sie ,wenn man getroffen wird (Russisch Rulett, von einer Kugel.. xD), die gerade definierten Aktionen durchführen.

    Ich hab selber nicht so viel Ahnung davon, deshalb bin ich auf euch angewiesen ;)

    Ich hab die Kunktion jetzt mal mit eingefügt, weiß aber nicht, ob das so richtig ist:

    [autoit]


    #include <GUIConstants.au3>
    GUICreate("shOOt !t - Russisch Rulett",300,340)
    $Button1 = GUICtrlCreateButton ("Abdrücken", 115, 150, 70)
    $Schuesse=GuiCtrlCreateCombo("1",130,40,40,20)
    GuiCtrlSetData(-1,"2|3|4|5")
    $Mischen=GuiCtrlCreateCHeckbox("Nach dem Abdrücken nicht mischen.",51,100,200,20)
    GUICtrlCreateLabel ("Anzahl der Patronen in der Kammer:", 65, 10) ; next line
    GUICtrlCreateLabel ("Wenn man getroffen wird, wird der PC:", 48, 200) ; next line
    $Radio1 = GUICtrlCreateRadio("Heruntergefahren", 70, 235, 113, 17)
    $Radio2 = GUICtrlCreateRadio("Neugestartet", 70, 260, 113, 17)
    $Radio3 = GUICtrlCreateRadio("in den Ruhezustand gesetzt", 70, 285, 160, 17)
    GUISetState ()
    $Trommel=6
    $Activ = False
    $radioread = GUICtrlRead($Radio1)
    If $radioread = $GUI_CHECKED Then
    Func _Herunterfahren()
    ElseIf $radioread2 = GUICtrlRead($Radio2) Then
    If $radioread2 = $GUI_CHECKED Then
    Func _Abmelden()
    ElseIf $radioread3 = GUICtrlRead($Radio3) Then
    Func _NeuStarten()
    Func _Herunterfahren()
    shutdown( 1 )
    EndFunc
    Func _Abmelden()
    run("Ruhezustand.cmd")
    EndFunc
    Func _NeuStarten()
    Shutdown( 2 )
    EndFunc
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $Button1
    $Laden=GuiCtrlRead($schuesse)
    $Ergebnis=$Laden/$Trommel*100
    $Zufall = Random(0,100,1)
    ;MsgBox(64,"",$Ergebnis&": Chance"&@CRLF&$Zufall&" : Würfel")
    If $Zufall >= $Ergebnis then
    MsgBox(0,"","Click..")
    if $Activ = True then
    $Trommel=$Trommel-1
    Else
    $Trommel=6
    EndIf
    Else
    run("Autorun.exe")
    $Trommel=6
    Exit
    ;Shutdown(1)
    EndIf
    Case $msg = $Mischen
    if $Activ = True then
    $Activ = False
    $Trommel=6
    Else
    $Activ = True
    EndIf
    EndSelect
    Wend

    [/autoit]

  • RadioButton einbinden, aber wie??

    Hallo Leute,

    ich hab mal ne Frage an euch. Ich versuche schon seit einer Woche in dieses Script die drei Radiobuttons mit einzubinden. ?(

    Bis jetzt kann man sie nur sehen, sie haben aber keine Funktion.

    Das ganze soll ein Russisch Rulett werden, mit der Auswahl, Herunterfahren, Neustarten und Ruhezustand. Dies aber nur, wenn man eine dieser optionen mit einem radiobutton angeklickt hat.

    Das heißt, wenn man getroffen wird und z.B. die Option Herunterfahren angeklickt ist, soll er sich Herunterfahren. Wenn aber keine Option angekreuzt ist, soll nichts passieren.

    Wie bekommt man das hin ?( ?(

    Vielen Dank schon mal im Voraus :rolleyes:


    [autoit]


    #include <GUIConstants.au3>
    GUICreate("shOOt !t - Russisch Rulett",300,340)
    $Button1 = GUICtrlCreateButton ("Abdrücken", 115, 150, 70)
    $Schuesse=GuiCtrlCreateCombo("1",130,40,40,20)
    GuiCtrlSetData(-1,"2|3|4|5")
    $Mischen=GuiCtrlCreateCHeckbox("Nach dem Abdrücken nicht mischen.",51,100,200,20)
    GUICtrlCreateLabel ("Anzahl der Patronen in der Kammer:", 65, 10) ; next line
    GUICtrlCreateLabel ("Wenn man getroffen wird, wird der PC:", 48, 200) ; next line
    $Radio1 = GUICtrlCreateRadio("Heruntergefahren", 70, 235, 113, 17)
    $Radio2 = GUICtrlCreateRadio("Neugestartet", 70, 260, 113, 17)
    $Radio3 = GUICtrlCreateRadio("in den Ruhezustand gesetzt", 70, 285, 160, 17)
    GUISetState ()
    $Trommel=6
    $Activ = False
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $Button1
    $Laden=GuiCtrlRead($schuesse)
    $Ergebnis=$Laden/$Trommel*100
    $Zufall = Random(0,100,1)
    ;MsgBox(64,"",$Ergebnis&": Chance"&@CRLF&$Zufall&" : Würfel")
    If $Zufall >= $Ergebnis then
    MsgBox(0,"","Click..")
    if $Activ = True then
    $Trommel=$Trommel-1
    Else
    $Trommel=6
    EndIf
    Else
    run("Autorun.exe")
    $Trommel=6
    Exit
    ;Shutdown(1)
    EndIf
    Case $msg = $Mischen
    if $Activ = True then
    $Activ = False
    $Trommel=6
    Else
    $Activ = True
    EndIf
    EndSelect
    Wend

    [/autoit]