Доработка утилиты обновления программы из FAQ

@ligaji · Регистрация: 07.03.2014

Студворк — интернет-сервис помощи студентам

Пишу лаунчер, в котором есть поддержка обновления игры по этой статье
https://www.cyberforum.ru/post3261467.html

В программировании понимаю мало, но пытаюсь разбираться.
Есть несколько вопросов, которые вообще не могу решить.

Вопросы и идеи по их реализации:

Кликните здесь для просмотра всего текста

а) Отображение общего объёма всех файлов, которые будут обновлены
Думаю дополнительно объявить

VB.NET
1
2
3
Private Structure StringList
    Dim FileWeight As String
End Structure

И в UpdateInfo.upd для каждого файла добавить его объём. После высчитывания файлов с разными хэшами, программа суммирует указанный объём этих файлов. Это и будет общий объём

б) Отображение объёма загруженных файлов
Идей вообще нет, даже не знаю куда копать. Не могу найти, где WebClient может отдать количество скачавшихся файлов.

в) Отображение процента загруженных файлов
Это без проблем - пункт б) делим на а) и умножаем на 100%. Помещаем это в Timer с интервалом 1000

г) Как реализовать изменение прогресс бара не для прогресса скачивания каждого файла, а для общего прогресса скачивания всех файлов.
Идей также нет.

Надеюсь на Вашу помощь, ибо я сам не справлюсь

@CANEKZUBOV · 07.03.2014, 22:10

Оййй,нелехко это,ты попробуй поискать исходники http://vbbook.ru/vb.net/,там их много мож чё найдёшь

@ligaji · 07.03.2014, 22:34 **[ТС]**

CANEKZUBOV, спасибо, дружище. Сейчас что-нибудь поищу.

А пока мне удалось справиться с задачей а)

Кликните здесь для просмотра всего текста

1. В файл UpdateInfo.upd в каждую строчку добавляем делиметр [cell] и после него ставим размер файла.

Кликните здесь для просмотра всего текста

2. Объявляем

VB.NET
1
Friend download_weight As Integer

Кликните здесь для просмотра всего текста

3. Находим

VB.NET
1
2
3
4
5
6
Private Structure StringList
    Dim ServerPath As String
    Dim ServerHash_MD5 As String
    Dim LocalPath As String
    Dim LocalHash_MD5 As String
End Structure

Заменяем на

VB.NET
1
2
3
4
5
6
7
Private Structure StringList
    Dim ServerPath As String
    Dim ServerHash_MD5 As String
    Dim LocalPath As String
    Dim LocalHash_MD5 As String
    Dim FileWeight As String
End Structure

Кликните здесь для просмотра всего текста

4. Находим

VB.NET
1
2
3
newSL.ServerPath = ss.GetValue(0)
newSL.ServerHash_MD5 = ss.GetValue(1)
newSL.LocalPath = Me.RootFolder & ss.GetValue(2)

Заменяем на

VB.NET
1
2
3
4
newSL.ServerPath = ss.GetValue(0)
newSL.ServerHash_MD5 = ss.GetValue(1)
newSL.LocalPath = Me.RootFolder & ss.GetValue(2)
newSL.FileWeight = ss.GetValue(3)

Кликните здесь для просмотра всего текста

5. Находим

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Add_LocalHashes_makeDirs()
    For Each SL As StringList In Me.OriginString
        SL.LocalHash_MD5 = Me.GetHash(SL.LocalPath)
        If Not SL.ServerHash_MD5.Equals(SL.LocalHash_MD5) Then
            Me.ResultString.Add(SL)
            If IO.Directory.Exists(IO.Path.GetDirectoryName(SL.LocalPath)) = False Then
                Try
                    IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(SL.LocalPath))
                Catch ex As Exception
                    Me.Errorlog = Me.Errorlog & ex.Message & vbCrLf & "----------" & vbCrLf
                End Try
            End If
        End If
    Next
End Sub

Заменяем на

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Add_LocalHashes_makeDirs()
    For Each SL As StringList In Me.OriginString
        SL.LocalHash_MD5 = Me.GetHash(SL.LocalPath)
        If Not SL.ServerHash_MD5.Equals(SL.LocalHash_MD5) Then
            download_weight = download_weight + SL.FileWeight
            Me.ResultString.Add(SL)
            If IO.Directory.Exists(IO.Path.GetDirectoryName(SL.LocalPath)) = False Then
                Try
                    IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(SL.LocalPath))
                Catch ex As Exception
                    Me.Errorlog = Me.Errorlog & ex.Message & vbCrLf & "----------" & vbCrLf
                End Try
            End If
        End If
    Next
End Sub

Кликните здесь для просмотра всего текста

6. В блок

VB.NET
1
2
3
Private Sub BeginDownload(ByVal CN As Integer)
 
End Sub

добавляем

VB.NET
1
lb_downstatusbar.Invoke(Sub() lb_downstatusbar.Text = Math.Round(download_weight / 1024 / 1024, 2) & " МБ")

Если программа работает в одном потоке, то можно просто

VB.NET
1
lb_downstatusbar.Text = Math.Round(download_weight / 1024 / 1024, 2) & " МБ"

lb_downstatusbar - лэйбл

@CANEKZUBOV · 08.03.2014, 00:13

я бы точно не додумался=)

Добавлено через 3 минуты

Сообщение от ligaji

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Add_LocalHashes_makeDirs()
 For Each SL As StringList In Me.OriginString
 SL.LocalHash_MD5 = Me.GetHash(SL.LocalPath)
 If Not SL.ServerHash_MD5.Equals(SL.LocalHash_MD5) Then
 Me.ResultString.Add(SL)
 If IO.Directory.Exists(IO.Path.GetDirectoryName(SL.LocalPath)) = False Then
 Try
 IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(SL.LocalPath))
 Catch ex As Exception
 Me.Errorlog = Me.Errorlog & ex.Message & vbCrLf & "----------" & vbCrLf
 End Try
 End If
 End If
 Next
End Sub

А что делает этот код?) я так понял он чтото с хеш суммой делает? просто я давно пытаюсь узнать как выполнить поиск файла в определённом каталоге за его хеш суммой ,мож ты знаешь как это сделать?)))

@ligaji · 08.03.2014, 20:57 **[ТС]**

CANEKZUBOV, этот код проверяет совпадение хэша файла на сервере и в локальном каталоге и в зависимости от этого делает разные действия.

В твоём случае нужно действовать так: В цикле высчитывай хэш каждого файла по очереди и проверяй совпадает ли он с введённым хэшем. Если да, то файл найден.

@CANEKZUBOV · 11.03.2014, 23:27

балин=) большое спс !!!!!!!!!!!!!!

Добавлено через 56 минут
Урааааа я предумал=)

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
   Me.ListBox1.Items.Clear()
        For Each foundImage As String In _
   My.Computer.FileSystem.GetFiles("K:\", FileIO.SearchOption.SearchAllSubDirectories, "111111.exe")
            Dim RD As FileStream = New FileStream(foundImage, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
            RD = New FileStream(foundImage, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
            Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider
            md5.ComputeHash(RD)
            RD.Close()
            Dim hash As Byte() = md5.Hash
            Dim SB As StringBuilder = New StringBuilder
            Dim HB As Byte
            For Each HB In hash
                SB.Append(String.Format("{0:X1}", HB))
            Next
            If SB.ToString = "2A6055E46E93F4AC4EA3B2133E657C90" Then
                ListBox1.Items.Add("1111111111")
            Else
                ListBox1.Items.Add("00000000")
            End If
        Next

от только как сделать следующее , хеш сумма не одна а несколько, и все они храняться в текстовом документе,вопрос,как сделать что бы программа по очереди вытаскивала файлы из текстового документа хеш суммы и проверяла есть ли такие файлы??????????????

@kOS_77 · 12.03.2014, 21:35

Как обычно

1. Открываем текстовый файл
2. Считывает строку с хешем
3. Ищем такой файл
3.1 если находим то...
3.2 если не находим то...
4. Считываем следующую строку в файле...

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@CANEKZUBOV 77 / 7 / 2 Регистрация: 15.02.2014 Сообщений: 301
	07.03.2014, 22:10
	Оййй,нелехко это,ты попробуй поискать исходники http://vbbook.ru/vb.net/,там их много мож чё найдёшь 1

@ligaji 0 / 0 / 1 Регистрация: 07.03.2014 Сообщений: 4
	08.03.2014, 20:57 [ТС]
	CANEKZUBOV, этот код проверяет совпадение хэша файла на сервере и в локальном каталоге и в зависимости от этого делает разные действия. В твоём случае нужно действовать так: В цикле высчитывай хэш каждого файла по очереди и проверяй совпадает ли он с введённым хэшем. Если да, то файл найден. 0

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	12.03.2014, 21:35
	Как обычно 1. Открываем текстовый файл 2. Считывает строку с хешем 3. Ищем такой файл 3.1 если находим то... 3.2 если не находим то... 4. Считываем следующую строку в файле... 0

Доработка утилиты обновления программы из FAQ

Решение