用VB實現應用程序在局域網絡上自動更新

具體程序實現如下:
　　在應用程序工程MyApp中的部分代碼如下:
　　OptionExplicit
　　'編譯後的應用程序名稱,注意沒有後綴.EXE,本例為MYAPP
　　PrivateConstApp_Name="MyApp"
　　'最新的應用程序存放的路徑,本例為：服務器NtServer01共享目錄Refresh
　　PrivateConstExePath="NtServer01Refresh"
　　'中介程序名稱,注意沒有後綴.EXE,本例為FastCopy
　　PrivateConstMidExeName="FastCopy"
　　
　　'應用程序入口
　　PrivateSubForm_Load()
　　IfUCase(Trim(App.EXEName))<>UCase(Trim(App_Name))Then
　　MsgBox"必須將訂單管理系統的名稱更改為:" App_Name
　　End
　　EndIf
　　'判斷是否有最新版本的應用程序,如有則自動更新
　　CallExeRefresh
　　
　　'下面為訂單管理系統的正常操作略.......
　　EndSub
　　
　　'版本檢查及更新過程
　　PrivateSubExeRefresh()
　　'定義四個臨時字符串變量
　　Dims1AsString
　　Dims2AsString
　　Dims3AsString
　　Dims4AsString
　　OnErrorResumeNext
　　'將本地應用程序MyApp.EXE的全路徑名存入s1
　　'將本地中介程序FastCopy.exe的全路徑名存入s3
　　s1="TNT"
　　IfLen(App.Path)>3Then
　　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"
　　EndIf
　　
　　s4="TNT"
　　'將本地應用程序MyApp.EXE文件的修改時間存入s4
　　s4=FileDateTime(s1)
　　s2="TNT"
　　'將網絡上應用程序MyApp.EXE文件的修改時間存入s2
　　s2=FileDateTime(ExePath App_Name ".EXE")
　　Ifs2="TNT"Then
　　MsgBox"沒有找到最新的可執行文件:" ExePath App_Name ".EXE"_
　　 vbCrLf vbCrLf "原因1:存放最新EXE的服務器或者工作站沒有打開;"_
　　 vbCrLf "原因2:存放最新EXE的路徑錯誤或者EXE文件不存在;"_
　　 vbCrLf "請將此情況通知程序員." vbCrLf vbCrLf_
　　 vbCrLf "按確定按鈕後,將繼續運行本地EXE文件.",vbCritical,"提示"
　　EndIf
　　Ifs2="TNT"Ors4="TNT"ThenExitSub
　　'如果網絡上應用程序MyApp.EXE文件的修改時間,大於本地MyApp.EXE文件的修改時間
　　'然後再運行本地MyApp.EXE,中介程序退出後,整個更新過程結束.
　　IfCDate(s2)>CDate(s4)Then
　　'將網絡上的中介程序FastCopy.exe復制到本地,這樣可防止本地無中介程序時無法進行更新
　　FileCopyExePath MidExeName ".EXE",s3
　　'則運行中介程序FastCopy.exe,將最新的MyApp.EXE復制到本地
　　s1=Shell(s3 "" ExePath "," App_Name ".EXE",vbNormalFocus)
　　'本地應用程序MyApp.EXE終止運行,否則已經更新的MyApp.EXE無法覆蓋本地的MyApp.EXE.
　　End
　　EndIf
　　EndSub
　　將以上程序編譯為:MyApp.exe存儲在共享目錄中.
　　
　　在中介程序工程FastCopy中的代碼如下:
　　向工程中增加一個窗體Form1,向Form1中添加一個定時器Timer1,增加一個標簽控件Label1,其Caption為"應用程序正在更新",並調整窗體大小.
　　OptionExplicit
　　PrivatesPathAsString'用於存儲服務器上的共享目錄
　　PrivatesNameAsString'用於存儲應用程序名
　　PrivateSubForm_Load()
　　DimsAsString
　　'從應用程序的命令行參數中取得數據
　　s=Trim(Command())
　　DimpAsInteger
　　p=InStr(1,s,",")
　　Ifp>0Then
　　'取得儲服務器上的共享目錄
　　sPath=Mid(s,1,p-1)
　　'取得應用程序名
　　sName=Mid(s,p 1,Len(s)-p)
　　'定時器延時6秒,保證本地舊版應用程序退出運行
　　Timer1.Interval=6000
　　Else
　　'參數錯誤則退出
　　MsgBox"Error",vbCritical,""
　　UnloadMe
　　End
　　EndIf
　　EndSub

'定時器代碼
　　PrivateSubTimer1_Timer()
　　Timer1.Interval=0
　　Dims1AsString
　　'取得應用程序的本地路徑
　　IfLen(App.Path)>3Then
　　s1=App.Path "" sName
　　Else
　　s1=App.Path sName
　　EndIf
　　'保證服務器關機或者路徑錯誤仍可運行舊版本
　　OnErrorResumeNext
　　'將服務器共享目錄中的最新版本復制到本地
　　FileCopysPath sName,s1
　　DimaAsLong
　　'執行本地的應用程序
　　a=Shell(s1,vbNormalFocus)
　　'中介程序退出運行,應用程序自動更新結束
　　UnloadForm1
　　End
　　EndSub
　　將工程FastCopy編譯為FastCopy.exe並存儲於服務器的共享目錄。
　　
　　測試:
　　1、將服務器共享目錄中的：MyApp.exe復制到本地硬盤的某個目錄中；
　　2、重新編譯MyApp工程，將MyApp.exe復制到服務器的共享目錄中，注意一定不要覆蓋本地的MyExe.app;
　　3、這樣服務器上MyApp.exe的修改時間肯定大於本地MyApp.exe的修改時間;
　　4、運行本地MyApp.exe,幾秒鐘後屏幕上會出現"應用程序正在更新"的窗體，隨後更新後應用程序再次被運行。則自動更新成功。
　　5、程序的修改時間可通過在文件上用鼠標按右鍵的屬性或內容的菜單觀察。
　　本程序在Windows98和VB6.0,NT局域網絡下測試通過。
　　本文內容也適用於其它語言參考。->