Серый форум — AHK: Как получать данные с сайта?

Re: AHK: Как получать данные с сайта?

null@example.com (Botsy) — Tue, 02 Feb 2021 20:10:45 +0000

Как вариант, спасибо за советы.

Re: AHK: Как получать данные с сайта?

null@example.com (__Михаил__) — Tue, 02 Feb 2021 19:22:12 +0000

Всё же, наличие файла, который может неожиданно 'пропасть' - не очень хороший вариант как по мне. Если всё же оставить как есть, тогда при первой установке сразу переместить основную программу и обновлялку в отдельную папку, например в 'C:\Program Files\' а на рабочем столе создать ярлык?

Re: AHK: Как получать данные с сайта?

null@example.com (Botsy) — Tue, 02 Feb 2021 18:31:52 +0000

Апдейтер в комплекте сразу буду кидать, а проверку на наличие файла - добавлю. А все действия с ссылкой, добавлю в блок try.

Re: AHK: Как получать данные с сайта?

null@example.com (__Михаил__) — Tue, 02 Feb 2021 14:57:54 +0000

Первый косяк что сразу в глаза попадается - 'parametrs_test.exe', не указано где его искать, что если его не будет в папке?
Либо он должен проверяться перед запуском, либо скачиваться / извлекаться из основы.

2) 'Server_version' точно будет нужным числом? Что если ссылка окажется не действительной?

Re: AHK: Как получать данные с сайта?

null@example.com (Botsy) — Mon, 01 Feb 2021 20:31:00 +0000

Переделал без батника, по мне так стало надёжнее. Есть программа и апдейтер.
Программа скачивает новую версию и запускает апдейтер, передавая ему параметры(особенно порадовало передача PID, потому что с батником этого не получилось).


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
}

Пока что всё работает тип-топ). Не знаю насколько корректно написал, мб забыл что-то проверить или может подскажите на ошибки, если есть?

Re: AHK: Как получать данные с сайта?

null@example.com (__Михаил__) — Sun, 31 Jan 2021 11:22:06 +0000

Ещё как вариант - скачать новую версию и запустить. В ней уже если всё устраивает пользователя предложить удаление старой. Если нужно то можно сохранить новую версию под старым названием (например запуск с ярлыка и прочее).

Вот проверил, работает:

#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

Re: AHK: Как получать данные с сайта?

null@example.com (__Михаил__) — Sat, 30 Jan 2021 22:07:22 +0000

1) Что мешает создавать батник с нужным названием программы? Ахк скрипт спокойно может получить свое название и создать батник с нужными данными.
2) Так же как с 1 пунктом. Ахк может получить полный путь где он находится.
3) Командую строку можно скрыть. Зачем она нам нужна, верно?
4) Сделать красивую анимацию якобы скачивания обновы?

Высосанные из пальца проблемы, как по мне.

Re: AHK: Как получать данные с сайта?

null@example.com (Botsy) — Sat, 30 Jan 2021 21:44:23 +0000

Попробовал с батником. Ну для эксперимента, работает нормально: основная программа проверяет версию -> скачивает новую -> запускает батник и выходит из программы -> батник удаляет основную программу, переименовывает новую в старую -> запускает новую. Но по мне выглядит это не очень надёжно.

Во-первых, батник привязан по названию программ. Их можно изменить и т.д. Лучше было бы привязывать по 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" ; запускаем новую

Re: AHK: Как получать данные с сайта?

null@example.com (__Михаил__) — Sat, 30 Jan 2021 10:29:35 +0000

Это базовые функции ОС. Саму себя удалять программа запретит. Нужен 'помощник' в этом. Например батник создать и запустить после выхода программы.

Re: AHK: Как получать данные с сайта?

null@example.com (KusochekDobra) — Sat, 30 Jan 2021 05:30:43 +0000

Ошибка считать, что исполняемые файлы можно удалять.
Попробуйте любой другой файл программы запустить и попытайтесь его удалить, пока его процесс запущен.

Re: AHK: Как получать данные с сайта?

null@example.com (Botsy) — Sat, 30 Jan 2021 02:21:24 +0000

Вот и пригодилось автообновление, было два варианта: либо сделать второй скрипт типо лаунчера, либо просто скачает новую версию -> запустит и сам себя удалит.
Остановился на второй. В не скомпилированном варианте все работает (если указать в FileRecycle -> A_ScriptFullPath), а после компиляции - нет. Т.е. "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

Re: AHK: Как получать данные с сайта?

null@example.com (__Михаил__) — Wed, 09 Dec 2020 19:11:37 +0000

Botsy

FileReadLine, VNum, %A_WorkingDir%\version.txt, 1

Чтение файла, зачем? Это на мой взгляд глупо. В программе должна быть переменная, её сверить быстрее и правильнее.

Можно сделать более менее красивое окошко с предложением на обновление, стандартные ToolTip и MsgBox думаю уже не актуальны в готовом продукте.

Re: AHK: Как получать данные с сайта?

null@example.com (Botsy) — Wed, 09 Dec 2020 18:43:03 +0000

__Михаил__ В том варианте, который есть - базовый функционал. Можно дописать немного и будет вообще по красоте.

Re: AHK: Как получать данные с сайта?

null@example.com (__Михаил__) — Wed, 09 Dec 2020 18:37:19 +0000

Botsy пишет:

Это конечно не автообновление, придется руками удалять старую версию, но как бюджетный вариант, вполне реальный.

Почему же это не автообновление? Очень даже дельно, на мой взгляд.
Если стоит галочка в программе 'Проверять обнову' - скачать с сервера файл / код. Затем спросить пользователя на замену версии - если он согласиться - заменить текущую на новую. Можно сохранить старую, а новую рядом поставить и в конце добавить 'v2.0' например.

Re: AHK: Как получать данные с сайта?

null@example.com (Botsy) — Wed, 09 Dec 2020 12:40:01 +0000

Vsevolod Есть простой способ и нормальный. Сам пользуюсь простым: добавь подключение к серверу в блок "try", а в блоке "catch" обработай его, например выводом сообщения "нет интернета". А нормальный способ, это еще обрабатывать коды ошибок в http запросах(ну там ошибка 404 и т.д.), тогда будет полное сообщение об ошибке, а не просто "нет интернета".