schnell-Starter

Kleiner

Guten Tag Liebe Autolt Freunde!

Ich bin neuling habe heute das erste mal nach hilfe gefragt auch gleich prompt antwort bekommen und ein kleinen tip das hat mich gleich zum ende meiner momentanen ide gebracht!

Ich habe mir gedacht ein schnell - starter zu basteln habe mir in einer gui paar buttons für c:\ , c:\Programme usw. gemacht und da dachte ich da könnte ich doch eine befehlszeile einbauen nur leider steh ich noch am anfang bei Autolt darum konnte ich das über Autolt nicht lösen habe mir hilfe bei Windows .bat datein gesuch und habe es auch ihn bekommen nach tagelangen fuchsen und jetzt ist mein erstes projekt fertig!

Weil bei manchen Rechnern das ausführen von .bat datein untersagt ist habe ich sie in einer .exe gewandelt mit ( Quick Batch File Compiler ) mit meiner eigenen version habe das programm ein wenig geendert weil ich keine pause und die werbung haben will beim ausführen.

Das ist das programm!

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>
#include <GuiMenu.au3>
#include <Process.au3>
#include <GUIConstants.au3>
#include <Date.au3>
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include<ButtonConstants.au3>
#include<Guilistview.au3>
Opt("TrayMenuMode", 1)
_Main()
Func _Main()
Local $hGUI
Local $b1, $b2, $b3, $b4, $msg, $About, $Exit, $in, $bo, $al

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

$hGUI = GUICreate("Sarter",401, 73, 875, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetBkColor (0xbbfb15)
$b1 = GUICtrlCreateButton("C:\Programme", 81, 2, 79, 20)
$b2 = GUICtrlCreateButton("C:\", 1, 2, 79, 20)
$b3 = GUICtrlCreateButton("User-Ordner",161, 2, 79, 20)
$b4 = GUICtrlCreateButton("Anwen-Ordner",241, 2, 79, 20)
$b5 = GUICtrlCreateButton("Tmp", 321, 2, 79, 20)
$in = GUICtrlCreateInput("", 2, 50, 250, 20)
$bo = GUICtrlCreateButton("OK", 260, 50, 79, 20)

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

$widthCell = 70
GUICtrlCreateLabel("Befehlzeile", 10, 28, $widthCell)
TraySetClick("9")
$About = TrayCreateItem("About")
$Exit = TrayCreateItem("Exit")
TrayTip("» Schnell-Starter « © by Siomon ", ">>>>>>>>>>> Zum Beenden <<<<<<<<<<<<" , 5, 1)
GUISetState(@SW_SHOW)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $b1
ShellExecute(@ProgramFilesDir)
Case $msg = $b2
ShellExecute(@HomeDrive)
Case $msg = $b3
ShellExecute(@UserProfileDir)
case $msg = $b4
ShellExecute(@AppDataDir)
Case $msg = $b5
ShellExecute(@TempDir)
Case $msg = $bo
If $msg = $bo Then
$al = GUICtrlRead($in, 1)
EndIf
If Not _FileCreate("lc")Then
MsgBox(4096, "Fehler", "Fehler beim Erstellen/Zurücksetzen der log.-Datei: " & @error)
EndIf
Sleep(1)
filewrite("lc", $al)
Run("CS.exe", "", @SW_MINIMIZE)

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

EndSelect
$msg = TrayGetMsg()
Select
Case $msg = $Exit
ExitLoop
Exit
Case $msg = $About
MsgBox(64,"About","» Schnell-Starter «" & @CRLF & @CRLF &"© 2009 by Simon")
EndSelect
WEnd

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

EndFunc

[/autoit]

Und das ist die CS.bat - CS.exe - zip

autoit.de/wcf/attachment/6021/

Das ist es für´s erste!

Freu mich auf euch um mich weiter zu entwickeln!

_

Matthias_199

sieht shick aus aber die position passt mir net....
Bei dir ist das sicher oben rechts im bildschirm bei mir aber net^^
Liegt wohl an den auflösung also würde ich sagen das man die GUI bewegen können sollte aber das hast du ja deaktviert^^......

Auch cmd funzt super
Und die buttons auch

Aber bei cmd hat mir die entertaste gefehlt auch gewohnheit hab ich kein okey gedrück sonder sofort enter das wäre ne cool funktion zum einbauen

zu deinem cmd problem

[autoit]

RunWait(@ComSpec & " /c " & "commandName")

[/autoit]

Das sollte es lösen

Kleiner

Danke, schön das es dir gefallen hat und ja es ist bei mir oben rechts!

Das mit dem enter passiert mir auch immer wieder dur der annahme der cmd werde ich hinzufügen!

Und zu

[autoit]

RunWait(@ComSpec & " /c " & "commandName")

[/autoit]

lassen sich da alle sagen wir so gut wie alle ausführen ( bearbeiten ) wo sind da die grenzen gegenüber der Origienalen?????

Matthias_199

gibt keins der befehl start die cmd exe soweit ich weiß mit dem befehl den du eingibst solnage cmd die befehle akzeptiert werden sollte es kein problem gehen

Kleiner

ich wede mch mal daran setzen!

Habe noch eine frage wegen ( Enter ) habe gerade geschaut in der hilfe noch nicht fündig geworden hast du vieleich ein schnellen rad für mich???

Dank dir schon mal!!!!!

Kleiner

Das mit dem ( Enter ) habe ich gelöst!

gelöst habe ich das mit!

[autoit]

If _IsPressed("0D", $dll)

[/autoit]

Und das neue Programm!

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>
#include <GuiMenu.au3>
#include <Process.au3>
#include <GUIConstants.au3>
#include <Date.au3>
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include<ButtonConstants.au3>
#include<Guilistview.au3>
#include <Misc.au3>
Opt("TrayMenuMode", 1)
_Main()
Func _Main()
Local $hGUI
Local $b1, $b2, $b3, $b4, $msg, $About, $Exit, $in, $bo, $al, $dll

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

$hGUI = GUICreate("Sarter",401, 73, 875, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetBkColor (0xbbfb15)
$b1 = GUICtrlCreateButton("C:\Programme", 81, 2, 79, 20)
$b2 = GUICtrlCreateButton("C:\", 1, 2, 79, 20)
$b3 = GUICtrlCreateButton("User-Ordner",161, 2, 79, 20)
$b4 = GUICtrlCreateButton("Anwen-Ordner",241, 2, 79, 20)
$b5 = GUICtrlCreateButton("Tmp", 321, 2, 79, 20)
$in = GUICtrlCreateInput("", 2, 50, 250, 20 )
$bo = GUICtrlCreateButton("OK", 260, 50, 79, 20)
$dll = DllOpen("user32.dll")

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

$widthCell = 70
GUICtrlCreateLabel("Befehlzeile", 10, 28, $widthCell)
TraySetClick("9")
$About = TrayCreateItem("About")
$Exit = TrayCreateItem("Exit")
TrayTip("» Schnell-Starter « © by Siomon ", ">>>>>>>>>>> Zum Beenden <<<<<<<<<<<<" , 5, 1)
GUISetState(@SW_SHOW)

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

While 1
If _IsPressed("0D", $dll) Then
$al = GUICtrlRead($in, 1)
If Not _FileCreate("lc")Then
MsgBox(4096, "Fehler", "Fehler beim Erstellen/Zurücksetzen der log.-Datei: " & @error)
EndIf
Sleep(1)
filewrite("lc", $al)
Run("CS.exe", "", @SW_MINIMIZE)
EndIf
$msg = GUIGetMsg()
Select
Case $msg = $b1
ShellExecute(@ProgramFilesDir)
Case $msg = $b2
ShellExecute(@HomeDrive)
Case $msg = $b3
ShellExecute(@UserProfileDir)
case $msg = $b4
ShellExecute(@AppDataDir)
Case $msg = $b5
ShellExecute(@TempDir)
Case $msg = $bo
If $msg = $bo Then
$al = GUICtrlRead($in, 1)
EndIf
If Not _FileCreate("lc")Then
MsgBox(4096, "Fehler", "Fehler beim Erstellen/Zurücksetzen der log.-Datei: " & @error)
EndIf
Sleep(1)
filewrite("lc", $al)
Run("CS.exe", "", @SW_MINIMIZE)

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

EndSelect
$msg = TrayGetMsg()
Select
Case $msg = $Exit
ExitLoop
Exit
Case $msg = $About
MsgBox(64,"About","» Schnell-Starter «" & @CRLF & @CRLF &"© 2009 by Simon")
EndSelect
WEnd

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

EndFunc

[/autoit]

So jetzt nur noch das mit der cmd dann läut es ganz ohne hilfe der .bat - .exe!

_

Matthias_199

ich vermute die funktion Funktion

[autoit]

HotKeySet

[/autoit]

eignet sich besser abr programmieren ist eine kunst und jeder löst es anders auch deine lösung ist vollkommen in ordnung

Kleiner

Vielen dank!