|
Обновления на VB6
|
|
| DasTem | Дата: Суббота, 11 Августа 2012, 13:49 | Сообщение # 1 |
почетный гость
Сейчас нет на сайте
| Как сделать обновления для программы, если на сервере version.txt и в нем 1.1, то в программе выбивалось окно "Скачайте новую версию"
если 1.0, то писало обновлений нет!
С меня огромный +
Разрабатывается браузерная онлайн игра "Династия"
|
|
|
| |
| -Mikle- | Дата: Суббота, 11 Августа 2012, 14:52 | Сообщение # 2 |
Изобретатель велосипедов
Сейчас нет на сайте
| Шестой сервиспак для VB6:
SP6
|
|
|
| |
| DasTem | Дата: Суббота, 11 Августа 2012, 15:35 | Сообщение # 3 |
|
почетный гость
Сейчас нет на сайте
| что это?!
Разрабатывается браузерная онлайн игра "Династия"
|
|
|
| |
| -Mikle- | Дата: Суббота, 11 Августа 2012, 15:42 | Сообщение # 4 |
|
Изобретатель велосипедов
Сейчас нет на сайте
|
У тебя непонятно написано. Я сначала подумал, что нужно обновить сам VB6.
|
|
|
| |
| DasTem | Дата: Воскресенье, 12 Августа 2012, 01:36 | Сообщение # 5 |
|
почетный гость
Сейчас нет на сайте
| нет, для программы обновления.
Разрабатывается браузерная онлайн игра "Династия"
|
|
|
| |
| Desert_Hunter | Дата: Воскресенье, 12 Августа 2012, 02:43 | Сообщение # 6 |
постоянный участник
Сейчас нет на сайте
| Она перестала обновляться, их попросту нет. Качай сервис пак 6 -- самое последнее обновление для VBA 6. Потом стали появляться .NET версии, которые входят в состав Visual Studio
|
|
|
| |
| Dark_Falcon | Дата: Воскресенье, 12 Августа 2012, 10:22 | Сообщение # 7 |
постоянный участник
Сейчас нет на сайте
| Тыкай
|
|
|
| |
| Тихий | Дата: Воскресенье, 12 Августа 2012, 11:49 | Сообщение # 8 |
постоянный участник
Сейчас нет на сайте
| DasTem, если я правильно понял, ты хочешь, что бы твоя программа читала твой txt файл, и если там написано новая версия программы, например "v 1.3", что бы выбивало окно с обновлением?
Тут все легко. Вот код:
Code Dim Tek As String, Ver As String
' В двох переменных будут храниться информация о версия. ТЕК - текущая версия, VER - Новая
Private Sub Form_Load()
f = FreeFile
Open App.Path & "\version.txt" For Input As #f
' открой txt файл в папке программы, где записана текущая версия проги, типа "v 1.2"
Input #f, Tek
' Это все сохраняется в переменную TEk
Close #f
Ver = Inet1.OpenURL("http:\\bestet.kiev.ua", icString)
' В другой переменной должна быть версия новой программы, которая написана на серваке! Вместо мого Bestet пропиши свой путь к txt
If Ver <> Tek Then
' если версии разные, значит выскакивает сообщение. Лучше сделай, что бы форма выскакивала, будет красивее.
MsgBox "Вышло новое обновление программы!"
End If
End Sub
Проходил медоосмотр, захожу к психологу, стоит 4 стула, он говорит сядь на средний...и кто из нас псих?
Сообщение отредактировал Тихий - Воскресенье, 12 Августа 2012, 11:51 |
|
|
| |
