initial commit

Compile AHK to EXE - Vars.ahk

@@ -0,0 +1,84 @@
+;---ENVIRONMENT---------------------------------------------------------------------
+#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
+;#Warn ; Enable warnings to assist with detecting common errors.
+;DetectHiddenWindows, On
+#SingleInstance, Force
+DetectHiddenWindows, ON
+SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
+SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
+;SetKeyDelay, 500
+CoordMode, ToolTip, Screen
+CoordMode, Mouse, Screen
+; #NoTrayIcon
+; Menu, Tray, Icon, RMScriptManager.ico
+
+;---Notes/Extra Info/#Includes------------------------------------------------------
+
+
+;---VARIABLES-----------------------------------------------------------------------
+ScriptName = Freedomain Post Scheduler
+
+AHKFilepath = %A_ScriptDir%\%ScriptName%.ahk
+Exefilepath = %A_ScriptDir%\%ScriptName%.exe
+icopath = %A_ScriptDir%\Assets\Icon.ico
+VersionIniFP = %A_ScriptDir%\Version.ini
+
+
+;---MAIN SCRIPT---------------------------------------------------------------------
+
+; Bump the version number in the version.ini file
+IniRead, VersionNumber, %VersionIniFP%, %ScriptName%, Version, 0.0 ; , Filename, Section, Key [, Default]
+VersionNumber += .01
+VersionNumber := SubStr(VersionNumber, 1, 4)
+
+IniWrite, %VersionNumber%, %VersionIniFP%,%ScriptName%, Version
+
+
+
+; Kill any active intances of the uploaders so the .exe file can be overwriten by the compilation
+process, close, %ScriptName%.exe
+
+sleep, 1000
+
+; Delete the .exe file so it can be repalced
+if(FileExist(Exefilepath)){
+	FileDelete, %Exefilepath%
+	if(ErrorLevel){
+		msgbox, failed to delete Exe file. Please delete manually and re-run the compiler.
+		ExitApp
+	}
+}
+
+
+if(!FileExist(AHKFilepath)){
+	msgbox, %AHKFilepath% does not exist`nExiting
+	ExitApp
+}
+
+
+if(!FileExist(icopath)){
+	msgbox, %icopath% does not exist`nExiting
+	ExitApp
+}
+
+
+run, %comspec% /c ""C:\Program Files\AutoHotkey\Compiler\Ahk2Exe.exe" /in "%AHKFilepath%" /out "%exefilepath%" /icon "%icopath%""
+
+
+; OldNotify(ScriptToCompile,"Compiled Successfully",5)
+; sleep, 5000
+ExitApp
+
+
+
+
+
+
+
+
+
+
+
+
+
+;---FUNCTIONS-----------------------------------------------------------------------

Freedomain Post Scheduler.ahk

@@ -0,0 +1,249 @@
+; ENVIRONMENT
+;------------------------------------------------
+#Requires AutoHotkey v1.0
+#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
+;#Warn  ; Enable warnings to assist with detecting common errors.
+;DetectHiddenWindows, On
+#SingleInstance, Force
+SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
+SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
+;SetKeyDelay, 500
+CoordMode, ToolTip, Screen
+CoordMode, Mouse, Screen
+
+; Tray Icon & Custom Tray Menu
+; ------------------------------------------------
+; Only Set tool tray icon if this is the source .ahk script.
+; The .exe has the icon compiled into it
+if(InStr(A_ScriptFullPath, ".ahk")){
+	try Menu, Tray, Icon, %A_ScriptDir%\Assets\Icon.ico
+}
+
+Menu, tray, NoStandard
+Menu, Tray, Add, Exit, KillScript
+; Menu, Tray, Add, Pause, PauseScript
+Menu, Tray, Add, Restart, ReloadScript
+Menu, Tray, Add, Pause, TogglePause
+Menu, Tray, Add, Show Schedule, ShowSchedule
+Menu, Tray, Default, Show Schedule
+
+
+; Notes/Extra Info/#Includes
+;------------------------------------------------
+
+; @todo: Ask user if this program should startup automatically on boot
+; @todo: check if SMP and VU files exist after reading filepath
+; @todo: add settings to GUI - DiscordPing, DiscordLog, 
+
+; VARIABLES
+;------------------------------------------------
+
+global SettingsIniFilepath
+global SchedulePostsDir
+
+; Set filepaths for different files and folders
+if(A_Username = "yuriy"){
+	SchedulePostsDir = C:\Users\%A_Username%\Syncthing\Git\Freedomain-Video-Uploader\Scheduled-Posts\*.ini
+	SettingsIniFilepath = C:\Users\%A_Username%\Syncthing\Git\Freedomain-Video-Uploader\Settings.ini
+
+}
+else, {
+	SchedulePostsDir = %A_ScriptDir%\Scheduled-Posts\*.ini
+	SettingsIniFilepath = %A_ScriptDir%\Settings.ini
+
+}
+
+global ScriptSettingsSection
+ScriptSettingsSection := "Freedomain Post Scheduler"
+
+global ScriptNameAcronym
+ScriptNameAcronym := "FPS"
+
+global ScriptName
+global ScriptVersion
+global FullScriptName
+
+VersionIniFilepath = %A_ScriptDir%\Lib\Version-%ScriptNameAcronym%.ini 
+
+; Install the Version.ini file in lib folder (Used by .exe file)
+FileInstall, Version.ini, %VersionIniFilepath%, 1
+IniRead, ScriptVersion, %VersionIniFilepath%,%ScriptSettingsSection%, Version, 0.0
+IniRead, ScriptName, %VersionIniFilepath%,%ScriptSettingsSection%, Name, %ScriptSettingsSection%
+FullScriptName := ScriptName . " - " . ScriptVersion
+
+
+
+
+; Write filepath to settings file so it can be read by FVU and FSMP
+IniWrite, %A_ScriptFullPath%, %SettingsIniFilepath%, Filepaths, PostScheduler
+IniWrite, %A_ScriptFullPath%, %SettingsIniFilepath%, Filepaths, PostScheduler
+
+
+; MAIN SCRIPT
+;------------------------------------------------
+CheckDirectory:
+Loop, {
+
+	; Msgbox % "SchedulePostsDir: " SchedulePostsDir
+	Loop, files, % SchedulePostsDir ; , DFR
+	{		; D = Directories, F = Files, R = Recursive
+
+		SplitPath, A_LoopFileFullPath, FileNameWExt, FileDir, FileExt, FileNameNoExt
+
+		; Msgbox % "A_LoopFileFullPath: " A_LoopFileFullPath
+
+		IniRead, MinutesToUpload, %A_LoopFileFullPath%, Schedule-Info, TimeStamp, %A_Space%
+
+
+		; Clipboard := MinutesToUpload
+		; Clipboard := A_Now 
+		TimeDifference := A_Now
+		; Msgbox % "TimeDifference: " TimeDifference
+		; Msgbox % "MinutesToUpload: " MinutesToUpload
+
+		EnvSub, MinutesToUpload,A_Now,  Minutes ; [, TimeUnits]
+		; Msgbox % "MinutesToUpload: " MinutesToUpload
+
+		if(MinutesToUpload < 1){
+			IniRead, BodyTextFilePath, %A_LoopFileFullPath%, Schedule-Info, ProjectFilepath, %A_Space%	
+			IniRead, PostType, %A_LoopFileFullPath%, Schedule-Info, PostType, %A_Space%	
+			IniRead, Sites, %A_LoopFileFullPath%, Schedule-Info, Sites, %A_Space%
+			SitesForMsgbox := StrReplace(Sites, "|", ",")
+
+			IniRead, Title, %A_LoopFileFullPath%, Schedule-Info, Title, %A_Space%
+
+			; Msgbox % "Sites: " Sites
+
+
+			OnMessage(0x44, "OnMsgBoxScheduledPostConfirmation")
+			MsgBox 0x43, Scheduled Post Starting Soon, Starting the Following Scheduled Post in 1 Minute:`n`nTitle:`n%Title%`n`nTo Sites:`n%SitesForMsgbox%, 60
+			OnMessage(0x44, "")
+
+			IfMsgBox Yes, {
+
+				} Else IfMsgBox No, {
+					Pause, Toggle
+					} Else IfMsgBox Cancel, {
+						; msgbox, deleting file
+						FileDelete, %A_LoopFileFullPath%
+
+						Continue
+						if(ErrorLevel){
+							Message = Failed to delete Schedule Post File
+							; SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
+						}
+						} Else IfMsgBox Timeout, {
+
+						}
+
+
+						if(PostType = "Video"){
+							IniRead, UploaderFilepath, %SettingsIniFilepath%, Filepaths, VideoUploaderFilepath, %A_Space%
+						}
+						if(PostType = "Social"){
+							IniRead, UploaderFilepath, %SettingsIniFilepath%, Filepaths, SocialMediaPosterFilepath, %A_Space%
+						}
+
+						; launch the scheduled post
+						run, %UploaderFilepath% "%BodyTextFilePath%" "Scheduled" "%Sites%"
+
+						; delete the scheduled file
+						FileDelete, %A_LoopFileFullPath%
+
+						Message = Scheduled Post Started Title:`n%Title%`n`nTo Sites:`n%SitesForMsgbox%
+
+						; sleep, 5000
+						; Tooltip, hererer!
+						; msgbox, launched!
+					}
+
+				}
+
+				; MinutesToSleep := 5000
+				MinutesToSleep := 5 * 60000 
+				sleep, %MinutesToSleep%
+				} ; /Loop
+/*
+*/
+TogglePause:
+Pause, Toggle
+Return
+
+
+ReloadScript:
+Reload
+ExitApp
+
+ShowSchedule:
+ShowGUI:
+Gui, Font, s10
+
+
+Loop, files, % SchedulePostsDir ; , DFR
+{		; D = Directories, F = Files, R = Recursive
+	; msgbox, yoo
+	SplitPath, A_LoopFileFullPath, FileNameWExt, FileDir, FileExt, FileNameNoExt
+
+	IniRead, PostType, %A_LoopFileFullPath%, Schedule-Info, PostType, %A_Space%
+	IniRead, MinutesToUpload, %A_LoopFileFullPath%, Schedule-Info, TimeStamp, %A_Space%
+	IniRead, Title, %A_LoopFileFullPath%, Schedule-Info, Title, %A_Space%
+
+	IniRead, ProjectFilepath, %A_LoopFileFullPath%, Schedule-Info, ProjectFilepath, %A_Space%
+	SplitPath, ProjectFilepath, OutFileName, OutDir, OutExtension, OutNameNoExt, OutDrive
+
+	MinutesUntilUpload := MinutesToUpload
+	EnvSub, MinutesUntilUpload, A_Now,  Minutes
+
+	FormatTime, TimeForUpload , %MinutesToUpload%, yyyy-MM-dd @ hh:mm tt
+	TimeForUpload = %TimeForUpload% (%MinutesUntilUpload% Minutes Left)
+
+	Gui, Add, Button , x10 w100 yp+10, Title
+	Gui, Add, Edit, x+10 w300, %Title% 
+
+	Gui, Add, Button, x10 w100, Date
+	Gui, Add, Edit, x+10 w300, %TimeForUpload% 
+
+	; Gui, Add, Button, x10 w100, Project
+	; Gui, Add, Edit, x+10 w300, %OutFileName% 
+
+
+	Gui, Add, Button, x10 w100, Type
+	Gui, Add, Edit, x+10 w300, %PostType%
+
+
+
+	Gui, add, text, x15 w400 0x10  ;Horizontal Line > Etched Gray
+
+	Gui, Add, Text, yp+5,
+}
+
+Gui, Add, Button, gGuiClose w800,Close
+gui, Show,, %FullScriptName%
+
+goto, CheckDirectory
+Return
+
+
+GuiClose:
+Gui, Destroy
+goto, CheckDirectory
+Return
+
+
+KillScript:
+ExitApp
+
+
+
+
+; Functions
+; ------------------------------------------------
+OnMsgBoxScheduledPostConfirmation() {
+	DetectHiddenWindows, On
+	Process, Exist
+	If (WinExist("ahk_class #32770 ahk_pid " . ErrorLevel)) {
+		ControlSetText Button1, OK
+		ControlSetText Button2, Pause
+		ControlSetText Button3, Delete
+	}
+}