VPF::Обновление через Интернет - Форум программистов

Devich

Дата 7.10.2004, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.10.2004

Репутация: нет
Всего: нет

Нужно сделать, чтобы программа обновляла определенные файлы через интернет. Как на васике реализовать закрузку файла из инета (инет постоянно подключен). И если кто-то знает, как сделать что-нибудь подобное в екселе (на ВБ), подскажите плиз.

Akina

Дата 7.10.2004, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

MSDN->Wnet Library

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

~FoX~

Дата 14.10.2004, 08:36 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

Бросаем на форму компанент под названием Microsoft Internet Transfer Control 6.0 и

Код


Private Sub Command2_Click()
 a$ = Inet1.OpenURL("http://www.narod.ru/vvbdb.txt", icString)
 z$ = App.Major & "." & App.Minor & "." & App.Revision
 a$ = Mid(a$, 1, 10)
 If a$ = "" Then
    MsgBox "Сервер недоступен", vbOKOnly, "Обновление программы"
Exit Sub
End If
If a$ > z$ Then
Y$ = "Появилась новая версия. Загрузить?"
b$ = MsgBox(Y$, vbYesNo, "Обновление")
If b$ = 6 Then ShellExecute 0, "Open", "http://www.ru.ru/vbdbkmp.zip", vbNullString, Empty, 0

Else
  MsgBox "На сервере старая версия"
End If
End Sub

Сдесь сравнение идет по датам, где a$- дата из тхт вайла на сервере, z$ - определение даты самой программы

Это сообщение отредактировал(а) ~FoX~ - 14.10.2004, 08:40

--------------------

…множественность никогда не следует полагать без необходимости…

Devich

Дата 14.10.2004, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.10.2004

Репутация: нет
Всего: нет

Большое спасибо.

KEKC

Дата 18.5.2005, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.5.2005

Репутация: нет
Всего: нет

...

Neuzheli vsjo tak prosto smile

...
Ja svjazyvalsja s internetom cherez <title>! smile

Vstavljal objekt Microsoft Internet Controls i delal proceduru Web1_TitleChange smile

Nu vsjo... Nastupila era internet igr!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »