Как автоматически обновлять программы. - Visual Basic .NET - Ответ 1918743

Public Class Form1
    Dim XML As New System.Xml.XmlDocument
    Dim XML2 As New System.Xml.XmlDocument
    Private Structure Programms
        Dim Name As String
        Dim text As String
        Dim directory As String
        Dim ICO As String
        Dim files(,) As String
        Dim setupURL As String
    End Structure
    Dim Programs() As Programms
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        XML.Load(Application.StartupPath & "\Update.xml")
        XML2.Load(Application.StartupPath & "\Install.xml")
        Dim x As Integer = 0
        Dim i As Integer = 0
        Dim Names(99) As Programms
        Dim a(XML.SelectNodes("Programms/Program").Count - 1) As Programms
        Programs = a
        For Each xm As System.Xml.XmlElement In XML.SelectNodes("Programms/Program")
            Dim name As String = xm.GetElementsByTagName("name")(0).InnerText
            For Each xm2 In XML2.SelectNodes("Programms/Program")
                If xm2.GetElementsByTagName("name")(0).InnerText = name Then
                    'Проверка обновлений
                    Update(xm, xm2, x, name)
                    x += 1
                    GoTo m1
                End If
            Next
            If i = 100 Then GoTo m1
            Names(i).Name = name
            Names(i).ICO = xm.GetElementsByTagName("ico")(0).InnerText
            Names(i).setupURL = xm.GetElementsByTagName("SetupURL")(0).InnerText
            Names(i).text = xm.GetElementsByTagName("text")(0).InnerText
            i += 1
m1:
        Next
        For Each pr As Programms In Programs
            If pr.Name = Nothing Then Exit For
            ListView1.Items.Add(pr.Name)
        Next
        For Each pr2 As Programms In Names
            If pr2.Name = Nothing Then Exit For
            ListView1.Items.Add(pr2.Name)
        Next
    End Sub
    Private Overloads Sub Update(ByVal xm As System.Xml.XmlElement, ByVal xm2 As System.Xml.XmlElement, ByRef ind As Integer, ByVal name As String)
        Dim files(xm.GetElementsByTagName("file").Count - 1, 1) As String
        Dim Directory As String = xm2.GetElementsByTagName("directory")(0).InnerText
        Dim x As Integer = 0
        For Each xm3 As System.Xml.XmlElement In xm.GetElementsByTagName("file")
            Dim str As String = (xm3.Attributes.GetNamedItem("name").Value)
            Dim v1 As System.Diagnostics.FileVersionInfo
            Try
                v1 = System.Diagnostics.FileVersionInfo.GetVersionInfo(Directory + str)
            Catch
            End Try
            Dim v2 As String = (xm3.GetElementsByTagName("version")(0).InnerText)
            'xm2.SelectNodes("/[@name=" + str + "]")(0).SelectNodes("version")
            If Not (v1 Is Nothing) Then
                If v1.ProductVersion <> v2 Then
                    Dim url As String = (xm3.GetElementsByTagName("url")(0).InnerText)
                    files(x, 0) = url
                    files(x, 1) = Directory + str
                    x += 1
                End If
            Else
                Dim url As String = (xm3.GetElementsByTagName("url")(0).InnerText)
                files(x, 0) = url
                files(x, 1) = Directory + str
                x += 1
            End If
 
        Next
        If files(0, 0) = Nothing Then
            ind -= 1
        Else
            Programs(ind).text = xm.GetElementsByTagName("text")(0).InnerText
            Programs(ind).Name = name
            Programs(ind).files = files
            Programs(ind).directory = Directory
            Programs(ind).ICO = xm.GetElementsByTagName("ico")(0).InnerText
        End If
    End Sub
End Class