Removed Program Updater from no longer being relevant
parent
bbbb50e06f
commit
e6fbe579b7
@ -1,153 +0,0 @@
|
||||
; ENVIRONMENT
|
||||
;------------------------------------------------
|
||||
#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
|
||||
;#NoTrayIcon
|
||||
|
||||
if(InStr(A_ScriptFullPath, ".ahk"))
|
||||
Menu, Tray, Icon, %A_scriptdir%\Lib\Update.ico
|
||||
DetectHiddenWindows, ON
|
||||
|
||||
|
||||
|
||||
ScriptName = Freedomain Program Updater
|
||||
ScriptVersion = 1.1
|
||||
FullScriptName := ScriptName . " " ScriptVersion
|
||||
|
||||
|
||||
; Notes/Extra Info/#Includes
|
||||
;------------------------------------------------
|
||||
#Include, %A_scriptdir%\Lib\SharedFunctions.ahk
|
||||
|
||||
; Msgbox % "A_ScriptDir: " A_ScriptDir
|
||||
|
||||
; VARIABLES
|
||||
;------------------------------------------------
|
||||
SettingsIniFileLocation := A_ScriptDir . "\Settings.ini"
|
||||
ChangelogIniFilepath := A_ScriptDir . "\Lib\FreedomScriptsChangelogINI"
|
||||
|
||||
ScriptBackupFolder := A_ScriptDir . "\Lib\Backups"
|
||||
FileCreateDir, %ScriptBackupFolder%
|
||||
; FileCreateDir, %ScriptBackupFolder%
|
||||
|
||||
|
||||
ScriptToUpdate = %1% ; script to update is passed through argument.
|
||||
|
||||
; Msgbox % "ScriptToUpdate: " ScriptToUpdate
|
||||
|
||||
if(ScriptToUpdate = ""){
|
||||
OnMessage(0x44, "OnMsgBoxSelectProgram")
|
||||
MsgBox 0x23, %FullScriptName%, Which Program would you like to download an update for?
|
||||
OnMessage(0x44, "")
|
||||
|
||||
IfMsgBox Yes, {
|
||||
ScriptToUpdate = VideoUploader
|
||||
} Else IfMsgBox No, {
|
||||
ScriptToUpdate = SocialMediaPoster
|
||||
} Else IfMsgBox Cancel, {
|
||||
ExitApp
|
||||
}
|
||||
}
|
||||
|
||||
if(!FileExist(SettingsIniFileLocation)){
|
||||
MsgBox 0x30, , Failed to find Settings.ini file. `nExiting
|
||||
ExitApp
|
||||
}
|
||||
|
||||
|
||||
ToolTip, Downloading Updates, 850, 0
|
||||
|
||||
; MAIN SCRIPT
|
||||
;------------------------------------------------
|
||||
|
||||
; Check what the current update
|
||||
; msgbox, here goes?
|
||||
if(ScriptToUpdate = "VideoUploader"){
|
||||
ScriptSettingsSection := "VideoUploader"
|
||||
}
|
||||
if(ScriptToUpdate = "SocialMediaPoster"){
|
||||
ScriptSettingsSection := "SocialMediaPoster"
|
||||
}
|
||||
|
||||
; Current Location of the calling script
|
||||
IniRead, CallingScriptFilepath, %SettingsIniFileLocation%, %ScriptSettingsSection%, Filepath, %A_space%
|
||||
if(CallingScriptFilepath = ""){
|
||||
Message = Update Failed`n "CallingScriptFilepath" is blank.`nPlease Submit Error to Yuriy
|
||||
MsgBox 0x10,, %Message%
|
||||
return
|
||||
}
|
||||
Iniread, CallingScriptUpdateURL, %ChangelogIniFilepath%, %ScriptSettingsSection%, UpdateURL, %A_space%
|
||||
if(CallingScriptFilepath = ""){
|
||||
Message = Update Failed`n "ChangelogIniFilepath" is blank.`nPlease Submit Error to Yuriy
|
||||
MsgBox 0x10,, %Message%
|
||||
return
|
||||
}
|
||||
Iniread, LastPost, %SettingsIniFileLocation%, %ScriptSettingsSection%, LastPost, %A_space%
|
||||
Iniread, ScriptVersion, %SettingsIniFileLocation%, %ScriptSettingsSection%, ScriptVersion, %A_space%
|
||||
; Msgbox % "ScriptVersion: " ScriptVersion
|
||||
; Msgbox % "CallingScriptFilepath: " CallingScriptFilepath
|
||||
; Msgbox % "CallingScriptUpdateURL: " CallingScriptUpdateURL
|
||||
; Msgbox % "LastPost: " LastPost
|
||||
|
||||
|
||||
; Kill the scrip if it is currently open, shouldn't be necessary, but just in case
|
||||
SplitPath, CallingScriptFilepath, ProcessName, OutDir, OutExtension, OutNameNoExt, OutDrive
|
||||
; SplitPath, InputVar [, OutFileName, OutDir, OutExtension, OutNameNoExt, OutDrive]
|
||||
Process, Exist, %ProcessName%
|
||||
if(ErrorLevel){
|
||||
Process, Close, %ProcessName%
|
||||
}
|
||||
|
||||
; Msgbox % "CallingScriptFilepath: " CallingScriptFilepath
|
||||
|
||||
|
||||
BackupLocation = %ScriptBackupFolder%\%OutNameNoExt%_%ScriptVersion%.%OutExtension%
|
||||
FileMove, %CallingScriptFilepath%, %BackupLocation%, 1
|
||||
if(ErrorLevel){
|
||||
MsgBox 0x10, Failed To Delete, Failed to Delete:`n%ScriptFilepath%`n`nPlease delete it manually and re-run the updater and Select the Program You'd Like to Update.
|
||||
ExitApp
|
||||
}
|
||||
|
||||
ToolTip, Backup Made to \Backups\ Successfully. `nDownloading New Version, 850, 0
|
||||
; Download latest file
|
||||
UrlDownloadToFile, %CallingScriptUpdateURL%, %CallingScriptFilepath%
|
||||
|
||||
; IniWrite, Value, Filename, Section, Key
|
||||
; Update the ini file with the update status
|
||||
IniWrite, 0, %SettingsIniFileLocation%, %ScriptSettingsSection%, UpdateAvailable
|
||||
|
||||
|
||||
; MsgBox
|
||||
|
||||
run, "%CallingScriptFilepath%" "LastPost"
|
||||
; ExitApp
|
||||
; MsgBox, done here!
|
||||
|
||||
|
||||
ExitApp
|
||||
; Functions
|
||||
;------------------------------------------------
|
||||
URLDownloadToVar(url){
|
||||
hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
|
||||
hObject.Open("GET",url)
|
||||
hObject.Send()
|
||||
return hObject.ResponseText
|
||||
}
|
||||
|
||||
|
||||
OnMsgBoxSelectProgram() {
|
||||
DetectHiddenWindows, On
|
||||
Process, Exist
|
||||
If (WinExist("ahk_class #32770 ahk_pid " . ErrorLevel)) {
|
||||
ControlSetText Button1, Video Uploader
|
||||
ControlSetText Button2, Social Media
|
||||
ControlSetText Button3, Cancel
|
||||
}
|
||||
}
|
||||
Loading…
Reference in New Issue