VB.Net程序设计:AutoUpdater软件自动更新-源代码

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB.Net程序设计:AutoUpdater软件自动更新-源代码，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

VB.Net程序设计:AutoUpdater软件自动更新-源代码。

界面和配置文件参考：

http://blog.csdn.net/linjimu/archive/2009/10/27/4733283.aspx

XmlFiles.vb

  1. Imports System
  2. Imports System.IO
  3. Imports System.Xml
  4.  
  5. Public Class XmlFiles
  6.     Inherits XmlDocument
  7.  
  8.     Private _xmlFileName As String
  9.  
  10.     Public Property XmlFileName() As String
  11.         Get
  12.             Return _xmlFileName
  13.         End Get
  14.         Set(ByVal value As String)
  15.             _xmlFileName = value
  16.         End Set
  17.     End Property
  18.  
  19.     Public Sub New(ByVal xmlFile As String)
  20.         XmlFileName = xmlFile
  21.         Me.Load(XmlFileName)
  22.     End Sub
  23.  
  24.     '''<summary> 
  25.     '''给定一个节点的xPath表达式并返回一个节点 
  26.     '''</summary> 
  27.     '''<param name="xPath"></param> 
  28.     '''<returns></returns> 
  29.     Public Function FindNode(ByVal xPath As String) As XmlNode
  30.         Dim xmlNode As XmlNode = Me.SelectSingleNode(xPath)
  31.         Return xmlNode
  32.     End Function
  33.  
  34.     '''<summary> 
  35.     '''给定一个节点的xPath表达式返回其值 
  36.     '''</summary> 
  37.     '''<param name="xPath"></param> 
  38.     '''<returns></returns> 
  39.     Public Function GetNodeValue(ByVal xPath As String) As String
  40.         Dim xmlNode As XmlNode = Me.SelectSingleNode(xPath)
  41.         Return xmlNode.InnerText
  42.     End Function
  43.  
  44.     '''<summary> 
  45.     '''给定一个节点的表达式返回此节点下的孩子节点列表 
  46.     '''</summary> 
  47.     '''<param name="xPath"></param> 
  48.     '''<returns></returns> 
  49.     Public Function GetNodeList(ByVal xPath As String) As XmlNodeList
  50.         Dim nodeList As XmlNodeList = Me.SelectSingleNode(xPath).ChildNodes
  51.         Return nodeList
  52.     End Function
  53.  
  54. End Class


DownloadFileInfo.vb


  1. Public Class DownloadFileInfo
  2.  
  3.     Private m_fileName As String = ""
  4.     Private m_lastver As String = ""
  5.  
  6.     Public Property FileName() As String
  7.         Get
  8.             Return m_fileName
  9.         End Get
  10.         Set(ByVal value As String)
  11.             m_fileName = value
  12.         End Set
  13.     End Property
  14.  
  15.     Public Property LastVer() As String
  16.         Get
  17.             Return m_lastver
  18.         End Get
  19.         Set(ByVal value As String)
  20.             m_lastver = value
  21.         End Set
  22.     End Property
  23.  
  24.     Public Sub New(ByVal fname As String,ByVal fver As String)
  25.         Me.m_fileName = fname
  26.         Me.m_lastver = fver
  27.     End Sub
  28.  
  29. End Class

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积