всем привет !

может кто-то заморочивался таким:
сделал заказчику программу, он решил, что мы ее будем совершенствовать, но текущую версию нужно раздать клиентам.

теперь он хочет, чтобы программа при старте заходила на сайт и проверяла, а нет ее новой версии и если таковая появилась, то скачивала бы ее и обновляла себя, т.е. удаляла свою старую версию и оставляла новую.
программа - простой ехе-файл.

буду рад любым мыслям, рекомендациям, ссылкам и проч.

[голос из зала]
да это проще пареной репы!
[вокруг зашушукались]
надо еще один exeшник, который проверяет версию и обновляет/запускает мастер-exeшник
делов то
[в зале слышны недовольные голоса:"Чё, умный сильно штоле?! Сядь, не маячь! Дай представление посмотреть!"]

А практические советы - примеры накидай в корзину с попкорном......
=======================
Это где-то по URL - лежат два файла
один exe другой к примеру текстовый
в текстовом написано (номер версии)6
его то мы и читаем........
и если у нас такой же файл рядом с прогой, но в нём записано 5
то мы качаем оба етих файла в папку программы

На сайте XML файл с версией программы. Программа на клиенте считывает XML файло. Если версия программы отличается от теккущей - тогда качаем и переустанавливаем.
А в чем загвоздка - в считывании или скачивании?

нужен exe-шник.
можно и скриптами - но веры в них нет

зачем усложнять?
я делаю это all right

надо два exe
1й запускается и проверяет версию программы в свойствах файла второго exe через API getfileinfo если память мне не изменяет и лезет в интернет на фтп и смотрит там свойства той копии если они разные, то скачивает на место второго файла новую версию и запускает её, а сам - самоуничтожается... я ничего уже здесь придумать не могу. да не очкуйте вы! мы так тыщу раз делали!

Private Type VS_FIXEDFILEINFO    dwSignature As Long    dwStrucVersionl As Integer     '  e.g. = &h0000 = 0    dwStrucVersionh As Integer     '  e.g. = &h0042 = .42    dwFileVersionMSl As Integer    '  e.g. = &h0003 = 3    dwFileVersionMSh As Integer    '  e.g. = &h0075 = .75    dwFileVersionLSl As Integer    '  e.g. = &h0000 = 0    dwFileVersionLSh As Integer    '  e.g. = &h0031 = .31    dwProductVersionMSl As Integer '  e.g. = &h0003 = 3    dwProductVersionMSh As Integer '  e.g. = &h0010 = .1    dwProductVersionLSl As Integer '  e.g. = &h0000 = 0    dwProductVersionLSh As Integer '  e.g. = &h0031 = .31    dwFileFlagsMask As Long        '  = &h3F for version "0.42"    dwFileFlags As Long            '  e.g. VFF_DEBUG Or VFF_PRERELEASE    dwFileOS As Long               '  e.g. VOS_DOS_WINDOWS16    dwFileType As Long             '  e.g. VFT_DRIVER    dwFileSubtype As Long          '  e.g. VFT2_DRV_KEYBOARD    dwFileDateMS As Long           '  e.g. 0    dwFileDateLS As Long           '  e.g. 0 End Type Private Declare Function GetFileVersionInfo Lib "Version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwhandle As Long, ByVal dwlen As Long, lpData As Any) As Long Private Declare Function GetFileVersionInfoSize Lib "Version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long Private Declare Function VerQueryValue Lib "Version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Any, puLen As Long) As Long Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, ByVal Source As Long, ByVal length As Long) Public Function FileVerInfo(ByVal FullFileName As String)    Dim rc As Long, lDummy As Long, sBuffer() As Byte    Dim lBufferLen As Long, lVerPointer As Long, udtVerBuffer As VS_FIXEDFILEINFO    Dim lVerbufferLen As Long    'проверка файла    lBufferLen = GetFileVersionInfoSize(FullFileName, lDummy)    If lBufferLen < 1 Then Exit Function 'MsgBox "No Version Info available!": Exit Function    'сохранение в структуру udtVerBuffer    ReDim sBuffer(lBufferLen)    rc = GetFileVersionInfo(FullFileName, 0&, lBufferLen, sBuffer(0))    rc = VerQueryValue(sBuffer(0), "\", lVerPointer, lVerbufferLen)    MoveMemory udtVerBuffer, lVerPointer, Len(udtVerBuffer)    'версия файла exe_main.exe    FileVerInfo = Format$(udtVerBuffer.dwFileVersionMSh) & "." & Format$(udtVerBuffer.dwFileVersionMSl) & "." & Format$(udtVerBuffer.dwFileVersionLSh) & "." & Format$(udtVerBuffer.dwFileVersionLSl) End Function

Свойства файла на компе - это не трудно проверить.
===================================
Извините -
а вот это лезет в интернет на фтп и смотрит там свойства той копии
самая непонятка и есть
как туда лезть????
======================================
У мну - два вопроса
Как реализовывается подключение к файлу в интернете
И второй - как его оттуда качать
======================================
Моя про это ничего не знает..........
как это всё работает?????

для vb6 приемлемо-ли?

и еще

конечно - этот пример частный случай а не общий подход

с командным файлом UpdateList.txt примерно так и сделано было

Всем спасибо !
поле для размышлений есть :)