[Интернет] Автообновление программы в нормальном и скрытом (в фоне) режимах
- Автор темы kzru_hunter
- Дата начала
WR-e-D
Новичок
- Сообщения
- 53
- Репутация
- 3
AdlibRegister("_CheckUpdate",20) - Иногда GUi успевает появляться в этот промежуток 
Достаточно проблемно при двойном открытии exe и в тех случаях когда нужно при отмене обновления закрывать программу
Код:
;-------------------------------------------------------------------------------------------
$g_hInet_Update = InetGet($url,$g_TempFileInfo_Update,1,1)
_CheckUpdate()
EndFunc
Func _CheckUpdate()
$PCount=0
Do
Sleep(20)
If $PCount > 500 Then
Exit ;Return
ElseIf InetGetInfo($g_hInet_Update,2) Then
ExitLoop
EndIf
$PCount+=1
Until $PCount > 501 ;Проверяем 10 секундДостаточно проблемно при двойном открытии exe и в тех случаях когда нужно при отмене обновления закрывать программу
- Сообщения
- 3,608
- Репутация
- 941
Восстановите кто-нибудь приложенный файл пожалуйста. Не дает скачать.
Добавлено:
Кто-нибудь задавался вопросом использования при обновлении программы через фтп с помощью InetGet, ссылки типа:
Безопаснее ли для этого использовать FTPEx? Не перехватят ли указанный в ссылке логин и пароль?
Добавлено:
Сообщение автоматически объединено:
Кто-нибудь задавался вопросом использования при обновлении программы через фтп с помощью InetGet, ссылки типа:
Безопаснее ли для этого использовать FTPEx? Не перехватят ли указанный в ссылке логин и пароль?
Black_Night
Новичок
- Сообщения
- 67
- Репутация
- 1
Belfigor,
Однозначно перехватят. Через FTP обновляться плохо. Лучше простой HTTP.
Однозначно перехватят. Через FTP обновляться плохо. Лучше простой HTTP.
- Сообщения
- 3,608
- Репутация
- 941
О! А это мысля, создать на хостинге директорию и пользователя с правами только для чтения.
Хотяяя... У меня же этот пользователь и пароль сгенерированы только для обновлений. Надо главное папке приоритет "только чтение" задать.
Хотяяя... У меня же этот пользователь и пароль сгенерированы только для обновлений. Надо главное папке приоритет "только чтение" задать.
Кто ищет тот всегда найдет. И хоть Update.au3 я так скачать и не смог, но на рубоарде все таки выдернул то что искал. Скрипт настолько понравился, что я переделал его под локальную сеть и внедрил в некоторые свои рабочие проекты.
Кому нужно под локалку но переделывать лень (хотя что там переделывать все итак почти готово к употреблению), вот:
Для этого примера я создал папку "Папка с обновлением" на диске D, туда поместил файл Update.inf следующего содержания:
Скомпилировал скрипт с параметром
положил получмвшийся файл в папку "D:\Папка с обновлением\"
Далее скомпилировал скрипт с параметром
Запихнул на рабочий стол, запустил и обновил его до версии 1.1.
Кому нужно под локалку но переделывать лень (хотя что там переделывать все итак почти готово к употреблению), вот:
Код:
#pragma compile(Out, D:\Папка с обновлением\Update.exe)
#pragma compile(FileVersion, 1.0.0.0)
#pragma compile(ProductVersion, 1.1.0.0)
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <Array.au3>
Global $sAppUpdate_Page = "D:\Папка с обновлением\Update.inf"
Global $sApp_Version = "1.1"
Global $hGUI = 0
;Here we checking in quiet mode (only if new version available there will be a message).
_AppCheckUpdates_Proc($sAppUpdate_Page, $sApp_Version, 1)
#Region GUI Part
$hGUI = GUICreate("My Application", 300, 200)
$App_Ver = GUICtrlCreateLabel("Текущая версия " & $sApp_Version, 10, 20)
$CheckUpdates_Button = GUICtrlCreateButton("Проверить обновление", 150, 170, 140, 20)
$Exit_Button = GUICtrlCreateButton("Выход", 20, 170, 60, 20)
GUISetState(@SW_SHOW, $hGUI)
#EndRegion GUI Part
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $Exit_Button
Exit
Case $CheckUpdates_Button
_AppCheckUpdates_Proc($sAppUpdate_Page, $sApp_Version)
EndSwitch
WEnd
Func _AppCheckUpdates_Proc($sServer_Page, $sCurrent_AppVersion, $iMode=-1) ;$iMode <> -1 to check quitly
Local $sUpdate_Version = IniRead($sServer_Page, "info", "Update Version", "")
Local $sUpdate_File = IniRead($sServer_Page, "info", "Update File", "")
If @error=1 Then
If $iMode = -1 Then MsgBox(48, "Update check", _
StringFormat("Возникла ошибка (%i) при проверке обновления, пожалуйста, свяжитесь с автором.", 1), 0, $hGUI)
Return SetError(1, 0, 0)
EndIf
If _VersionCompare($sUpdate_Version, $sCurrent_AppVersion) = 1 Then
Local $iUpdate_Ask = MsgBox(36, "Проверка обновления", _
StringFormat("Доступна новая версия (%s).\n\nЖелаете обновить?", $sUpdate_Version), _
0, $hGUI)
If $iUpdate_Ask <> 6 Then Return 0
Local $sScript_Name = StringTrimRight(@ScriptName, 4) & ".exe"
Local $iInetGet = FileCopy($sUpdate_File, @TempDir & "\" & $sScript_Name, 1)
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, "Проверка обновления", "Вы используете самую новую версию программы", 0, $hGUI)
Return 1
EndFuncДля этого примера я создал папку "Папка с обновлением" на диске D, туда поместил файл Update.inf следующего содержания:
Код:
[Info]
Update Version=1.1
Update File=D:\Папка с обновлением\Update 1.1.exeСкомпилировал скрипт с параметром
Код:
Global $sApp_Version = "1.1"положил получмвшийся файл в папку "D:\Папка с обновлением\"
Далее скомпилировал скрипт с параметром
Код:
Global $sApp_Version = "1.0"Запихнул на рабочий стол, запустил и обновил его до версии 1.1.
