Доработка утилиты обновления программы из 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. Считываем следующую строку в файле...

Новые блоги и статьи Все статьи Все блоги /
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .

@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

Решение