Главная страницаОбратная связьКарта сайта

Проверка новых версий программы через Интернет



'Прежде всего вам нужен, к примеру, текстовой файл в Инете, в котором лежит
'необходимая информация о версии файла (в данном примере всего лишь дата
'последнего изменения программы - 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 - "Проверка новых версий программы через Интернет", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info