hi leute
schreibe gerade (im meinen augen^^) ein etwas größere Programm
wo stockt ist die ausführung einer datei mit batch und variablen
das was gesendet wird bzw geöffnet stimmt
aber das dos fenste rist viel zu kurzs auf, entweder es ligt an falschen parameter für die rar.exe (von winrar, ligt in system32 ordenr)
oder autoit, jetzt müsste ich rausfinden was in den fenster steht, das wird aber leider so schnell wieder geschlossen
hier mal das script
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.1.1.0
Author: myName
Script Function: Gibt ein PAsswort mehrmals ein
Template AutoIt script.
to do list: prozess überprüfen falls winrar2 schon läuft
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include <file.au3>
#include <array.au3>
#include <GUIConstants.au3>
#include <Misc.au3>
#Include <process.au3>
FileDelete("C:\Passwort.txt")
Dim $array[1]
GUICreate("Winrar Passwort", 700, 450)
GUICtrlCreateLabel("Hier Passwort eintragen", 10, 15)
$number1 = GUICtrlCreateEdit("", 180, 15, 500, 20, 0)
$save = GUICtrlCreateButton(" Speichern", 50, 410)
GUICtrlCreateLabel("Nur einmal starten!", 370, 390)
$pass = GUICtrlCreateButton(" Passworteingeber starten", 370, 410)
$endbutton = GUICtrlCreateButton("Schließen", 600, 410)
$Auto = GUICtrlCreateButton("Automtisch", 210, 410)
GUICtrlCreateLabel("Entpackt alle Dateien (*.part1)", 210, 350)
GUICtrlCreateLabel("in einen Verzeichnis nach ", 210, 370)
GUICtrlCreateLabel("Verzeichnis nach Wunsch", 210, 390)
GUICtrlCreateLabel("speichert das Passwort ", 50, 370)
GUICtrlCreateLabel(" in einer txt", 50, 390)
GUICtrlCreateLabel(" ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------", 0, 80)
GUICtrlCreateLabel(" ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------", 0, 330)
GUICtrlCreateLabel("Dieser Abschnitt dient nur für den Automatischen Modus", 10, 100)
GUICtrlCreateLabel("Ordner mit RAR-Archiven", 10, 120)
GUICtrlCreateLabel("Typ des Archiv´s", 10, 190)
GUICtrlCreateLabel("Zielverzeichnis wählen", 10, 250)
$Pfad = GUICtrlCreateButton("Pfad...", 10, 150, 50, 20, 0)
$Typ = GUICtrlCreateCombo("Typ wählen", 10, 210, 150, 30)
GUICtrlSetData(-1, "*.rar|*.part1.rar|*.001")
$Ziel = GUICtrlCreateButton("Ziel", 10, 270, 50, 20, 0)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg(0)
If $msg <> -3 Then
$zahl1 = GUICtrlRead($number1)
$TYP1 = GUICtrlRead($Typ)
$Ziel1 = GUICtrlRead($Ziel)
$Pfad1 = GUICtrlRead($Pfad)
Select
Case $msg = $save
FileDelete("C:\Passwort.txt")
FileWrite("C:\Passwort.txt", $zahl1)
Sleep(500)
Case $msg = $pass
Run("Winrar2.exe")
Case $msg = $Auto
;MsgBox(0, "Aktion beendet:", @ComSpec & ' /C rar e ' & $TYP1 & ' "' & $sel2_folder & '" "' & $sel_folder & '"')
$val = RunWait(@ComSpec & ' /C rar e "' & $TYP1 & '" "' & $sel2_folder & '" "' & $sel_folder & '"')
Case $msg = $Ziel
$sel_folder = FileSelectFolder("Zielsuche", "", 1)
Case $msg = $Pfad
$sel2_folder = FileSelectFolder("Ordner mit Rar-Dateien", "", 1)
Case $msg = $endbutton Or $msg = $GUI_EVENT_CLOSE
Exit
ExitLoop
EndSelect
EndIf
WEnd
