vb6.0教程:用VB6.0编写自我升级的程序(一)-vb教程来源: 发布时间:星期四, 2009年2月12日 浏览:328次 评论:0
ss=MsoNormal style=\"MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none\" align=left> prefix = o ns = \"urn:schemas-microsoft-com:office:office\" /> 曾经有位网友和我讨论怎样编写个通过服务器对客户机上进行自我升级问题由于我项目也涉及到自我升级当时我把我解决方案提了出来那就是做个类似于瑞星升级在这里我也发现了很多网友对这个问题很困惑故我愿意把我设计方案写出来和大家共享大家也可以通过这个思路用其他语言进行改写 以下是我具体思路: 写两个个是主;个是升级(升级放在服务器上); 介绍说明:所有升级任务都由升级完成 1.启动升级升级连接到网站WebSite下载新主(当然还包括支持库文件等)到临时文件夹; 2.升级检测旧主是否活动若活动则关闭旧主(同时记下主状态); 3.删除旧主拷贝临时文件夹中文件到相应位置同时注册相应文件; 4.检查主状态若状态为活动则启动新主; 5.关闭升级 6.祝贺你升级完成 由于网友提出了有关升级这个升级问题以下是对其思路进行点补充但原文仍然是升级主具体代码需读者自己添加: 7.主升级完毕; 8.升级继续检查所下载临时文件中是否含有NewUpdate.exe(新升级)和rename.exe(是个可以更改文件名); 9.若存在以上两个文件表示要更新Update.exe文件;启动rename.exe同时update.exe关掉自己; 10.rename.exe检测update.exe是否已被关掉若已关掉删除该update.exe移动临时文件夹中NewUpdate.exe文件到主目录下同时更名为update.exe; 11.rename.exe关掉自己 12.OK,至此升级也被升级了 下面进行具体编写需建立 3个工程然后把它们编辑成个组 3个工程需共用个模块 建立工程步骤: 1. 建立工程proMain:打开vb,“新建工程”选择“标准EXE”, 再给工程中添加模块并且命名为modCommon修改窗体名为frmMain同时修改工程名为projMain然后保存到某个文件夹(譬如在桌面建立个文件夹Update)窗体、模块和工程分别保存为frmMain.frm、modCommon.bas、projMain.vbp; 2. 建立工程projNewMain:点击菜单“文件|新建工程” 选择“标准EXE”点击菜单“工程|添加模块”在弹出对话框中选择“现存”标签定位到Update文件夹选中modCommon.bas模块修改窗体名为frmNewMain同时修改工程名为projNewMain然后保存到Update文件夹窗体和工程分别保存为frmNewMain.frm、projNewMain.vbp; 3. 建立工程projUpdate:点击菜单“文件|新建工程” 选择“标准EXE”点击菜单“工程|添加模块”在弹出对话框中选择“现存”标签定位到Update文件夹选中modCommon.bas模块修改窗体名为frmUpdate同时修改工程名为projUpdate然后保存到Update文件夹窗体和工程分别保存为frmUpdate.frm、projUpdate.vbp; 4. 建立组:在工程projUpdate中点击菜单“文件|添加工程…”在弹出对话框中选择“现存”标签定位到Update文件夹选择projMain.vbp;重复该动作选择projNewMain.vbp;保存该组即可; 5. 关闭工程定位到Update文件夹然后执行下面步骤 各个工程文件中文件源码: 、 projMain.vbp工程: 介绍说明:这个是旧主从来没有进行过升级前 用记事本打开frmMain.frm文件copy以下内容到其中: VERSION 5.00 Begin VB.Form frmMain Caption = \"请点击升级进行\" ClientHeight = 1140 ClientLeft = 60 ClientTop = 345 ClientWidth = 4500 LinkTopic = \"Form1\" ScaleHeight = 1140 ScaleWidth = 4500 StartUpPosition = 3 ´窗口缺省 Begin VB.CommandButton Command1 Caption = \"升级\" Height = 525 Left = 1380 TabIndex = 0 Top = 570 Width = 1245 End End Attribute VB_Name = \"frmMain\" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit ´ ------------------------------------------ ´ 升级例子 ´ 作者: 谢家峰 ´ 日期: prefix = st1 ns = \"urn:schemas-microsoft-com:office:smarttags\" /> ´ ´ 这里是没有升级时主 ´ ´ ------------------------------------------ Private Sub Command1_Click Command1.Enabled = False ´ 运行更新 Shell App.Path & \"\\update.exe\", vbNormalFocus End Sub Private Sub Form_Load If App.PrevInstance Then End UpdateIniPath = App.Path & \"\\Update.ini\" ´ 记录主名字 WritePrivateProfileString \"Main\", \"Name\", App.EXEName, UpdateIniPath ´ 记录运行状态 WritePrivateProfileString \" ´ 记录更新次数 WritePrivateProfileString \"Update\", \"Num\", \"0\", UpdateIniPath Me.Caption = App.EXEName End Sub Private Sub Form_Unload(Cancel As Integer) ´ 记录运行状态 WritePrivateProfileString \" End Sub 用记事本打开modCommon.bas文件copy以下内容到其中: Attribute VB_Name = \"modCommon\" Option Explicit ´ ------------------------------------------ ´ 升级例子 ´ 作者: 谢家峰 ´ 日期: ´ ´ 这里是通用模块放置API以及公用 ´ ´ ------------------------------------------ Public Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long) Public Declare Function GetPrivateProfileString Lib \"kernel32\" Alias \"GetPrivateProfileStringA\" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal lSize As Long, ByVal lpFilename As String) As Long Public Declare Function WritePrivateProfileString Lib \"kernel32\" Alias \"WritePrivateProfileStringA\" (ByVal lpApplicationName As Any, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFilename As String) As Long Public Declare Function GetPrivateProfileSection Lib \"kernel32\" Alias \"GetPrivateProfileSectionA\" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFilename As String) As Long Public Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const WM_Close = &H10 Private Const gMAX_SIZE% = 255 ´Maximum buffer size Public UpdateIniPath As String ´ = ´ 从资源文件中提取文件 ´ ´ = Public Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean Dim bytImage As Byte Dim iFileNum As Integer _disibledevent=> SaveFileFromRes = True bytImage = LoadResData(vntResourceID, sType) iFileNum = FreeFile Open sFileName For Binary As iFileNum Put #iFileNum, , bytImage Close iFileNum Exit Function SaveFileFromRes_Err: SaveFileFromRes = False: Exit Function End Function ´ = ´ 从缓冲区中读取串 ´ ´ = Private Function StringFromBuffer(Buffer As String) As String Dim nPos As Long nPos = InStr(Buffer, vbNullChar) If nPos > 0 Then StringFromBuffer = Left$(Buffer, nPos - 1) Else StringFromBuffer = Buffer End If End Function ´ = ´ 读Ini文件 ´ ´ = Public Function ReadIniFile(ByVal strIniFile As String, ByVal strSection As String, ByVal strKey As String, Optional ByVal strKeyDefault As String = vbNullString) As String Dim strBuffer As String strBuffer = Space$(gMAX_SIZE) If GetPrivateProfileString(strSection, strKey, strKeyDefault, strBuffer, gMAX_SIZE, strIniFile) Then ReadIniFile = StringFromBuffer(strBuffer) End If End Function ´ 检查文件是否存在 Function FileExists(filename As String) As Boolean _disibledevent=> FileExists = (Dir$(filename) <> \"\") End Function ´ 改变标签文本及位置 Public Function ChangeLabelPos(frm As Form, lbl As Label, msg As String) With lbl .Caption = msg .Left = (frm.ScaleWidth - .Width) / 2 .Top = .Height / 2 End With End Function ´关闭窗体 Function CloseValidForm(Ret As String) As Boolean Dim WinWnd As Long ´搜寻该窗口句柄 WinWnd = FindWindow(vbNullString, Ret) If WinWnd <> 0 Then SendMessage WinWnd, WM_Close, 0&, 0& End If CloseValidForm = True End Function 4
相关文章读者评论发表评论 |