Kommandozeilenbefehle mit Variablen

MiKru

Hallo zusammen,

ich habe eine kurze Frage zu einem Tool, welches ich mit AutoIt realisieren möchte.

Es geht darum, dass mehreren Benutzer ermöglicht werden soll, Programme mit einer vorgegebenen Prozesspriorität zu starten. (z.B. Microsoft Excel)
Das geschieht über das Kommando

Code

START /HIGH "C:\Programme\Microsoft Office\Office12\EXCEL.EXE"

.

Es geht nun darum, dass der Benutzer zunächst die Anwendung auswählt (Standard: Excel) und diese dann mit der entsprechenden Priorität startet.
Die Auswahl kann man ja über FileOpenDialog machen und ggf. den geänderten Pfad dann in einer Variable ablegen.
Das Programm müsste quasi über den Befehl

Code

START /HIGH "$file"

gestartet werden.

Kann mir vielleicht jemand dabei helfen bzw. mir mitteilen, wie man das lösen kann?
Vielen Dank im Voraus.

**funkey**

An sich kein Problem, nur startet Excel bei mir so nicht!?

[autoit]

Local $ExePath = '"C:\Programme\Microsoft Office\Office12\EXCEL.EXE"'
Run(@ComSpec & " /k " & 'start /high /b ' & $ExePath, "");, @SW_HIDE)

[/autoit]

MiKru

Vielen Dank schonmal.

So funktioniert es bei mir:

[autoit]

Local $ExePath = '"C:\Programme\Microsoft Office\Office12\EXCEL.EXE"'
Run(@ComSpec & " /k " & 'start "" /max /high /b ' & $ExePath, "");, @SW_HIDE)

[/autoit]

Mir würde jetzt noch folgendes fehlen:

~~Auswahldialog für eine Anwendung~~
~~Falls keine Anwendung ausgewählt --> Excel~~
Am besten ohne Anzeige des Konsolenfensters
Ende des Scripts bzw. Beendigung nach Start

Geht das auch so einfach?

EDIT:

Den Auswahldialog und die "Standardanwendung" hab ich schon hinbekommen:

[autoit]

$ExePath = ""
$ExePath = FileOpenDialog("Datei auswählen...", "C:\Programme\", "Alle Dateien (*.*)", 3, "")
IF $ExePath = "" THEN Local $ExePath = '"C:\Programme\Microsoft Office\Office12\EXCEL.EXE"'
Run(@ComSpec & " /k " & 'start "" /max /high /b ' & $ExePath, "");, @SW_HIDE)

[/autoit]

**funkey**

Ohne Dos-Fenster ist einfach. Habe ich nur zum Testen eingeschalten

[autoit]

Local $ExePath = '"C:\Programme\Microsoft Office\Office12\EXCEL.EXE"'
Run(@ComSpec & " /c " & 'start "" /max /high /b ' & $ExePath, "", @SW_HIDE)

[/autoit]

Schau mal in die Hilfe unter GuiCtrlCreateCombo. Damit kannst du dann die Priorität auswählen und vllt mit Checkboxen die verschiedenen Programme.

**Schnitzel**

hab dir mal n kleines beispielprogramm gemacht
ich denke so willst dus haben

Spoiler anzeigen

[autoit]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Programmstarter", 294, 138, 193, 125)
$Combo1 = GUICtrlCreateCombo("", 40, 16, 225, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))

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

GUICtrlSetData(-1, "Editor|Rechner|Paint")
$Button1 = GUICtrlCreateButton("Start", 40, 56, 227, 49, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
$read = GUICtrlRead($combo1)
Switch $read
Case "Editor"
Run(@ComSpec & " /k " & 'start /high /b notepad', "", @SW_HIDE)
Case "Rechner"
Run(@ComSpec & " /k " & 'start /high /b calc', "", @SW_HIDE)
Case "Paint"
$pfad = "C:\WINNT\system32\mspaint.exe"
Run(@ComSpec & " /k " & 'start /high /b ' & $pfad, "", @SW_HIDE)
EndSwitch
EndSwitch
WEnd

[/autoit]

MiKru

Wow, der Support ist ja echt genial hier!
Vielen Dank für die Hilfe!

Ich werd mich dann mal ein bisschen in die GUI-Erstellung einarbeiten....

ojo

Hi,

Ansatz mit Array:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <array.au3>

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

Dim $arprogram [2] [2] = [["Excel", "C:\Programme\Microsoft Office\Office12\EXCEL.EXE"],["WinWord", "C:\Programme\Microsoft Office\Office12\Winword.EXE"]]
Local $string = ""

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

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Prio Starter", 417, 140, 227, 323)
$Label1 = GUICtrlCreateLabel("Programm", 8, 16, 51, 17)
$Label2 = GUICtrlCreateLabel("Priorität", 192, 16, 39, 17)
$Combo1 = GUICtrlCreateCombo("", 8, 48, 145, 25)
$Combo2 = GUICtrlCreateCombo("", 192, 48, 145, 25)
GUICtrlSetData(-1, "Normal|High", "High")
$Button1 = GUICtrlCreateButton("Start", 8, 88, 131, 25)
$Button2 = GUICtrlCreateButton("Cancel", 144, 88, 123, 25)
$Button3 = GUICtrlCreateButton("Anwendung neu", 276, 88, 123, 25)
For $i = 0 To UBound ($arprogram) - 1
$string &= $arprogram [$i] [0] & "|"
Next
GUICtrlSetData ($Combo1, StringTrimRight ($string,1), "Excel")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
_startprio ($arprogram [_ArraySearch ($arprogram, GUICtrlRead ($combo1))] [1], GUICtrlRead ($Combo2))
Case $Button3
$ExePath = FileOpenDialog("Datei auswählen...", "C:\Programme\", "Alle Dateien (*.*)", 3, "")
If $ExePath <> "" Then
$btnid = MsgBox (3, "Starte mit Prio High", "Soll Anwendung " & $ExePath & " mit Prio High gestartet werden?")
Switch $btnid
Case 6
_startprio ($ExePath, "high")
Case 7
_startprio ($ExePath, "normal")
EndSwitch
EndIf
EndSwitch
WEnd

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

Func _startprio ($prog, $prio)
$cmd = 'start "" /max /b /' & $prio & " " & Chr (34) & $prog & Chr (34)
Run (@ComSpec & " /c " & $cmd)
EndFunc

[/autoit]

;-))
Stefan

**Andy**

[autoit]

ProcessSetPriority ()

[/autoit]

Ist ein weiterer Ansatz, Prioritäten mittels Script einfach zu verwalten?!

**Schnitzel**

Zitat von ojo

Ansatz mit Array:

@ojo: schöner ansatz aber hast dus mal getestet?

ojo

Shame on me...... :pinch:

man sollte den Code im Scite bearbeiten und dann kopieren.
Habe nach dem Copy Paste und speichern nochmal editiert:
Ein paar unnötige Variablen rausgenommen. Deshalb war hinter der Array Deklaration noch ein verwaistes Komma und ein fehlendes default für ne Combo. Ebenfalls noch eine unnötige MsgBox ..

Ansonsten habe ich getestet...

;-))
Stefan

**Schnitzel**

und von den 11 includes brauchst du 9 nicht

und das starten von excel und so funktioniert bei mir nicht, aber egal, sein problem ist ja einigermaßen gelöst

ojo

Sry, hab den Kopf im Moment nicht so ganz frei, fehlt ein bisschen an der Konzentration. Ärgert mich ganz schön diese buggige....

1) 2. ter Paste and Copy Fehler durch Koda nach Erweiterung und anpassen des 3.ten Buttons Anwendung........................
2) Excel startet bei dem Code bei mir auch nicht, da ich Office 2000 habe. Habe den Code auf seine Bedürfnisse angepasst.
["Excel", "C:\Programme\Microsoft Office\Office\EXCEL.EXE"] -> funktioniert bei mir.

Es wäre natürlich das i Tüpfelchen die entsprechende Shell aus der Registry auszulesen und damit das array zu befüllen....

;-))
Stefan
Edit: Code von Post weiter oben entsprechend angepasst. Danke für die Korrektur Hilfe.

MiKru

Vielen Dank nochmal für eure großartige Hilfe!

Bei mir ist nur noch ein Problem aufgetreten, und zwar klappt bei mir das Starten von Programmen mit vielen zusätzlichen Parametern nicht.
Wenn man nun z.B.folgendes Programm mit Parametern starten will, geht es irgendwie nicht.

Code

C:\XY\XY.EXE -e C:\XY\LOG\guided.err -x -c acuwconf guide XY

[autoit]

Case "XY"
$path = '"C:\XY\XY.EXE"'
$parameters = "-e C:\XY\LOG\guided.err -x -c acuwconf guide XY"
Run(@ComSpec & " /k " & 'start "" /max ' & $priority & '/b ' & $path & ' ' & $parameters, "", @SW_HIDE)

[/autoit]

**Schnitzel**

mach doch mal:

[autoit]

Run(@ComSpec & " /c " & 'start "" /max ' & $priority & '/b ' & $path & ' ' & $parameters)

[/autoit]

dann siehste ja in der console was für eine meldung er dir bringt