VBNet - Форум - Обновление

Вопрос: Обновление Добавлено: 29.07.09 08:50

Автор вопроса: ☺♣FIO♣☺

Я залил прогу на койнить сервак. А программа должна по адресу получить имя файла(версию) и загрузить если новее. И ещё какие серваки имеют прямую ссылку?
Ответить

Ответы Всего ответов: 22

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #1	Добавлено: 29.07.09 09:42
	И ещё какие серваки имеют прямую ссылку? Платные Ответить

Номер ответа: 2 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #2	Добавлено: 29.07.09 10:40
	Мне нужно, чтоб моя прога обновлялась через инет, а сервак я сам найду. Ответить

Номер ответа: 3 Автор ответа: Starkiller ICQ: 123123 Вопросов: 3 Ответов: 14	Web-сайт: google.ru/ Профиль \| \| #3	Добавлено: 29.07.09 11:35
	Создай файл info.txt к примеру. Туда напиши версию. Еси версия > версии проги то загружать proga.exe Хостинг мона любой юзать. Ответить

Номер ответа: 4 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #4	Добавлено: 29.07.09 12:40
	а как? Ответить

Номер ответа: 5 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #5	Добавлено: 29.07.09 14:36
	ну в общих чертах: Private Sub GetUpdate() Dim client As New Net.WebClient Dim currentversion, lastversion As String Try lastversion = client.DownloadString("http://yourfuckingsite.ru/version/last.txt") Catch ex As Exception client.Dispose() MsgBox("Не удалось связаться с сервером.") Exit Sub End Try client.Dispose() Dim fi As FileVersionInfo = FileVersionInfo.GetVersionInfo("yourfuckingprogram.exe") currentversion = fi.FileVersion If lastversion > currentversion Then client = New Net.WebClient Try client.DownloadFile("http://yourfuckingsite.ru/distribs/" + lastversion + "/yourfuckingprogram.exe", "update.exe") Catch ex As Exception MsgBox("Не удалось связаться с сервером.") client.Dispose() Exit Sub End Try client.Dispose() Dim tmppath As String = IO.Path.GetTempPath + "/updater.bat" Dim writer As New IO.StreamWriter(tmppath, False, System.Text.Encoding.GetEncoding(1251)) writer.WriteLine("cd " + IO.Path.GetDirectoryName(IO.Path.GetFullPath("yourfuckingprogram.exe"))) writer.WriteLine(":1") writer.WriteLine("del /Q yourfuckingprogram.exe") writer.WriteLine("if exist yourfuckingprogram.exe goto 1") writer.WriteLine("ren update.exe yourfuckingprogram.exe") writer.WriteLine("yourfuckingprogram.exe") writer.Close() writer.Dispose() 'дальше либо в событии закрытия проги пишем, либо насильно щас прогу закроем, и откроем обновленную, для этого пишем: Dim procStartInfo As New ProcessStartInfo("cmd", "/C """ + tmppath + """") procStartInfo.UseShellExecute = True procStartInfo.CreateNoWindow = True Dim proc As New Process proc.StartInfo = procStartInfo proc.Start() End End If End Sub Ответить

Номер ответа: 6 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #6	Добавлено: 29.07.09 18:01
	ОГРОМНОЕ СПС!!! Ответить

Номер ответа: 7 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #7	Добавлено: 29.07.09 18:08
	А какнить можно отображать сколько % загрузки? Ответить

Номер ответа: 8 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #8	Добавлено: 29.07.09 23:08
	можно канешна, ищи сам) Ответить

Номер ответа: 9 Автор ответа: Starkiller ICQ: 123123 Вопросов: 3 Ответов: 14	Web-сайт: google.ru/ Профиль \| \| #9	Добавлено: 30.07.09 10:37
	Dim tmppath As String = IO.Path.GetTempPath + "/updater.bat" Мда. А зачем батники? 0_^ Ответить

Номер ответа: 10 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #10	Добавлено: 30.07.09 11:25
	Ща это модно)) Ответить

Номер ответа: 11 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #11	Добавлено: 30.07.09 13:33
	у батников основные возможности - работа с файлами и общение с юзером... Ответить

Номер ответа: 12 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #12	Добавлено: 30.07.09 14:01
	вообще-то, чтобы из проги удалить саму себя, батник это самый распространенный и простой способ, умнег Ответить

Номер ответа: 13 Автор ответа: Starkiller ICQ: 123123 Вопросов: 3 Ответов: 14	Web-сайт: google.ru/ Профиль \| \| #13	Добавлено: 30.07.09 19:06
	ИМХО лучше так. Качаем файл, запускаем. Новая версия удаляет старую и все. Просто часто в офисах, больницах, школах, коледжах батники (cmd.exe) отключают Ответить

Номер ответа: 14 Автор ответа: DesT ICQ: 376533105 Вопросов: 1 Ответов: 24	Профиль \| \| #14	Добавлено: 01.08.09 02:21
	можно создать отдельный поток,, приатачить к какому нибудь системному процессу, в этом потоке завершить поток программы, удалить файл, а затем уже и сам поток. готово Ответить

Номер ответа: 15 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #15	Добавлено: 01.08.09 09:49
	можно создать отдельный поток,, приатачить к какому нибудь системному процессу, в этом потоке завершить поток программы, удалить файл, а затем уже и сам поток. готово Бред. Программа же все равно будет открыта. Ответить

Страница: 1 | 2 |