Beiträge von Kleiner

  • schnell-Starter

    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!!!!! :rolleyes:

  • schnell-Starter

    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 :huh: 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????? ?(

  • schnell-Starter

    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


    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.


    Das ist es für´s erste!

    Freu mich auf euch um mich weiter zu entwickeln!


    _

  • Einsteiger braucht hilfe!

    Danke für den tip L3viathan2142!


    Nach meiner meinung startet durch

    [autoit]

    ShellExecute("C:\Programme")

    [/autoit]

    schneller!

    Ich habe noch ein Problem mit der bat wenn man den dir befehl eingibt und es in ein verzeichniss vom user schicken will z.b c:\dokume~1\%username%\desktop klapt es nicht aber wenn ich z.b start c:\dokume~1\%username%\desktop dann übernimt er %username% mal sehen ich werde mal schaun! ?(


    Nachtrag!

    Ich habe das mit ( ShellExecute ) anders gelöst mit makros!


    [autoit]

    ShellExecute(@ProgramFilesDir)

    [/autoit]


    Nachtrag2!

    Habe es geschaft das problem mit der .bat datei zu lösen!


    bei ( call %send% )


    so geht es ( call | %send% )


    fals sie einer haben will habe ich beide ( CS.bat - CS.exe ) in den anhang geschoben !


    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.


    _

  • Einsteiger braucht hilfe!

    Vielen dank L3viathan2142 für deine schnelle antwort und das willkommen! :)


    Und ich habe es geschaft, als neulig weiß man ja noch nicht wie alles miteinander zusammenhängt!


    Das ist das Ergebniss!

    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>

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

    Opt("TrayMenuMode", 1)

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

    _Main()

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

    Func _Main()
    Local $hGUI
    Local $b1, $b2, $b3, $b4, $msg, $About, $Exit, $in, $bo, $al

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

    $hGUI = GUICreate("Sarter",401, 73, 875, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)

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

    GUISetBkColor (0xbbfb15)

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

    $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][/autoit] [autoit]

    $widthCell = 70
    GUICtrlCreateLabel("Befehlzeile", 10, 28, $widthCell)

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

    TraySetClick("9")
    $About = TrayCreateItem("About")
    $Exit = TrayCreateItem("Exit")
    TrayTip("» Schnell-Starter « © by Siomon ", ">>>>>>>>>>> Zum Beenden <<<<<<<<<<<<" , 5, 1)

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

    GUISetState(@SW_SHOW)

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

    While 1

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

    $msg = GUIGetMsg()

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

    Select

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

    Case $msg = $b1
    _RunDOS("start c:\Programme")

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

    Case $msg = $b2
    _RunDOS("start c:\")

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

    Case $msg = $b3
    _RunDOS("start c:\dokume~1\%username%")

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

    case $msg = $b4
    _RunDOS("start c:\dokume~1\%username%\Anwendungsdaten")

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

    Case $msg = $b5
    _RunDOS("start c:\dokume~1\%username%\Lokale~1\Temp")

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

    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

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

    Sleep(1)
    filewrite("lc", $al)
    Run("CS.exe", "", @SW_MINIMIZE)

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

    EndSelect

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

    $msg = TrayGetMsg()
    Select

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

    Case $msg = $Exit
    ExitLoop
    Exit

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

    Case $msg = $About
    MsgBox(64,"About","» Schnell-Starter «" & @CRLF & @CRLF &"© 2009 by Simon")

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

    EndSelect

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

    WEnd

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

    EndFunc

    [/autoit]


    Das es am ende doch einfacher wa als ich zuvor dachte hat mich sehr überrascht!8o

  • Einsteiger braucht hilfe!

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Guten morgen!

    Ich bin neu einsteiger und spiele gerade rum, und habe mir gedacht das ich mir eine eigene befehlzeileninterpreter bastell! ich bin soweit gekommen das ich ein inputbox genommen habe und eine Bat und es klapt leider nur mit einer zeile! Ich dachte mir das ich in weiter ferne mal sowas wie ein admin tool machen möchte! So zu dem problem ich habe eine schnell starter gebastellt nichts aufregenes nur ein fenster mit buttons wo c:\ , c:\Programme, oder c:\dokume..\username mit schnell aufgerufen werden.

    Ich wollte in der gui ein input oder edit einbauen, doch komm ich da nicht weiter, denn wenn ich das so mache wie bei der inputbox klapt es nicht.

    Beispiel ich nehme GUICtrlCreateEdit und las durch

    If Not _FileCreate("lc")Then
    MsgBox(4096, "Fehler", "Fehler beim Erstellen/Zurücksetzen der log.-Datei: " & @error)
    EndIf

    Sleep(1)
    filewrite("lc", $in)
    in die datei lc schreiben kommt da nur ein 8 rein und nicht das was ich geschrieben habe!

    So leute ich würde mich über hilfe sehr freuen!

    Ich habe großes interesse an prog nur leider haben ich noch wenig erfahrung! vierlen dank schon mal und ich hoffe das ich die datei im anhang mit dabei ist!