AHK DOCK

;@Ahk2Exe-SetCompanyName VANHEARTNET LTD. INC.
;@Ahk2Exe-SetCopyright All rights reserved  © VANHEARTNET
;@Ahk2Exe-Set FileDescription, AHK Dock
;@Ahk2Exe-Set FileVersion, 1.0.0.0
;@Ahk2Exe-SetInternalName AHK Dock
;@Ahk2Exe-SetName GPoints AHK Dock
;@Ahk2Exe-SetOrigFileName AHK Dock
;@Ahk2Exe-Set ProductName, AHK Menu Launcher
;@Ahk2Exe-Set ProductVersion, 1.0.0.0
;@Ahk2Exe-Set Description, AHK Dock
;@Ahk2Exe-Set Comments, Software Created by : VANHEARTNET



#SingleInstance,Force
#Persistent
#NoEnv
Menu,tray, NoStandard
Menu,Tray,Add,Exit
SetWorkingDir %A_ScriptDir%
SetBatchLines, -1
#MaxHotkeysPerInterval 99000000
#HotkeyInterval 99000000
#KeyHistory 0
ListLines Off
Process, Priority, , A
SetKeyDelay, -1, -1
SetMouseDelay, -1
SetDefaultMouseSpeed, 0
SetWinDelay, -1
SetControlDelay, -1
SendMode Input


IfExist,cfg.ini
{
	IniRead,Func,cfg.ini,Blank,Func
	IniRead,JS,cfg.ini,Blank,Startup
	if (JS=1)
		ST:=true
	else
		ST:=false
}else{
	IniWrite,0,cfg.ini,Blank,Startup
	IniWrite,New,cfg.ini,Blank,NewW
	IniRead,0,cfg.ini,Blank,Func
	ST:=false
}

FileRead,Read,cfg.ini
str:=StrSplit(Read,"NewW=")
str2:=str.2

Gui,1:+AlwaysOntop -Caption +ToolWindow
Gui,1:Color,103063
Gui,1:Font, s16 bold,Impact
Gui,1:Add,Button,x5 y5 w100 h55 gNEW, NEW
Gui,1:Add,Button,x+10 w100 h55 gSave, SAVE
Gui,1:Add,Button,x+10 w100 h55 gSAVEAS, SAVE AS
Gui,1:Add,Button,x+10 w100 h55 gSEARCH, SEARCH
Gui,1:Add,Button,x+10 w100 h55 gREPLACE, REPLACE
Gui,1:Add,Button,x+10 w100 h55 gWINSPY, WINSPY
Gui,1:Add,Button,x+10 w100 h55 gMESSAGEBOX, MSGBOX
Gui,1:Add,Button,x+10 w100 h55 gUNDO, UNDO
Gui,1:Add,Button,x+10 w100 h55 gREDO, REDO
Gui,1:Add,Button,x+10 w650 h55 vStart gStart, RUN
Gui,1:Add,Button,x+10 w150 h55 gMinimize, Minimize
Gui,1:Font,
Gui,1:Font,cred s10 bold,Arial
If (ST=true)
	Gui,1:Add,Checkbox,x+10 y2 w100 Checked vCB1 gCB1,Run on Startup
else
	Gui,1:Add,Checkbox,x+10 y2 w100 vCB1 gCB1,Run on Startup
Gui,1:Add,Button,x1810 y35 w80 h20 gFunc, Function
Gui,1:Show,x0 y0 w1900 h64, RUN scite
OnMessage(0x232,"Move_Windows")
OnMessage(0x201,"Mouse_Move")
SetTimer,Showme,200

return

Func:
	Run, Autohotkey.exe "%Func%"
	return

Mouse_Move()
	{
		PostMessage, 0xA1,2
	}
Move_Windows()
{
	IfWinExist, Gui 4
	{
		WinGetpos,X1,Y1,,,RUN scite
		Gui,4:Show, x%X1% y%Y1%
	}
}

Showme:
IfWinnotExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	WinHide,RUN scite
WinGet,EA,Style,ahk_class SciTEWindow ahk_exe SciTE.exe
if (not EA & 0x20000000)
{
	IfWinActive,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		IfWinExist,RUN scite
		{
			WinGet,EE,Style,RUN scite,
			if (! EE & 0x10000000)
			{
				Winshow,RUN scite
				WinActivate,ahk_class SciTEWindow ahk_exe SciTE.exe
			}
		}
		else
		{
			WinShow,RUN scite
		}
	}
}
else
	WinHide,RUN scite

return

CB1:
	Gui,1:Submit,Nohide
	if (CB1=0)
	{
		IniWrite,0,cfg.ini,Blank,Startup
		CB1:=0
		FileDelete,%A_AppData%\Microsoft\Windows\Start Menu\Programs\Startup\AHK Dock.lnk
	}
	else
	{
		IniWrite,1,cfg.ini,Blank,Startup
		Loop,AHK DOCK.exe,,1
		{
			Pathy := A_LoopFileLongPath
			StringReplace,TT,Pathy,\AHK DOCK.exe,,ALl
			IfNotExist,%A_AppData%\Microsoft\Windows\Start Menu\Programs\Startup
				FileCreateDir,%A_AppData%\Microsoft\Windows\Start Menu\Programs\Startup
			FileCreateShortcut,%Pathy%,%A_AppData%\Microsoft\Windows\Start Menu\Programs\Startup\AHK Dock.lnk,"%TT%",
			if (errorlevel=1)
				MsgBox, Failed
		}
		CB1:=1
	}
	return

NEW:
	IfWinExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		IfWinNotActive
			WinActivate,
		WinMenuSelectItem,ahk_class SciTEWindow,,File,New
		Clipboard=%str2%
		Send ^v
	}
	return
Minimize:
	WinMinimize,ahk_class SciTEWindow ahk_exe SciTE.exe
	return
EXIT:
	ExitApp
	return
SAVEAS:
	IfWinExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		IfWinNotActive
			WinActivate,
		WinMenuSelectItem,ahk_class SciTEWindow,,File,Save As...
	}
	return

UNDO:
	IfWinExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		IfWinNotActive
			WinActivate,
		WinMenuSelectItem,ahk_class SciTEWindow,,Edit,Undo
	}
	return
REDO:
	IfWinExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		IfWinNotActive
			WinActivate,
		WinMenuSelectItem,ahk_class SciTEWindow,,Edit,Redo
	}
	return
MESSAGEBOX:
	run,C:\Program Files (x86)\AutoHotkey113200\SciTE\tools\MsgBoxC.exe
	return
SEARCH:
	IfWinExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		IfWinNotActive
			WinActivate,
		WinMenuSelectItem,ahk_class SciTEWindow,,Search,Find...
	}

	return
REPLACE:
	IfWinExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		IfWinNotActive
			WinActivate,
		WinMenuSelectItem,ahk_class SciTEWindow,,Search,Replace...
	}
	return
WINSPY:
	run, C:\Program Files (x86)\AutoHotkey113200\SciTE\tools\ActiveWindowInfo.exe
	return
Save:
	IfWinExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		IfWinNotActive
			WinActivate,
		WinMenuSelectItem,ahk_class SciTEWindow,,File,Save
	}
	return

Start:
	IfWinExist,ahk_class SciTEWindow ahk_exe SciTE.exe
	{
		WinActivate,ahk_class SciTEWindow ahk_exe SciTE.exe
		WinMenuSelectItem,ahk_class SciTEWindow,,Tools,Run
	}
return




^Esc::
	ExitApp