VB.Net程序设计:AutoUpdater软件自动更新-源代码。
界面和配置文件参考：
http://blog.csdn.net/linjimu/archive/2009/10/27/4733283.aspx
XmlFiles.vb
Imports System Imports System.IO Imports System.Xml Public Class XmlFiles Inherits XmlDocument Private _xmlFileName As String Public Property XmlFileName() As String Get Return _xmlFileName End Get Set(ByVal value As String) _xmlFileName = value End Set End Property Public Sub New(ByVal xmlFile As String) XmlFileName = xmlFile Me.Load(XmlFileName) End Sub '''<summary> '''给定一个节点的xPath表达式并返回一个节点 '''</summary> '''<param name="xPath"></param> '''<returns></returns> Public Function FindNode(ByVal xPath As String) As XmlNode Dim xmlNode As XmlNode = Me.SelectSingleNode(xPath) Return xmlNode End Function '''<summary> '''给定一个节点的xPath表达式返回其值 '''</summary> '''<param name="xPath"></param> '''<returns></returns> Public Function GetNodeValue(ByVal xPath As String) As String Dim xmlNode As XmlNode = Me.SelectSingleNode(xPath) Return xmlNode.InnerText End Function '''<summary> '''给定一个节点的表达式返回此节点下的孩子节点列表 '''</summary> '''<param name="xPath"></param> '''<returns></returns> Public Function GetNodeList(ByVal xPath As String) As XmlNodeList Dim nodeList As XmlNodeList = Me.SelectSingleNode(xPath).ChildNodes Return nodeList End Function End Class
DownloadFileInfo.vb
Public Class DownloadFileInfo
Private m_fileName As String = ""
Private m_lastver As String = ""
Public Property FileName() As String
Get
Return m_fileName
End Get
Set(ByVal value As String)
m_fileName = value
End Set
End Property
Public Property LastVer() As String
Get
Return m_lastver
End Get
Set(ByVal value As String)
m_lastver = value
End Set
End Property
Public Sub New(ByVal fname As String,ByVal fver As String)
Me.m_fileName = fname
Me.m_lastver = fver
End Sub
End Class