Автор Тема: Обновление  (Прочитано 941 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн arabnesso [?]

  • Новичок
  • *
  • Сообщений: 17
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Обновление
« Создано: Октябрь 27, 2018, 14:04:47 »
Версия AutoIt: 3.
Описание: Нужно сделать, чтобы этот скрипт обновлял не сам себя, а другую программу по наличии новой версии.
Код: AutoIt [Выделить]
#include <Misc.au3>
#include <Inet.au3>
;

Global $sAppUpdate_Page = "http://site/check/MyApp_Update.inf"
Global $sApp_Version = "1.0"

;Here we checking in quiet mode (only if new version available there will be a message).
_AppCheckUpdates_Proc($sAppUpdate_Page, $sApp_Version, 1)

Func _AppCheckUpdates_Proc($sServer_Page, $sCurrent_AppVersion, $iMode=-1) ;$iMode <> -1 to check quitly
    Local $sUpdate_Info = _INetGetSource($sServer_Page)

    If Not StringInStr($sUpdate_Info, "[Info]") Then
        If $iMode = -1 Then MsgBox(48, "Update check", _
            StringFormat("There was an error (%i) to check update, please contact with the author.", 1), 0, $hGUI)

        Return SetError(1, 0, 0)
    EndIf

    Local $sUpdate_Version = StringRegExpReplace($sUpdate_Info, "(?s)(?i).*Update Version=(.*?)(\r|\n).*", "\1")
    Local $sUpdate_File = StringRegExpReplace($sUpdate_Info, "(?s)(?i).*Update File=(.*?)(\r|\n).*", "\1")

    If _VersionCompare($sUpdate_Version, $sCurrent_AppVersion) = 1 Then
        Local $iUpdate_Ask

        Local $sScript_Name = StringTrimRight(@ScriptName, 4) & ".exe"

        Local $iInetGet = InetGet($sUpdate_File, @TempDir & "\" & $sScript_Name)

        Run(@ComSpec & ' /c Ping -n 2 localhost > nul & Move /y "' & _
            @TempDir & '\' & $sScript_Name & '" "' & @ScriptFullPath & '" & Start "" "' & @ScriptFullPath & '"', '', @SW_HIDE)

        Exit
    EndIf

    If $iMode = -1 Then MsgBox(48, "Update check", "You are using the newest version of this software.", 0, $hGUI)
    Return 1
EndFunc


Бюджет: 500Р
« Последнее редактирование: Октябрь 27, 2018, 20:13:45 от arabnesso »

Русское сообщество AutoIt

Обновление
« Отправлен: Октябрь 27, 2018, 14:04:47 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
5 Ответов
16248 Просмотров
Последний ответ Январь 31, 2012, 16:33:07
от snoitaleR
16 Ответов
7802 Просмотров
Последний ответ Январь 20, 2011, 13:05:10
от CreatiK
11 Ответов
7112 Просмотров
Последний ответ Апрель 01, 2011, 12:26:00
от winstan
5 Ответов
4377 Просмотров
Последний ответ Апрель 03, 2011, 16:00:06
от Kaster
0 Ответов
2593 Просмотров
Последний ответ Май 17, 2011, 18:56:34
от nu3dell
14 Ответов
7751 Просмотров
Последний ответ Июнь 05, 2011, 01:55:36
от CreatoR
6 Ответов
3370 Просмотров
Последний ответ Июль 23, 2011, 18:32:05
от Ranos1982
18 Ответов
11323 Просмотров
Последний ответ Февраль 19, 2015, 07:05:21
от DinamitMobile
4 Ответов
2844 Просмотров
Последний ответ Октябрь 29, 2011, 21:44:51
от Isn
5 Ответов
4111 Просмотров
Последний ответ Март 26, 2012, 21:20:27
от damien2008