RUN-PASS.ahk

/*   INFO
   Run Password Files
   Written by: Najeeb Shah Khan (najeebshahkhan@gmail.com)
   Last Modified: 4-6-2023
*/
; <COMPILER: v1.1.34.04>
;#warn
#NoEnv
#LTrim
#SingleInstance, Force
Process, Priority, , A
SendMode, Input
SetBatchLines, -1
;#NoTrayIcon
SetKeyDelay 0    ; In case SendInput is not available
SetTitleMatchMode RegEx
SetWorkingDir %A_WorkingDir% ;%A_ScriptDir%
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
FileCreateDir, %A_ScriptDir%\DATA
FileInstall , RUN-PASS.ahk, %A_ScriptDir%\DATA\RUN-PASS.ahk, 1
FileInstall , S69.she, %A_ScriptDir%\DATA\S69.she, 1
FileInstall , SkinH_EL.dll, %A_ScriptDir%\DATA\SkinH_EL.dll, 1
FileSetAttrib +HS, %A_ScriptDir%\DATA\RUN-PASS.ahk, 2
FileSetAttrib +HS, %A_ScriptDir%\DATA\S69.she, 2
FileSetAttrib +HS, %A_ScriptDir%\DATA\SkinH_EL.dll, 2
FileSetAttrib +HS, %A_ScriptDir%\DATA, 2
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
SkinForm(Apply, A_ScriptDir . "\DATA\SkinH_EL.dll", A_ScriptDir . "\DATA\S69.she")
OnExit, GetOut
CustomColor = FFFF99
Gui, Color, %CustomColor%
Gui,Font,S10 Bold,Verdana ;Calibri
;Gui, Add, Edit, w230 vnum Number
Gui Add, Edit, w300 Password vUserInput
Gui, Add, Button, Default gGo, ENTER PASSWORD
Gui, Show,, RUN PASSWORD FILES (Reload=!Z)
Return
Go:
Gui, Submit
;Switch num {
 Switch UserInput {
 Case "ahk":   Run, https://www.autohotkey.com
 Case "note": Run, notepad.exe
 Case "ms": Run, mspaint.exe
 Case "eve": Run, Everything.exe
 Case "rs": Run, ResourceHacker.exe
 Case "run": Run, RunAsTool.exe
 Case "ser": Run, "D:\SEARCH-TEXT.exe"
 Case "rad": Run, "D:\NAJEEB-RADIO.exe"
 Case "ren": Run, "D:\CHANGE-EXTENSION-RENAMER2.exe"
 Case "pic": Run, "D:\TOOLS\HONEYVIEW-PORTABLE\PICTURE1.exe"
 Case "hpic": Run, "D:\TOOLS\HONEYVIEW-PORTABLE\PIC2.exe"
}
Return
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
GetOut:
GuiClose:
Gui, Hide
SkinForm(0)
ExitApp
return

SkinForm(Param1 = "Apply", DLL = "", SkinName = ""){
    if(Param1 = Apply){
        DllCall("LoadLibrary", str, DLL)
        DllCall(DLL . "\SkinH_AttachEx", AStr,SkinName, Str,"mhgd")
    }else if(Param1 = 0){
        DllCall(DLL . "\USkinExit")
        }
}
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
!Z::Reload  ;<--  ~ Reload Script ~
#S::Suspend ;<--  ~ Suspend Script ~
#P::Pause   ;<--  ~ Pause Script ~
#M::WinMinimize, ;<--  ~ Minimize Script ~
ESC::ExitApp     ;<--  ~ Exit Script ~
;=-=-=-=-=-=-=-=-=-=- END SCRIPT -=-=-=-=-=-=-=-=-=-=-=-