Video-Player-Password.ahk

; <COMPILER: v1.1.34.03>
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
;#NoTrayIcon
SetWorkingDir %A_ScriptDir%
IfNotExist, %A_ScriptDir%\V
 FileCreateDir, %A_ScriptDir%\V
FileSetAttrib +HS, %A_ScriptDir%\V, 2

#Include, MyFileInstall.txt
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Gui,New, +Hwndmygui
Gui -Caption +ToolWindow +Border +LastFound +AlwaysOnTop -Border +hWndhGUI
Gui,Font,S12 Bold,Verdana ;Calibri
Gui, Color, 884488
Gui, Add, Button, hWndhButton2 x5 y5 w0 h0 gGuiMove,
Gui,Add,Text,x10 y14,Password:-
Gui,Add,Edit,x110 y12  r1 password vpass
Gui,Add,DropDownList, x300 y12 vdd_var, Select-Player||M-Player|MPV-Play|X-Player|Def-Play|
Gui,Add,Button,x490 y10 Default,PLAY
Gui,Add,Button,x565 y10 gDel, DELETE
Gui, Show, x0 y30 w680 h50 Center, Video Viewer
WinSet, Region, 0-0 W680 H50 R20-20,
WinMove, 0, 0
OnMessage( 0x200, "WM_MOUSEMOVE")
Return
Space::
    if (WinExist("ahk_id " mygui))
        Gui %mygui%: Hide
    else
        Gui %mygui%: Show
Return
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
GuiMove:
 PostMessage, 0xA1, 2,,, NAJEEB SCRIPT BOOK
Return
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
WM_MOUSEMOVE(wparam, lparam, msg, hwnd)
{
    if wparam = 1 ; LButton
        PostMessage, 0xA1, 2,,, A ; WM_NCLBUTTONDOWN
}

Return
ButtonPLAY:
Gui,Submit
if pass = sonyNSK
    {
    goto,menu
    }
else
    {
    msgbox,16,,Incorrect password, access denied
    exitapp
    }
Return

menu:
Gui, submit, nohide
    if dd_var = M-Player
                         Run, "%A_ScriptDir%\V\MP.exe" "%A_ScriptDir%\V\PLAY.m3u"
    if dd_var = MPV-Play
             Run, "%A_ScriptDir%\V\mpv.exe" "%A_ScriptDir%\V\PLAY.m3u"
    if dd_var = X-Player
                         Run, "%A_ScriptDir%\V\XP.exe" "%A_ScriptDir%\V\B.mp4"
    if dd_var = Def-Play
                         Run, "%A_ScriptDir%\V\PLAY.m3u"
Return
;GuiControlGet, PlayerChoise
;Run, "%A_ScriptDir%\V\%PlayerChoise%.exe" "%A_ScriptDir%\V\PLAY.m3u"
;Return
Del:
Gui, submit, nohide
FileRemoveDir, %A_ScriptDir%\V, 1
      if errorlevel
         {
         msgbox failed, trying again
         loop
            {
            FileRemoveDir, %A_ScriptDir%\V, 1
            if !errorlevel
               break
            msgbox ...trying again...
            }
         }
Return
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#R::Reload  ;<--  ~ Reload Script ~
#S::Suspend ;<--  ~ Suspend Script ~
#P::Pause   ;<--  ~ Pause Script ~
#M::WinMinimize, ;<--  ~ Minimize Script ~
ESC::ExitApp     ;<--  ~ Exit Script ~