commit
62195a6048
Binary file not shown.
|
After Width: | Height: | Size: 82 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 21 KiB |
Binary file not shown.
@ -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-----------------------------------------------------------------------
|
||||
@ -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
|
||||
}
|
||||
}
|
||||
Loading…
Reference in New Issue