有没有擅长vb.net的大触 求一段开机自动检查升级的代码

leonsp45

我不打算经过button1_click 而是开机直接在tray bar那里自动启动检查升级

搞了一个星期多 一直报错。。。只能求人了

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        CheckForUpdates()
    End Sub
    Public Sub CheckForUpdates()
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://abcde/version.txt?dl=0")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim newestversion As String = sr.ReadToEnd()
        Dim currentversion As String = Application.ProductVersion
        If newestversion.Contains(currentversion) Then
            Label1.Text = ("You are up todate!")
        Else
            Label1.Text = ("There are new updates are ready to download")
            WebBrowser1.Navigate("https://fghijk/autoupdate.exe)
        End If
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub
End Class