Jump to content

edit box to cmd


Recommended Posts

Hi, do mean something like this as a crude example ?

#include <GUIConstants.au3>

$Gui = GuiCreate('Edit To CMD', 400, 300)
$Edit = GuiCtrlCreateEdit('', 10, 10, 380, 250)
$Button = GUICtrlCreateButton('Save', 175, 270, 50, 20)
GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button
            $Buffer = GuiCtrlRead($Edit)
            $Save = FileSaveDialog('Save to..', @ScriptDir, 'CMD File (*.cmd)', 18, 'MyCmd.cmd')
            If @error <> 1 Then
                FileClose(FileWrite(FileOpen($Save, 2), $Buffer))
            EndIf
    EndSelect
Wend

Cheers

Edited by smashly
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...