'Прежде всего вам нужен, к примеру, текстовой файл в Инете, в котором лежит 'необходимая информация о версии файла (в данном примере всего лишь дата 'последнего изменения программы - 2001_07_15). Также вам необходимо 'расположить на форме элемент Inet1 (меню Project|Components - Microsoft 'Internet Transfer Control 6.0) а также элемент CommandButton
Private Sub Command1_Click() a$ = Inet1.OpenURL("http://sharig.webzone.ru/version.txt", icString) 'поскольку мы точно знаем, сколько символов в новой дате, то... a$ = Mid(a$, 1, 10) If a$ = "" Then MsgBox "Сервер недоступен, попробуйте загрузить попозже.", vbOKOnly, "Обновление программы" Exit Sub End If 'вы можете предусмотреть (самостоятельно) с чем сравнивать новую дату (a$) с 'предыдущей ("2001-12-14") If a$ <> "2001-12-14" Then Y$ = "На сервере появилась новая версия программы. Хотите загрузить?" b$ = MsgBox(Y$, vbYesNo, "Обновление программы") 'запуск броузера к странице загрузки программы If b$ = 6 Then Shell ("C:\Program Files\Internet Explorer\IExplore -nohome" + "http://sharig.webzone.ru/ IndexAbout.htm"), vbMaximizedFocus Else MsgBox "На сервере старая версия" End If End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Проверка новых версий программы через Интернет", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!