C#和VB开发更新功能

```
public void Button1_Click(object sender, EventArgs e)
{
	WebClient webClient = new WebClient();
	string address = "https://blog.csdn.net/manlyan/article/details/113485963";
	try
	{
		Stream stream = webClient.OpenRead(address);
		string text = new StreamReader(stream, Encoding.GetEncoding("utf-8")).ReadToEnd();
		stream.Close();
		stream.Dispose();
		int num = text.IndexOf("快点公文助手最新版本");
		if (num >= 0)
		{
			Version v = new Version(text.Substring(num + 18, 7));
			Version version = Assembly.GetExecutingAssembly().GetName().Version;
			try
			{
				if (v > version)
				{
					if (MessageBox.Show("检测到更新，点击确定后跳转下载。", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk) == DialogResult.OK)
					{
						Process.Start("https://blog.csdn.net/manlyan/article/details/113485963");
					}
				}
				else
				{
					MessageBox.Show("当前已是最新版本", "更新", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
				}
				goto IL_F0;
			}
			catch
			{
				MessageBox.Show("检测错误，点击确定后自动跳转到网页", "提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
				Process.Start("https://blog.csdn.net/manlyan/article/details/113485963");
				goto IL_F0;
			}
		}
		MessageBox.Show("检测错误，点击确定后自动跳转到网页", "提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
		Process.Start("https://blog.csdn.net/manlyan/article/details/113485963");
		IL_F0:;
	}
	catch
	{
		MessageBox.Show("检测错误，请手动打开网页更新：https://blog.csdn.net/manlyan/article/details/113485963", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
	}
}
```

```
Public Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim webClient As WebClient = New WebClient()
    Dim address As String = "https://blog.csdn.net/manlyan/article/details/113485963"

Try
        Dim stream As Stream = webClient.OpenRead(address)
        Dim text As String = New StreamReader(stream, Encoding.GetEncoding("utf-8")).ReadToEnd()
        stream.Close()
        stream.Dispose()
        Dim num As Integer = text.IndexOf("快点公文助手最新版本")

If num >= 0 Then
            Dim v As Version = New Version(text.Substring(num + 18, 7))
            Dim version As Version = Assembly.GetExecutingAssembly().GetName().Version

Try

If v > version Then

If MessageBox.Show("检测到更新，点击确定后跳转下载。", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk) = DialogResult.OK Then
                        Process.Start("https://blog.csdn.net/manlyan/article/details/113485963")
                    End If
                Else
                    MessageBox.Show("当前已是最新版本", "更新", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                End If

GoTo IL_F0
            Catch
                MessageBox.Show("检测错误，点击确定后自动跳转到网页", "提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                Process.Start("https://blog.csdn.net/manlyan/article/details/113485963")
                GoTo IL_F0
            End Try
        End If

MessageBox.Show("检测错误，点击确定后自动跳转到网页", "提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        Process.Start("https://blog.csdn.net/manlyan/article/details/113485963")
IL_F0:
    Catch
        MessageBox.Show("检测错误，请手动打开网页更新：https://blog.csdn.net/manlyan/article/details/113485963", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Try
End Sub

```