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
#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
$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)
$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)
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)
EndSelect
$msg = TrayGetMsg()
Select
Case $msg = $Exit
ExitLoop
Exit
Case $msg = $About
MsgBox(64,"About","» Schnell-Starter «" & @CRLF & @CRLF &"© 2009 by Simon")
EndSelect
WEnd
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!
_