IMAGES-VIEWER-1.ahk

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

#Include, MyFileInstall.txt
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Gui,New
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,Edit,x10 y12  r1 password vpass
Gui,Add,Button,x200 y10 Default,PIC1
Gui,Add,Button,x270 y10 ,PIC2
Gui,Add,Button,x340 y10 ,PIC3
Gui,Add,Button,x410 y10 ,PIC4
Gui, Show, x0 y30 w500 h50 Center, Image Viewer
WinSet, Region, 0-0 W500 H50 R20-20,
WinMove, 0, 0
OnMessage( 0x200, "WM_MOUSEMOVE")
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
ButtonPIC1:
Gui,Submit
if pass = sony
    {
    goto,menu
    }
else
    {
    msgbox,16,,Incorrect password, access denied
    exitapp
    }
Return
ButtonPIC2:
Gui,Submit
if pass = sonyNSK
    {
    goto,menu2
    }
else
    {
    msgbox,16,,Incorrect password, access denied
    exitapp
    }
Return
ButtonPIC3:
Gui,Submit
if pass = sony1234
    {
    goto,menu3
    }
else
    {
    msgbox,16,,Incorrect password, access denied
    exitapp
    }
Return
ButtonPIC4:
Gui,Submit
if pass = sonyNSK007
    {
    goto,menu4
    }
else
    {
    msgbox,16,,Incorrect password, access denied
    exitapp
    }
Return
menu:
#NoEnv
num = 1
loop,%A_ScriptDir%\XPG\*.jpg,,1
{
   path%num% = %A_LoopFileFullPath%
   num++
}
loop,%A_ScriptDir%\XPG\*.bmp,,1
{
   path%num% = %A_LoopFileFullPath%
   num++
}
loop,%A_ScriptDir%\XPG\*.tif,,1
{
   path%num% = %A_LoopFileFullPath%
   num++
}
loop,%A_ScriptDir%\XPG\*.png,,1
{
   path%num% = %A_LoopFileFullPath%
   num++
}
Gui, Add, Picture,vBleah x50 y40 w620 h720 , %x1%
Gui, Add, Button, x260 y680 w30 h30 g<, <
Gui, Add, Button, x340 y680 w30 h30 g>, >
; Generated using SmartGUI Creator 4.0
Gui, Show, x131 y91 h750 w650, ImageView
WinSet, Region, 0-0 W650 H750 R20-20,
WinMove, 0, 0
OnMessage( 0x200, "WM_MOUSEMOVE")
Return

count = 1

>:
location :=  % path%count%
Guicontrol,,Bleah,*w0 *h0 %location%
if count = %num%
{
   count = 1
}
else
{
   count++
}
return

<:
count--
location :=  % path%count%
Guicontrol,,Bleah,*w0 *h0 %location%
if count = 1
{
   count = %num%
}
Return

GuiClose:
ExitApp
menu2:
Run, %A_ScriptDir%\XPG\PictureViewer.exe
Return
menu3:
Run, %A_ScriptDir%\XPG\PhotoFilter.exe
Return
menu4:
;Run, "%A_ScriptDir%\XPG\G1.jpg"
Run, "%A_ScriptDir%\XPG\Honeyview.exe" "%A_ScriptDir%\XPG\G1.jpg"
Return
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#R::Reload  ;<--  ~ Reload Script ~
#S::Suspend ;<--  ~ Suspend Script ~
#P::Pause   ;<--  ~ Pause Script ~
#M::WinMinimize, ;<--  ~ Minimize Script ~
ESC::ExitApp     ;<--  ~ Exit Script ~