Dúvida em código

Postado Setembro 16, 2014 10 anos

Estou arrumando esse código para atualizar e baixar os arquivos Tibia.dat e Tibia.spr para o launcher, mais toda vez que abro o aplicativo da um erro estranho e eu não vejo nada de errado no code (--

Imports System.Security.Cryptography
Imports System.Net
Public Class Form1
    WithEvents wb As New WebClient
    Dim _arquivos As String
    Dim int As Integer = 0
    Private Function getFileMd5(ByVal filePath As String) As String
        Dim File() As Byte = System.IO.File.ReadAllBytes(filePath)
        Dim Md5 As New MD5CryptoServiceProvider()
        Dim byteHash() As Byte = Md5.ComputeHash(File)
        Return Convert.ToBase64String(byteHash)
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\filehash.txt") Then
            status.Text = "Baixando lista de atualizações"
            wb.DownloadFileAsync(New Uri("http://pokexmostyer.meximas.com/filehash.txt"), Application.StartupPath & "\filehash.txt")
            VerificarArquivos()
        Else
            VerificarArquivos()
        End If
    End Sub
 
    Private Sub wb_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wb.DownloadFileCompleted
        int += 1
        If _arquivos.Contains("[Tibia]") Then
            status.Text = "Baixando Tibia.dat"
            wb.DownloadFileAsync(New Uri("pokexmostyer.meximas.com/Tibia.dat"), Application.StartupPath & "\Tibia.dat")
        ElseIf _arquivos.Contains("[Tibia]") Then
            status.Text = "Baixando Tibia.spr"
            wb.DownloadFileAsync(New Uri("pokexmostyer.meximas.com/Tibia.spr"), Application.StartupPath & "\Tibia.spr")
        End If
    End Sub
 
    Private Sub wb_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wb.DownloadProgressChanged
        ProgressBar1.Maximum = e.TotalBytesToReceive
        ProgressBar1.Value = e.BytesReceived
    End Sub
 
    Private Sub VerificarArquivos()
        Try
            Dim _filehash As String() = System.IO.File.ReadAllLines(Application.StartupPath & "\filehash.txt")
            If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\Tibia.dat") Then
                _arquivos &= "[Tibia]"
            Else
                If Not getFileMd5(Application.StartupPath & "\Tibia.dat") = _filehash(1) Then
                    _arquivos &= "[Tibia]"
                End If
            End If
            If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\Tibia.spr") Then
                _arquivos &= "[Tibia]"
            Else
                If Not getFileMd5(Application.StartupPath & "\Tibia.spr") = _filehash(4) Then
                    _arquivos &= "[Tibia]"
                End If
            End If
            Call wb_DownloadFileCompleted(Nothing, Nothing)
        Catch ex As Exception
        End Try
    End Sub
End Class

Citar

Mention