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