Обновление программы через облачное хрвнилище

function Update()
{
Stop_Script("", 0);

int Open_Internet, Close, Connect_Internet, Open_File, Catalog, Count_Butes, Get_File;
string FTP_Name = "";
string Login = "";
string Password = "";
string File_Name = "version.txt";
string Version_Program = "1.0";
char New_Version_Program[999999];

Open_Internet = InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
Connect_Internet = InternetConnect(Open_Internet, FTP_Name, INTERNET_DEFAULT_FTP_PORT, Login, Password, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
if (Connect_Internet == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удается подключиться к серверу. ", "prog", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
else
{
Catalog = FtpSetCurrentDirectory(Connect_Internet, FTP_Name);
Open_File = FtpOpenFile(Connect_Internet, File_Name, GENERIC_READ, INTERNET_FLAG_TRANSFER_ASCII, INTERNET_FLAG_NO_CACHE_WRITE, 0);

if(Open_File > 0)
{
InternetReadFile(Open_File, address(#New_Version_Program[0]), sizearray(New_Version_Program), address(#Count_Butes));

if(Count_Butes > 0)
{
if(formatsn(format(#New_Version_Program[0], Count_Butes)) > formatsn(Version_Program))
{

MessageBeep(MB_ICONEXCLAMATION);
int result_message3 = my_message(0, "Найдена новая версия программы."+formatic(13)+formatic(10)+
"Текущая : v"+Version_Program+formatic(13)+formatic(10)+
"Последняя: v"+format(#New_Version_Program[0], Count_Butes)+formatic(13)+formatic(10)+formatic(13)+formatic(10)+
"Внимание! Эта версия программы будет удалена."+formatic(13)+formatic(10)+
"Обновить программу?", "prog", MB_YESNO | MB_ICONQUESTION | MB_TOPMOST);

if (result_message3 == 6)
{
Get_File = FtpGetFile(Connect_Internet, "prog2.exe", "prog2.exe", 0, 0, 0);
if (Get_File == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удалось скачать ", "prog", MB_OK | MB_ICONERROR | MB_TOPMOST);
}

}
}
else
{
if(formatsn(format(#New_Version_Program[0], Count_Butes)) == formatsn(Version_Program))
{
MessageBeep(MB_OK);
my_message(0, "У вас последняя версия программы.", "prog", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
}
}
}
Close = InternetCloseHandle(Connect_Internet);
}
}
}

function Update()
{
Stop_Script("", 0);

int Open_Internet, Close, Connect_Internet, Open_File, Catalog, Count_Butes, Get_File;
string FTP_Name = "";
string Login = "";
string Password = "";
string File_Name = ".txt";
string Version_Program = "1.0";
char New_Version_Program[999999];

Open_Internet = InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
Connect_Internet = InternetConnect(Open_Internet, FTP_Name, INTERNET_DEFAULT_FTP_PORT, Login, Password, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
if (Connect_Internet == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удается подключиться к серверу. ", "", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
else
{
Catalog = FtpSetCurrentDirectory(Connect_Internet, FTP_Name);
Open_File = FtpOpenFile(Connect_Internet, File_Name, GENERIC_READ, INTERNET_FLAG_TRANSFER_ASCII, INTERNET_FLAG_NO_CACHE_WRITE, 0);

if(Open_File > 0)
{
InternetReadFile(Open_File, address(#New_Version_Program[0]), sizearray(New_Version_Program), address(#Count_Butes));

if(Count_Butes > 0)
{
if(formatsn(format(#New_Version_Program[0], Count_Butes)) > formatsn(Version_Program))
{

MessageBeep(MB_ICONEXCLAMATION);
int result_message3 = my_message(0, "Найдена новая версия программы."+formatic(13)+formatic(10)+
"Текущая : v"+Version_Program+formatic(13)+formatic(10)+
"Последняя: v"+format(#New_Version_Program[0], Count_Butes)+formatic(13)+formatic(10)+formatic(13)+formatic(10)+
"Внимание! Эта версия программы будет удалена."+formatic(13)+formatic(10)+
"Обновить программу?", "", MB_YESNO | MB_ICONQUESTION | MB_TOPMOST);

if (result_message3 == 6)
{
Open_Internet = InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);//после дублирование работает
Connect_Internet = InternetConnect(Open_Internet, FTP_Name, INTERNET_DEFAULT_FTP_PORT, Login, Password, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
Catalog = FtpSetCurrentDirectory(Connect_Internet, FTP_Name);//тоже самое как эти 3 строчки

Get_File = FtpGetFile(Connect_Internet, "***.exe", "?*******.exe", 0, 0, 0);
if (Get_File == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удалось скачать *****", "", MB_OK | MB_ICONERROR | MB_TOPMOST);
}

}
}
else
{
if(formatsn(format(#New_Version_Program[0], Count_Butes)) == formatsn(Version_Program))
{
MessageBeep(MB_OK);
my_message(0, "У вас последняя версия программы.", "", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
}
}
}
}
}
Close = InternetCloseHandle(Connect_Internet);
}

external(INT, "MessageBeep", "MessageBeep", "user32.dll");
external(INT, "my_message", "MessageBoxA", "user32.dll");

#definefile "C:\Users\Home\Desktop\МОЁ\Kibor\Constants.txt";

char File_Exe[10000000];
char Command[1];
string path_fold = pathfolder();
string Get_Text;

sleep(2000);
readclipboard(Get_Text);

if (Get_Text == "ключевое слово для другое программы")
{
int count_symbol = sendgetweb(#File_Exe[0], "", "GET", "http:/"+"/поменять на свой.zzz.com.ua", "поменять на свой.exe");
if (count_symbol > 0)
{
if(fopen(path_fold+"поменять на свой.exe", "wb"))
{
fwriteb(#File_Exe[0], count_symbol);
fclose();
writeclipboard("");
MessageBeep(MB_OK);
my_message(0, "Программа была успешна обновлена.", "поменять на свой", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
}
}
else
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удалось скачать поменять на свой.exe", "поменять на свой", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
}
else
{
int Status = start(path_fold+"поменять на свой.exe");
if (Status == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удалось открыть поменять на свой. Пожалуйста откройте программу и нажмите 'Обновить', "+
"либо переместите её в одну папку с модулем обновления и повторите попытку снова.", "поменять на свой", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
close();
}