NCOM.ahk

 ; <COMPILER: v1.1.31.01>
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
#NoTrayIcon
IniRead, CMD1, %A_ScriptDir%\NCOM.ini, CMD1
IniRead, FLIST, %A_ScriptDir%\NCOM.ini, FLIST
IniRead, FLIST2, %A_ScriptDir%\NCOM.ini, FLIST2
IniRead, SCRIPT, %A_ScriptDir%\NCOM.ini, SCRIPT
PATH=
(Ltrim Join|
SELECT PATH TO SAVE FILE|
C:\Users\%A_USERNAME%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\
%A_ScriptDir%\
%A_Desktop%\
%A_Temp%\
%A_WinDir%\
%A_ProgramFiles%\
%A_AppData%\
%A_MyDocuments%\
%A_WorkingDir%\
)
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow +Border
;Gui, +LastFound -Caption +AlwaysOnTop
;Gui, color, 213410, 213410
;Gui, Color, 884488
CustomColor = 884488
Gui, Color, %CustomColor%
;WinSet, TransColor, %CustomColor% 150
Gui,Font,S14 Bold,Verdana
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;Gui, Add, Text, x0 y0 w800 h18 +BackgroundTrans +0x201, NAJEEB ALL COMMANDS
Gui, Add, Text,CYellow, ~~~***NAJEEB CMD ALL COMMANDS***~~~
Gui, Add, Text,, COMMANDS:
Gui, Add, Edit, w760 vMyEdit hwndMyEditHwnd gg_MyEdit
;Gui, Add, Edit, w400 gD vCMD1,
Gui, Add, DropDownList, w760 gchoose vCMD2 hwndMyDdlHwnd, %CMD1% ;Commands

Gui, Add, Text,, EDIT COMMAND:
Gui, Add, DropDownList, x215 y165 w560 gchoose2 vCMD3, %SCRIPT% ;Commands
Gui, Add, Edit, x20 y200 w760 h80 vTXT, %CMD2%

Gui, Add, Text,, PATH:
Gui, Add, DropDownList, w760 vPath, %PATH%

Gui, Add, Text,, FILE NAME.EXT:
Gui, Add, Edit, w200 vEXTE,%EXT% ;Extension
Gui, Add, DropDownList, x235 y400 w400  vList1 gOnSelect, %FLIST%|
Gui, Add, DropDownList, x235 y440 w545  vList2 gOnSelect2, %FLIST2%|

gui, add, button, x20 y440 ,SUBMIT
gui, add, button, Default x150 y440,RUN
Gui, Add, Text, x0 y0 w80 h18 gGuiMove 0x5
Gui, Show, h500 w800, NAJEEB CMD
WinSet, Region, 0-0 W800 H500 R20-20,
WinMove, 0, 0
Return
g_MyEdit:                                                                           ;gLabel for edit control - fired when a change is made to the edit control
gui,submit, nohide
searchStr       := MyEdit
SendMessage, 0x014C, -1, &searchStr,, ahk_id %MyDdlHwnd%                            ;CB_FINDSTRING
if (ErrorLevel != 4294967295)                                                       ;4294967295=string not found
    SendMessage, 0x14D, -1, &searchStr,, ahk_id %MyDdlHwnd%                         ;CB_SELECTSTRING
else
    {
        searchStr := SubStr(searchStr, 1, StrLen(searchStr) -1)
        GuiControl,, %MyEditHwnd%, %searchStr%
    }
searchStrLen := StrLen(searchStr)
SendMessage, 0xB1, %searchStrLen%, %searchStrLen%,, ahk_id %MyEditHwnd%             ;EM_SETSEL
return


g_MyDdl:                                                                            ;gLabel for the ddl control, fired when selection has been changed
gui, submit, noHide
GuiControl,, %MyEditHwnd%, %MyDdl%
return
OnSelect:
Gui, Submit, nohide
Run, C:\Windows\explorer.exe shell:%List1%
return
OnSelect2:
Gui, Submit, nohide
Run, %List2%
return
choose:
gui, submit, nohide
guicontrol, , TXT, %CMD2%
return
choose2:
gui, submit, nohide
guicontrol, , TXT, %CMD3%
return
ButtonSubmit:
    Gui, Submit, NoHide
    FileAppend, % TXT, %Path%%EXTE%
return
GuiMove:
 PostMessage, 0xA1, 2,,, A
Return
buttonRun:
gui, submit, nohide
Runwait,%comspec% /k %TXT%
return
#R::Reload  ;<--  ~ Reload Script ~
#S::Suspend ;<--  ~ Suspend Script ~
#P::Pause   ;<--  ~ Pause Script ~
#M::WinMinimize, ;<--  ~ Minimize Script ~
ESC::ExitApp     ;<--  ~ Exit Script ~