VB 更新程序

这种资源还是在百度或GOOGLE上搜一下，如果曾经有人在网上发布，或有网站下载，一般都会被搜索引擎收录；如果搜不到，你可以找一下相关的论坛，最好是那种人气比较高的论坛，注册会员，发帖求助，会有高手帮你的。

刚好在看这文章！ 我转发给你吧！里面也有源码的下载地址=========================================================================== 很多朋友问这个关于网络更新的问题。其实很简单，一点都不难。我这里给大家做了个演示文件。由于是演示，所我把很多常量都做成了变量，本应该放Private Sub Form_Load()End Sub里的过程，放在了 按钮里！说明下！原理：1在服务器上用一个txt文件存放版本信息，检查更新的时候先把那个txt文件下载下来，打开，对比你 提前预设本程序的版本信息。我这里预设了两个，以个是100另个是101按钮1 对比100和服务器上的101当然不一致了，这就问你是不是更新。按钮2对比的是101 和服务器一致就不更新了。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, Text1Text, "Versiontxt", 0, 0)

If R = 0 Then

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

Set fso1 = CreateObject("scriptingfilesystemobject")

Set file0 = fso1OpenTextFile("Versiontxt", 1, 1)

d = file0Readline

d = Trim(d)

If d = Trim(Text3Text) Then

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

Else

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

If ifdl = 6 Then

r1 = URLDownloadToFile(0, Text2Text, "newexe", 0, 0)

If r1 = 0 Then

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

Shell "newexe", vbNormalFocus

End

End If

Else

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

End If

End If

file0Close

Else

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

End If

End SubPrivate Sub Command2_Click()

r1 = URLDownloadToFile(0, Text2Text, "newexe", 0, 0)

If r1 = 0 Then

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

Shell "newexe", vbNormalFocus

End

Else

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

End If

End SubPrivate Sub Command3_Click()

End

End SubPrivate Sub Command4_Click()

R = URLDownloadToFile(0, Text1Text, "Versiontxt", 0, 0)

If R = 0 Then

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

Set fso1 = CreateObject("scriptingfilesystemobject")

Set file0 = fso1OpenTextFile("Versiontxt", 1, 1)

d = file0Readline

d = Trim(d)

If d = Trim(Text4Text) Then

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

Else

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

If ifdl = 6 Then

r1 = URLDownloadToFile(0, Text2Text, "newexe", 0, 0)

If r1 = 0 Then

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

Shell "newexe", vbNormalFocus

End

End If

Else

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

End If

End If

file0Close

Else

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

End If

End Sub

你要怎样的功能，

我自己刚写了一个自动更新的

是用>

看你的描述应该是要添加一个程序打开了后，自动实时显示当前时间的功能吧。

只需添加一个Label 控件 和一个 Timer控件

然后双击Timer控件加入如下代码

Label1 = now

我有上传了张，你可以参考下。有什么不懂可以问我

以上就是关于VB 更新程序全部的内容，包括:VB 更新程序、VB 检测更新的程序、VB 程序 自动更新 升级 急求！！！！！！！！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！