Суббота, 22 Июня 2024, 16:56

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Обновления на 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
Изобретатель велосипедов
Сейчас нет на сайте
Quote (DasTem)
что это?!

У тебя непонятно написано. Я сначала подумал, что нужно обновить сам 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
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг