auto_update()
{
	Current_version := 1.001
	name := "test v1.1"
	try {
		PID := DllCall("GetCurrentProcessId")
		URL := "http://google.com/new_version.exe"
		old_File_path := A_ScriptFullPath
		new_File_path := A_ScriptDir "\" name ".exe"
		link := "http://google.com/update.txt"

		http := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
		http.Open("GET", link, False)
		http.Send()
		http.WaitForResponse()
		Server_version := http.responseText
	}
	catch {
		OnException("Ошибка с подключением: 5")
		Exit
	}
	If (Server_version > Current_version)
	{
		Progress, b CWFFFFFF CT000000 FM14,, Подождите... ,, Raleway
			Progress, 25
			Sleep, 250
		if !FileExist("test.exe")
			{
				Progress, OFF
				OnException("Не существует файла апдейтера: 3")
				Exit
			}
		try {
		UrlDownloadToFile, %URL%, %name%.exe
			sleep, 250
			Progress, 75
		}
		catch {
			OnException("Нет подключения к интернету: 4")
			Exit
		}
		Run, test_updater.exe "%PID%" "%old_File_path%" "%new_File_path%"
			Sleep, 250
			Progress, 99
			Sleep, 250
			Progress, OFF
		ExitApp
	}
	return
}

#NoEnv
SetWorkingDir %A_ScriptDir%

if (A_IsCompiled != 1)
	ExitApp

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
		{
			OnException("Err: 1")
			ExitApp
		}
	}

	if FileExist(old_File_path) 
	{
		FileDelete, %old_File_path%
		if ErrorLevel != 0
		{
			OnException("Err: 2")
			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
		{
			OnException("Err: 2")
			ExitApp
		}
	}
	return
}

Loop %0%{
	ComParam%A_Index% := %A_Index%
}
#SingleInstance Force
#NoEnv

Version := 1.00

TrayTip, AHK MoH (%GuiVersion%), Скрипт успешно запущен.

If (ComParam1 = /Update){
	Update(ComParam2, ComParam3)
}
Else If (ComParam1 = /TempDelete){
	TempDelete(ComParam2, ComParam3)
}
Else{
	CheckUpdate(Version)
}
Return

CheckUpdate(Version) {
	NewVersionHTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1")
	NewVersionHTTP.Open("GET", "https://github.com/sokolin05/profile.moh/raw/master/version.profile.md", true)
	NewVersionHTTP.Send()
	NewVersionHTTP.WaitForResponse()
	NewVersion := NewVersionHTTP.ResponseText
	If (NewVersion <= Version){
		; MsgBox, 16, Обновление, Новых версий скрипта не найдено.
		Gosub, NoUpdate
		Return
	}
	Else{
		MsgBox, % 4+64+256, Обновление, Найдена новая версия скрипта!`nОбновить с %Version% до %NewVersion%?
		IfMsgBox, No
		{
			Gosub, NoUpdate
			Return
		}
		IfMsgBox, Yes
		{
			URLDownloadToFile, https://github.com/sokolin05/profile.moh/raw/master/ahk.moh.exe, %A_Temp%\ahk.moh.exe
			PID := DllCall("GetCurrentProcessId")
			Run %A_Temp%\ahk.moh.exe, "/Update" "%PID%" "%A_ScriptFullPath%"
			ExitApp
		}
	}
}

Update(PID, Path) {
	Process, Close, %PID%
	Process, WaitClose, %PID%, 3
	If ErrorLevel
	{
		MsgBox, % 16, Обновление, Не удаётся закрыть процесс.
		ExitApp
	}
	Else{
		FileCopy, %A_ScriptFullPath%, %Path%, 1
		If ErrorLevel
		{
			MsgBox, % 16, Обновление, Не удалось копирование, возможно были запущены несколько экземпляров программы.
			ExitApp
		}
		Else{
			PID := DllCall("GetCurrentProcessId")
			Run %Path% "/TempDelete" "%PID%" "%A_ScriptFullPath%"
			ExitApp
		}
	}
}

TempDelete(PID, Path) {
	Process, Close, %PID%
	Process, WaitClose, %PID%, 2
	FileDelete, %Path%
}