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

Думаю найти сайт, который будет стабильно выдавать код - самое оно. Вроде такое есть на github.
В скрипте прописываем ссылку, которая будет постоянна, а код на странице можно обновлять хоть каждый день.

Примерно так посылает в гугл документы данные, прочитать похожим образом можно. Только нужно свое приложение создавать в гугле, еще библиотека class JSON нужна.

ClientId := "513776191582-5ncn9n03hheqpf74q4mg0d.apps.googleusercontent.com" 
 ClientSecret := "Vll3gaxJdvRIDsr30lmRGNaj" 
  RefreshToken := "1//0cDiJRIgO-H-ICgGAwSNwF-L9IrYNFVHRsN72oqO-WBIPT2FVSKF2o23RFMLYslhoJ4vGZDemRTxDXU" 

  Request := "refresh_token=" RefreshToken "&client_id=" ClientId "&client_secret=" ClientSecret "&grant_type=refresh_token" 
   WinHTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1") 
    WinHTTP.Open("POST", "https://accounts.google.com/o/oauth2/token", true) 
     WinHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
   WinHTTP.Send(Request) 
  WinHTTP.WaitForResponse()
 lkdjfs := WinHTTP.ResponseText

parsed := JSON.Load(lkdjfs)

parsed_out := Format("
(
)"
, parsed.access_token)

vardfwm := parsed.access_token
global GetKeyHttp = "Bearer "" " vardfwm


 WinHTTP := ComObjCreate("WinHTTP.WinHttpRequest.5.1")
  WinHTTP.Open("POST", "https://content-docs.googleapis.com/v1/documents/1Nnz-z-28q_thEyggkb79PIhWx1E:batchUpdate?alt=json&key=AIzaSyBaZYhFVmtVnA2FlabxaVgreLYdlmu04Ew", true)
    WinHTTP.SetRequestHeader("Authorization", GetKeyHttp)
   WinHTTP.SetRequestHeader("Content-Type", "application/json")
  Data = {"requests":[{"insertText":{"text":"%activation_key% ключ\n","location":{"index":1}}}]}
  WinHTTP.Send(Data)
    WinHTTP.WaitForResponse()
    Body := WinHTTP.ResponseBody 
     pData := NumGet(ComObjValue(Body)+8+A_PtrSize) 
   lkdjfsxcvx := StrGet(pData, Body.MaxIndex() + 1, "utf-8")
  ; msgbox % lkdjfsxcvx

; msgbox % Key

  
 

Botsy
А если нет интернета, как сделать что бы скрипт об этом сообщил?

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

Botsy

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

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

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

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

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

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

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

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

#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

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

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

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