2) 'Server_version' точно будет нужным числом? Что если ссылка окажется не действительной?
]]>
SetWorkingDir %A_ScriptDir%
PID := DllCall("GetCurrentProcessId")
Current_version := 1
old_File_path := A_ScriptFullPath
new_File_path := A_ScriptDir "\new_version.exe"
URL := "/new_version.exe"
link := "/update.txt"
http := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
http.Open("GET", link, False)
http.Send()
http.WaitForResponse()
Server_version := http.responseText
If (Server_version > Current_version)
{
UrlDownloadToFile, %URL%, new_version.exe
Run, parametrs_test.exe "%PID%" "%old_File_path%" "%new_File_path%"
ExitApp
}
return
Апдейтер обрабатывает входные параметры, завершает и удаляет старую версию, переименовывает новую и запускает ее.
#NoEnv
SetWorkingDir %A_ScriptDir%
if A_Args.Count() > 3
ExitApp
else if A_Args.Count() > 0
{
for index, element in A_Args
{
first_element := SubStr(element, 1, 1)
if (first_element = "-")
{
element := SubStr(element, 2)
}
input_parametrs%index% := element
}
; input_parametrs1 = PID
; input_parametrs2 = old_File_path
; input_parametrs3 = new_File_path
if !FileExist(input_parametrs2)
ExitApp
old_version(input_parametrs1, input_parametrs2)
new_version(input_parametrs2, input_parametrs3)
run %input_parametrs2%
}
else ExitApp
ExitApp
old_version(old_PID, old_File_path)
{
Process, Exist, %old_PID%
if Errorlevel != 0
{
Process, Close, %old_PID%
Process, WaitClose, %old_PID%, 1
if ErrorLevel != 0
{
MsgBox, Error
ExitApp
}
}
if FileExist(old_File_path)
{
FileDelete, %old_File_path%
if ErrorLevel != 0
{
MsgBox, Error
ExitApp
}
}
return
}
new_version(old_File_path, new_File_path)
{
if FileExist(new_File_path)
{
FileMove, %new_File_path%, %old_File_path%, 1
if ErrorLevel != 0
{
MsgBox, Error
ExitApp
}
}
return
}
Пока что всё работает тип-топ). Не знаю насколько корректно написал, мб забыл что-то проверить или может подскажите на ошибки, если есть?
]]>Вот проверил, работает:
#SingleInstance Force
#NoEnv
SetWorkingDir %A_ScriptDir%
; Отобразить текущий полный путь:
F2::
Tool("Полный путь к программе: " A_ScriptFullPath,,0,0)
Return
; Переименовать текущую программу:
F3::
SplitPath, A_ScriptFullPath,, dir,, name_no_ext
FileMove, % A_ScriptFullPath, % dir "\" name_no_ext (A_IsCompiled ? " v2.exe" : " v2.ahk") ; Добавит к текущему названию 'v2'.
If ErrorLevel
Tool("Не вышло переименовать",,0,0)
Else
Tool("Всё ок",,0,0)
Return
;16.06.2020 показать на время ToolTip, с указанием позиции:
Tool(txt, wait := 2000, X := "", Y := "")
{
SetTimer, Show0, Off
ToolTip, % txt, % X, % Y
If wait
SetTimer, Show0, %wait%
Else
{
KeyWait, %A_ThisHotkey%, U
ToolTip
}
}
~Esc::
Show0:
SetTimer, Show0, Off
ToolTip
Return
F4:: ExitApp
F6:: ReloadВысосанные из пальца проблемы, как по мне.
]]>Во-первых, батник привязан по названию программ. Их можно изменить и т.д. Лучше было бы привязывать по PID процесса, чтобы удалить 100% нужную программу, но не нашел инфу как передать PID в батник при запуске. Во-вторых, привязан локально. Файлы могут разделить и т.д., и если программы не будет в каталоге с батником - ничего не получится. В-третьих, открывается командная строка и это может пугать пользователя или типо того. В-четвёртых, выполнение команд в батнике фиксировано задержкой между командами, а не их фактическим выполнением. У кого-то комп динозавр и команды не будут выполнены корректно.
В общем, в каталогах нормальных программ не нашел батников, хотя они обновляются красиво. За-то всегда есть 2-3 дополнительных ярлыка с названиями типо "service, update и прочее". Попробую альтернативный метод, без батника, а с промежуточной программой.
If (Server_version > Current_version)
{
UrlDownloadToFile, %URL%, delete_download.exe
if !FileExist("delete_download.exe")
ExitApp
Run, test.bat
ExitApp
}
test.bat
@timeout /t 2
@erase "%~dp0delete_bat.exe" ; удаляем старую программу
@timeout /t 1
@rename delete_download2.exe delete_download.exe ; переименовываем новую в старую
@timeout /t 1
@start "" "%~dp0delete_download.exe" ; запускаем новую
SetWorkingDir %A_ScriptDir%
Current_version := 1
URL := "https://delete_download.exe"
link := "https://update.txt"
http := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
http.Open("GET", link, False)
http.Send()
http.WaitForResponse()
Server_version := http.responseText
If (Server_version > Current_version)
{
UrlDownloadToFile, %URL%, delete_download.exe
if !FileExist("delete_download.exe")
ExitApp
Run, *RunAs delete_download.exe 1
FileRecycle, delete_copy.exe
ExitApp
}
else msgbox, Not
return
FileReadLine, VNum, %A_WorkingDir%\version.txt, 1Чтение файла, зачем? Это на мой взгляд глупо. В программе должна быть переменная, её сверить быстрее и правильнее.
Можно сделать более менее красивое окошко с предложением на обновление, стандартные ToolTip и MsgBox думаю уже не актуальны в готовом продукте.
]]>Это конечно не автообновление, придется руками удалять старую версию, но как бюджетный вариант, вполне реальный.
Почему же это не автообновление? Очень даже дельно, на мой взгляд.
Если стоит галочка в программе 'Проверять обнову' - скачать с сервера файл / код. Затем спросить пользователя на замену версии - если он согласиться - заменить текущую на новую. Можно сохранить старую, а новую рядом поставить и в конце добавить 'v2.0' например.