用VB实现应用程序在局域网络上自动更新
2008-02-23 07:00:20来源:互联网 阅读 ()
基本原理:在某个服务器上共享出一个目录,其权限为程序员完全控制,其它用户只读。
例如:\\NtServer01\Refresh,程序员重新编译后的应用程序.EXE都存放在此目录下。
在应用程序的入口处调用版本检查及更新过程,如果服务器应用程序的修改时间大于本地应用程序的修改时间,则认为有新版本出现,应该将服务器上的新版本复制到本地硬盘。
由于应用程序在运行时不能被新版本覆盖,所以就需要中介程序FastCopy.EXE(也用VB编写)来完成更新版本并重新运行本地应用程序。为了达到及时更新的目的可在应用程序中每隔5分钟或10分钟检查一次是否有新版本。(此部分略有兴趣的读者可自行编程添加)
本例中:
服务器:NtServer01 共享目录:Refresh
应用程序:MyApp.exe 中介程序:FastCopy.exe (都存储于共享目录中)
下载源代码 (6K)
具体程序实现如下:
在应用程序工程MyApp中的部分代码如下:
Option Explicit
'编译后的应用程序名称,注意没有后缀 .EXE,本例为MYAPP
Private Const App_Name = "MyApp"
'最新的应用程序存放的路径,本例为:服务器 NtServer01 共享目录 Refresh
Private Const ExePath = "\\NtServer01\Refresh\"
'中介程序名称,注意没有后缀 .EXE,本例为 FastCopy
Private Const MidExeName = "FastCopy"
'应用程序入口
Private Sub Form_Load()
If UCase(Trim(App.EXEName)) <> UCase(Trim(App_Name)) Then
MsgBox "必须将订单管理系统的名称更改为: " App_Name
End
End If
'判断是否有最新版本的应用程序,如有则自动更新
Call ExeRefresh
'下面为订单管理系统的正常操作 略 ... ....
End Sub
'版本检查及更新过程
Private Sub ExeRefresh()
'定义四个临时字符串变量
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
On Error Resume Next
'将本地应用程序MyApp.EXE的全路径名存入 s1
'将本地中介程序FastCopy.exe的全路径名存入 s3
s1 = "TNT"
If Len(App.Path) > 3 Then
s1 = App.Path "\" Trim(App_Name) ".exe"
s3 = App.Path "\" MidExeName ".EXE"
Else
s1 = App.Path Trim(App_Name) ".exe"
s3 = App.Path MidExeName ".EXE"
End If
s4 = "TNT"
'将本地应用程序MyApp.EXE文件的修改时间存入 s4
s4 = FileDateTime(s1)
s2 = "TNT"
'将网络上应用程序MyApp.EXE文件的修改时间存入 s2
s2 = FileDateTime(ExePath App_Name ".EXE")
If s2 = "TNT" Then
MsgBox "没有找到最新的可执行文件:" ExePath App_Name ".EXE" _
vbCrLf vbCrLf "原因1:存放最新EXE的服务器或者工作站没有打开;" _
vbCrLf "原因2:存放最新EXE的路径错误或者EXE文件不存在;" _
vbCrLf "请将此情况通知程序员." vbCrLf vbCrLf _
vbCrLf "按确定按钮后,将继续运行本地EXE文件.", vbCritical, "提示"
End If
If s2 = "TNT" Or s4 = "TNT" Then Exit Sub
'如果网络上应用程序MyApp.EXE文件的修改时间,大于本地MyApp.EXE文件的修改时间
'然后再运行本地MyApp.EXE ,中介程序退出后,整个更新过程结束.
If CDate(s2) > CDate(s4) Then
'将网络上的中介程序FastCopy.exe复制到本地,这样可防止本地无中介程序时无法进行更新
FileCopy ExePath MidExeName ".EXE", s3
'则运行中介程序FastCopy.exe ,将最新的MyApp.EXE 复制到本地
s1 = Shell(s3 " " ExePath "," App_Name ".EXE", vbNormalFocus)
'本地应用程序MyApp.EXE 终止运行,否则已经更新的MyApp.EXE无法覆盖本地的MyApp.EXE .
End
End If
End Sub
将以上程序编译为:MyApp.exe 存储在共享目录中.
在中介程序工程 FastCopy 中的代码如下:
向工程中增加一个窗体Form1 ,向Form1中添加一个定时器 Timer1 , 增加一个标签控件 Label1 ,其 Caption 为
"应用程序正在更新",并调整窗体大小.
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇:利用 API 可以直接拨号
下一篇:VB编程获取文件中集成的图标
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash