VB.net 2005 中一款工具用到的函数

产生一个临时文件名
TempFN = System.IO.Path.GetTempPath() + "$Baidu" & Format(Int(Rnd() * 10000), "0000") & ".!!!"

下载一个文件，并保存
My.Computer.Network.DownloadFile(BlogLink, TempFN, "", "", False, 100000, True)

从网上获取一个文件流
Dim MyWebClient As WebClient = New WebClient()
Dim Response As Stream = MyWebClient.OpenRead("http://hi.baidu.com" & ReLink(CurrLink))
‘流操作...
Response.Close()

将字节组转为字符串
SetpvS = System.Text.Encoding.Default.GetString(SetpvB())

获取程序的相关信息
My.Application.Info.Version.Major.ToString

特殊字符获取
ControlChars.CrLf.ToString

用默认浏览器打开一个页面
System.Diagnostics.Process.Start("http://hi.baidu.com" & ReLink(e.RowIndex + 1))

根据窗体是否最小化来控制托盘图标显示/隐藏
Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            TIcon.Visible = True
            Me.ShowInTaskbar = False
        Else
            TIcon.Visible = False
            Me.ShowInTaskbar = True
        End If
End Sub