转：WinForm使用WebService自动升级 （VB + .Net）
转自：http://hi.baidu.com/sunward08/blog/item/cb64ac224657014dac34de2d.html
WinForm使用WebService自动升级
2009-08-08 10:49
winform程序相对web程序而言，功能更强大，编程更方便，但软件更新却相当麻烦，要到客户端一台一台地升级，面对这个实际问题，在最近的一个小项目中，本人设计了一个通过软件实现自动升级技术方案，弥补了这一缺陷，有较好的参考价值。
一、升级的好处。
长期以来，广大程序员为到底是使用Client/Server，还是使用Browser/Server结构争论不休，在这些争论当中,C/S结构的程序的可维护性差，布置困难，升级不方便，维护成本高就是一个相当重要的因素，也是那些B/S的支持者们将Client/Server结构打入地狱的一个重要原因。
现在好了，我们就在最新的基于Microsoft 的 WinForm上用WebServices来实现软件的自动升级功能。
二、升级的技术原理。
升级的原理有好几个，首先无非是将现有版本与最新版本作比较，发现最新的则提示用户是否升级。当然也有人用其它属性比较的，例如：文件大小。:) 或者更新日期。
而实现的方法呢？在VB时代，我使用的是XmlHTTP+INet控件。用XmlHTTP获取信息，用INET传输升级文件，而用一个简单的BAT文件来实现升级。
Public Sub CheckUpdate()
On Error Resume Next
Dim b As Boolean
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHttp")
XmlHttp.Open "GET", "Http://mu.5inet.net/MuAdmin/update.xml", False
XmlHttp.Send
Dim vs As String
vs = XmlHttp.responseText
If Err.Number > 0 Then
Exit Sub
End If
Dim Xml As Object
Set Xml = CreateObject("Microsoft.XmlDom")
Xml.LoadXml vs
Dim Version As String
Dim downAddr As String
Dim FSize As Long
Dim fInfo As String
Version = Xml.DocumentElement.ChildNodes(0).Text
downAddr = Xml.DocumentElement.ChildNodes(1).Text
FSize = CLng(Xml.DocumentElement.ChildNodes(2).Text)
fInfo = Xml.DocumentElement.ChildNodes(3).Text
Set Xml = Nothing
Set XmlHttp = Nothing
Dim Major As Long
Dim Minor As Long
Dim Revision As Long
Dim C() As String
C = Split(Version, ".")
Major = CLng(C(0))
Minor = CLng(C(1))
Revision = CLng(C(2))
If Major > App.Major Then
b = True
ElseIf Minor
相关文档：
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。
因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。
&n ......
'创建数据库
Private Sub Create(ByVal mdbPath As String)
If File.Exists(mdbPath) Then
Throw New Exception("目标数据库已经存在，无法创建")
......
VB下如何编写CRC校验程序
随着计算机技术的不断发展，在现代工业中，利用微机进行数据通讯的工业控制应用得也越来越广泛。由于传输距离、现场状况等诸多可能出现的因素影响，计算机与受控设备之间的通讯数据常会发生无法预测的错误。为了防止错误所带来的影响，一般在通讯时采取数据校验的办法，而循环冗余码校 ......
Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
OpenThread(THREAD_ALL_ACCESS, 1, 线程ID) '由线程ID取得线程句柄,返回线程句� ......
——————————————————————————————————
在c#中如何使用以前c++的.lib库和.h头文件
zhujiang_1977（朱江 ......
