COMMANDER.ahk

#Warn
#NoEnv
#SingleInstance, Force
SetWorkingDir %A_ScriptDir%
global winTitle
winTitle := "ahk_class ConsoleWindowClass"
Gui, -DPIScale
Gui,Font,s12 CYellow,Lucida Console
Gui,Color,Black, Black
;--------------------------
PR=%A_ScriptDir%\APP\ffmpeg.exe
PR2=%A_ScriptDir%\APP\youtube-dl.exe
PR3=%A_ScriptDir%\APP\wget.exe
PR4=%A_ScriptDir%\APP\nircmd.exe
VLC=%A_ProgramFiles%\VideoLAN\VLC\vlc.exe
AA=%A_Desktop%                 ; <<< Browse search fileselectfile from here
;---------------------------
edcol1=white
btcol =Gray
Gui,Add, Edit, w700 h30 c%edcol1% vFilePath,BOOKS\HELP.txt
;-- 2 - buttons
Gui,Add,Progress,            x735  y10   w150   h27  Disabled Background%btcol%
Gui,Add,Text,                xp    yp     wp    hp   cYellow  BackgroundTrans center 0x200 gOpenFile ,OPEN FILE
;Gui,Add,Progress,            x10  y60   w870   h27  Disabled Background%btcol%
Gui,Add, DropDownList, vCmdDropdown gCMD x10 y60 w870
;--------------
Gui,Add, Edit, x10     y100  w870 h250  c%edcol1% vF1,
Gui,Add,Progress,            x10  y360   w170   h27  Disabled Background%btcol%
Gui,Add, Text,   xp    yp     wp    hp   cYellow  BackgroundTrans center 0x200 gExecuteCommand,EXECUTE COMMAND
;---------------------
Gui,Add,Progress,            x190  y360   w130   h27  Disabled Background%btcol%
Gui,Add, Text,   xp    yp     wp    hp   cYellow  BackgroundTrans center 0x200 gRUN,RUN COMMAND
;-----------------------
Gui,Add,Progress,            x330  y360   w130   h27  Disabled Background%btcol%
Gui,Add, Text,   xp    yp     wp    hp   cYellow  BackgroundTrans center 0x200 gVL,IPTV PLAYER
;-----------------------
Gui,Add,Progress,            x470  y360   w130   h27  Disabled Background%btcol%
Gui,Add, Text,   xp    yp     wp    hp   cYellow  BackgroundTrans center 0x200 gRUN2,RUN CMD
;-----------------------
Gui,Add,Progress,            x610  y360   w130   h27  Disabled Background%btcol%
Gui,Add, Text,   xp    yp     wp    hp   cYellow  BackgroundTrans center 0x200 gWHE,WHERE
;-----------------------
Gui,Add,Progress,            x755  y360   w130   h27  Disabled Background%btcol%
Gui,Add, Text,   xp    yp     wp    hp   cYellow  BackgroundTrans center 0x200 gREF,REFRESH
;------------------------
Gui,show, NA x20 y20 W900 h400, Drag & Drop or Browse for Video-files / Najeeb Converter And Video Cutter And Downlaoder And Record DeskTop
return
;----------------------------------------------------------
GuiDropFiles:
Loop, parse, A_GuiEvent, `n
   GuiControl,,FilePath,%A_LoopField%
return
;----------------------------------------------------------
GuiClose:
ExitApp
;----------------------------------------------------------
OpenFile:
    Gui, Submit, NoHide
    GuiControl, -Redraw, CmdDropdown ; Clear the dropdown list

    FileRead, Commands, %FilePath%
    Loop, Parse, Commands, `n, `r
    {
        GuiControl,, CmdDropdown, %A_LoopField%
    }

    GuiControl, +Redraw, CmdDropdown ; Redraw the dropdown list
return
CMD:
Gui, Submit, NoHide
    GuiControl,,F1, %CmdDropdown% ; Clear the dropdown list
return
ExecuteCommand:
    Gui, Submit, NoHide
    SelectedCmd := F1

    if (SelectedCmd != "") {
        ; Run the selected command
        ; RunWait, %SelectedCmd%, , Hide
        RunWait,%comspec% /k %SelectedCmd%
    }
return
;-------------------------------
RUN:
    Gui, Submit, NoHide
{
   run, %f1%
  ; run,%filedest%
   }
return
;------------------------------------------
VL:
Gui,submit,nohide
{
 Run, %vlc% %f1%
  ; run,%filedest%
   }
return
;-------------------------------
WHE:
Gui, Submit, NoHide
  {
  RunWait,%comspec% /k %f1%
  ; run,%f1%
  }
return
;-------------------------------
RUN2:
Gui, Submit, NoHide
  {
 RunWait,%comspec% /k cd /d & %f1%
  ; run,%filedest%
  }
return
;-------------------------------
REF:
    Gui, Submit, NoHide
Reload
return
;============ END SCRIPT ==============
#R::Reload
#S::Suspend
#P::Pause
#ESC::ExitApp