global ScriptVersion := "1.0.0" ; Версия данного скрипта
global UrlServerInfo := "https://raw.githubusercontent.com/ChandelureCosta/Medical-Helper-New/master/LST_Version.ini" ; Ссылка на файл с версией, ссылкой на файл, описанием, и лог изменений
global ScriptDir := % A_MyDocuments . "\GTA San Andreas User Files\SAMP\Medical Helper"

ConnectedToInternet(flag=0x40) ; интернет коннектор статус сети
{
Return DllCall("Wininet.dll\InternetGetConnectedState", "Str", flag,"Int",0)
}

; Запрос к странице через htttp получение html кода страницы без загрузки файлов
HttpMiniSend(url)
{
	Request := url
	WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
	WebRequest.Open("GET", Request)
	WebRequest.Send()
	return WebRequest.ResponseText
}


; Проверяем наличе папки если нет создаём
IfNotExist, % ScriptDir
	FileCreateDir, % ScriptDir


if ConnectedToInternet() ; есть подключение к сети
{
	SplashTextOn, , 60, Менеджер обновлений, Проверка обновления`n------------------------`nОжидайте
	Sleep, 1000
	LoadInfo := HttpMiniSend(UrlServerInfo)
	IfInString, LoadInfo, 404
	{
		SplashTextOn, , 60, Менеджер обновлений, Ошибка подключения`n------------------------`nНет связи с сервером
		sleep, 2000
		SplashTextoff
		goto, Script
	}
	else
	{
		FileServer := true ; файл настроек верный
		FileDelete, % ScriptDir . "/LST_Version.ini" ; записываем код с http в файл
		FileAppend, % LoadInfo, % ScriptDir . "/LST_Version.ini" ; записываем код с http в файл
		IniRead, f_LastVersion, % ScriptDir . "/LST_Version.ini", Script, Last_Version
		IniRead, f_LastDescription, % ScriptDir . "/LST_Version.ini", Script, Last_Description
		IniRead, f_LastChangLog, % ScriptDir . "/LST_Version.ini", Script, Last_Changlog
		goto, UpdateInfo
	}
}
else
{
	MsgBox, 48, Менеджер обновлений, Доступ к интернету не обнаружен`n-----------------------------------------`n ;Проверьте своё интернет соединение
	goto, Script
}

UpdateInfo:
If (f_LastChangLog != Null) ; если ссылка на файл лога не пуста
{
	LoadInfoChanges := HttpMiniSend(f_LastChangLog)
	FormChatLogLoad := LoadInfoChanges ; записываем текст с файла   в форму
}
	if (f_LastVersion > ScriptVersion and f_LastVersion != Null) ; версия больше и последняя версия не равна пустоте
	{
		SplashTextOn, , 60, Менеджер обновлений,  Ожидайте`n------------------------`nОбнаружена версия %f_LastVersion%
		sleep, 2000
		SplashTextoff
		; удаляем иконку с формы
		Gui +LastFound
		DllCall("uxtheme\SetWindowThemeAttribute", "ptr", WinExist(), "int", 1, "int64*", 6 | 6<<32, "uint", 8)

		; загружаем форму
		Gui, Update:Color, FFFFFF
		Gui, Update:-MinimizeBox
		Gui, Update:Add, TreeView, x240 y375 w240 h84,
		Gui, Update:Add, Edit, x10 y10 w480 h240 ReadOnly, %LoadInfoChanges%
		Gui, Update:Add, Button, x90 y260 w125 h30 gUpdate, Обновить
		Gui, Update:Add, Button, x285 y260 w125 h30 gUpdateGuiClose, Отмена
		Gui, Update:Show, w500 h300, Доступно обновление %ScriptVersion% до %f_LastVersion%
	}
	else
		goto, Script
return

; запускаем обновление по тыку кнопки обновить
Update:
IniRead, f_LastDownload, %ScriptDir%/LST_Version.ini, Script, Last_Download
IniRead, f_FileName, %ScriptDir%/LST_Version.ini, Script, Last_Name
msgbox, 1, Обновление до %f_LastVersion%, Хотите ли Вы обновиться?
IfMsgBox, OK
{
    SplashTextOn, , 60 ,Менеджер обновлений, Ожидайте`n------------------------`n ;Обновляем до %f_LastVersion%
    sleep, 1000
	URLDownloadToFile, % f_LastDownload, % ScriptDir . "\" . f_FileName
    SplashTextOn, , 60, Менеджер обновлений, Ожидайте`n------------------------`n ;Скачиваем обновление
    sleep, 1000
    SplashTextOn, , 60, Менеджер обновлений, Ожидайте`n------------------------`n ;Запускаем скрипт
    sleep, 3000
    run, % ScriptDir . "\" . f_FileName
    ExitApp

}
IfMsgBox, CANCEL
{
    Gui, Update:Destroy ; удаляем форму обновления
    goto, Script
}
return

UpdateGuiClose:
Gui, Update:Destroy
goto, Script
return

; ваш скрипт
Script:
MsgBox, Скрипт МЕДИКЛА %ScriptVersion% запущен.2418124
ExitApp