VB 检测更新的程序

刚好在看这文章！ 我转发给你吧！里面也有源码的下载地址=========================================================================== 很多朋友问这个关于网络更新的问题。其实很简单，一点都不难。我这里给大家做了个演示文件。由于是演示，所我把很多常量都做成了变量，本应该放Private Sub Form_Load()End Sub里的过程，放在了 按钮里！说明下！原理：1.在服务器上用一个txt文件存放版本信息，检查更新的时候先把那个txt文件下载下来，打开，对比你 提前预设本程序的版本信息。我这里预设了两个，以个是1.0.0另个是1.0.1按钮1 对比1.0.0和服务器上的1.0.1当然不一致了，这就问你是不是更新。按钮2对比的是1.0.1 和服务器一致就不更新了。2.更新是时候会自动更名，我我 服务器是免费的5944垃圾，他不 允许下载exe所以我改了下扩展名为txt 这样就允许下载了，到本地我再改回来，气死它！3.要先运行新程序，再关闭老程序。代码如下：Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()

R = URLDownloadToFile(0, Text1.Text, "Version.txt", 0, 0)

If R = 0 Then

'下载成功，则打开文件对比版本：把最新版本信息放第一行

Set fso1 = CreateObject("scripting.filesystemobject")

Set file0 = fso1.OpenTextFile("Version.txt", 1, 1)

d = file0.Readline

d = Trim(d)

If d = Trim(Text3.Text) Then

MsgBox "你的程序已经是最新版本，不需要更新！当前版本为：" &Text3.Text, 48, "恭喜你！"

Else

ifdl = MsgBox("你的程序不只最新版本，是否更新到最新版本？服务器版本为:" &d, vbYesNo, "出新版本了，你Y的 更新不？")

If ifdl = 6 Then

r1 = URLDownloadToFile(0, Text2.Text, "new.exe", 0, 0)

If r1 = 0 Then

MsgBox "更新完成，点击确定运行新版本"

Shell "new.exe", vbNormalFocus

End

End If

Else

MsgBox "下载失败，请检测网络连接是否正常，或者，服务器正常。", 16, "错误！灵魂口袋6921833"

End If

End If

file0.Close

Else

MsgBox "错误" &R &vbCrLf &"检测更新失败，请确定你的网络连接正常！", 16, "抱歉！有问题联系6921833"

End If

End SubPrivate Sub Command2_Click()

r1 = URLDownloadToFile(0, Text2.Text, "new.exe", 0, 0)

If r1 = 0 Then

MsgBox "更新完成，点击确定运行新版本"

Shell "new.exe", vbNormalFocus

End

Else

MsgBox "下载失败，请检测网络连接是否正常，或者，服务器正常。", 16, "错误！灵魂口袋6921833"

End If

End SubPrivate Sub Command3_Click()

End

End SubPrivate Sub Command4_Click()

R = URLDownloadToFile(0, Text1.Text, "Version.txt", 0, 0)

If R = 0 Then

'下载成功，则打开文件对比版本：把最新版本信息放第一行

Set fso1 = CreateObject("scripting.filesystemobject")

Set file0 = fso1.OpenTextFile("Version.txt", 1, 1)

d = file0.Readline

d = Trim(d)

If d = Trim(Text4.Text) Then

MsgBox "你的程序已经是最新版本，不需要更新！", 48, "恭喜你！"

Else

ifdl = MsgBox("你的程序不只最新版本，是否更新到最新版本？服务器版本为:" &d, vbYesNo, "出新版本了，你Y的 更新不？")

If ifdl = 6 Then

r1 = URLDownloadToFile(0, Text2.Text, "new.exe", 0, 0)

If r1 = 0 Then

MsgBox "更新完成，点击确定运行新版本"

Shell "new.exe", vbNormalFocus

End

End If

Else

MsgBox "下载失败，请检测网络连接是否正常，或者，服务器正常。", 16, "错误！灵魂口袋6921833"

End If

End If

file0.Close

Else

MsgBox "错误" &R &vbCrLf &"检测更新失败，请确定你的网络连接正常！", 16, "抱歉！有问题联系6921833"

End If

End Sub

尊敬的华硕用户，您好：

如您的电脑本身是不带预装Windows系统的机型，您可以使用电脑包装箱内随机赠送的驱动安装光盘实现一键安装您的电脑对应 *** 作系统的驱动程序功能。如您的电脑本身是预装Windows系统的机型，您的电脑驱动程序都是直接备份在电脑的隐藏分区的，直接恢复电脑预装Windows系统即可正常安装好您的电脑驱动程序。

如有其他驱动程序的需要，您也可以登录华硕官网下载您的电脑对应的驱动程序。

希望以上回答对您有所帮助，如若以上建议仍未解决您的问题，请您登录华硕在线技术网站http://vip.asus.com/IMPresale/IMLink.html或者拨打华硕24小时全国服务热线400—600—6655寻求技术支持，最后，祝您工作顺利，生活愉快。

分类: 电子数码

问题描述:

急啊!最近下了个更新程序,有个说明书,这样写的:

A2000 升级说明

一、升级目的：

1、优化tts发音

2、优化字模

3、优化同步背单词功能

二、升级步骤简要说明：

注： 升级程序前，请检查电池，确保电量充足！

本升级包仅供部分A2000机器使用！在升级前，请检查您机器的U盘空间，具体 *** 作为【开始】－【系统G】－【资源管理A】中按【S】检查U盘空间。 如果您的机器显示的U盘空间为192268K，则您的机器可以使用这个升级包进行升级，否则请切勿进行升级 *** 作。

（一）*** 程序升级***

1. 用USB线连接A2000和电脑，A2000 开机，启动U盘；

2. 把 A2000升级包中NOR文件夹下的WRITENOR.bin和BiosUpdate.bin 两个文件拷贝到文曲星A2000 U盘根目录下；

3. 安全断开U盘并关机；

4. 同时按【2】+ 【H】+【ON/OFF】进入升级入口；

5. 屏幕依次显示“检查升级程序…”、“升级整理…”、“正在升级...”，大约等待1分钟左右升级完成，且系统自动重新启动。

我没按要求检查,现在文件夹的名字不知道怎么了,自己在电脑上用中文创建不行,而上面的英文可以输,是些这样的字"ÕÆÉÏÓ°Ôº "ÏÂÔشǵä".

求各位帮助一下,我自当重谢!

解析:

那个里面有说明书吧，你肯定是按错了

---