• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

用VB6.0编写自我升级的程序(三)

发布: 2007-7-01 21:48 | 作者: admin | 来源: | 查看: 15次 | 进入软件测试论坛讨论

领测软件测试网

 

VERSION 5.00

Begin VB.Form frmUpdate

   BackColor       =   &H80000007&

   BorderStyle     =   0  ´None

   Caption         =   "Form1"

   ClientHeight    =   1185

   ClientLeft      =   0

   ClientTop       =   0

   ClientWidth     =   5400

   LinkTopic       =   "Form1"

   MaxButton       =   0   ´False

   MinButton       =   0   ´False

   ScaleHeight     =   1185

   ScaleWidth      =   5400

   ShowInTaskbar   =   0   ´False

   StartUpPosition =   2  ´屏幕中心

   Begin VB.CommandButton Command1

      Appearance      =   0  ´Flat

      Caption         =   "关闭"

      Height          =   435

      Left            =   2130

      TabIndex        =   0

      Top             =   630

      Visible         =   0   ´False

      Width           =   1245

   End

   Begin VB.Label lblCap

      AutoSize        =   -1  ´True

      BackStyle       =   0  ´Transparent

      BeginProperty Font

         Name            =   "宋体"

         Size            =   12

         Charset         =   134

         Weight          =   400

         Underline       =   0   ´False

         Italic          =   0   ´False

         Strikethrough   =   0   ´False

      EndProperty

      ForeColor       =   &H000000FF&

      Height          =   240

      Left            =   330

      TabIndex        =   1

      Top             =   150

      Width           =   120

   End

   Begin VB.Shape Shape1

      BackColor       =   &H00C0FFFF&

      BackStyle       =   1  ´Opaque

      BorderColor     =   &H0000FF00&

      Height          =   1065

      Left            =   60

      Top             =   60

      Width           =   5265

   End

End

Attribute VB_Name = "frmUpdate"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

 

´ ------------------------------------------

´ 升级程序的例子

´ 作者:   谢家峰

´ 日期:   2003/12/19

´

´ 这里是升级程序

´

´ ------------------------------------------

 

Dim State As Boolean

 

Private Sub Command1_Click()

  Unload Me

End Sub

 

Private Sub Form_Activate()

 

  Dim i As Integer

  Dim j As String

 

  Dim OldExeFile As String

  Dim NewExeFile As String

 

  Dim tmpFile As String

  Dim MainState As Boolean

 

 

  DoEvents

   

  If State Then

     ´ 获取旧主程序名称

     OldExeFile = CStr(ReadIniFile(UpdateIniPath, "Main", "Name", "主程序"))

     NewExeFile = OldExeFile

     OldExeFile = App.Path & "\" & OldExeFile & ".exe"

     tmpFile = App.Path & "\tmp.tmp"

    

     ´ 改写升级次数

     i = CInt(ReadIniFile(UpdateIniPath, "Update", "Num", "0"))

     i = i + 1

     ChangeLabelPos Me, lblCap, "这是您第" & i & "次升级!"

     Sleep 1500

    

     ´ 摸拟从网站下载新的更新程序。

     ChangeLabelPos Me, lblCap, "正在 摸拟从网站下载新的升级程序 ..."

     Sleep 1000

     On Error Resume Next

     Kill tmpFile

     ´ 此处可以修改为将临时文件放在临时文件夹内

     SaveFileFromRes 101, "CUSTOM", tmpFile

     Sleep 1000

     On Error GoTo 0

    

     ´ 检查主程序是否开启,若开启则关闭旧程序

     MainState = CBool(CInt(ReadIniFile(UpdateIniPath, "Main", "Active", "0")))

     If MainState Then

       ´ 关闭旧程序

       ChangeLabelPos Me, lblCap, "正在关闭旧程序 ... "

       Sleep 300

      

       ´ 这里强行关闭旧程序

       ´ 你也可以发送消息,让旧程序自己关闭

       Do While -1

          DoEvents

          If CloseValidForm(NewExeFile) Then

             Exit Do

          End If

       Loop

       Sleep 200

     End If

    

     ´ 删除旧程序

     On Error Resume Next

     ChangeLabelPos Me, lblCap, "正在删除旧程序 ... "

     Sleep 1000

     Kill OldExeFile

     Sleep 1000

    

    

     ´ 生成新主程序名称

´     NewExeFile = CStr(ReadIniFile(UpdateIniPath, "Main", "Name", "主程序"))

     j = Right(NewExeFile, 1)

     If IsNumeric(j) Then

        j = i

        NewExeFile = Left(NewExeFile, Len(NewExeFile) - 1)

     Else

        j = 1

     End If

     ´ 记录主程序的名字

     NewExeFile = NewExeFile & j

     WritePrivateProfileString "Main", "Name", NewExeFile, UpdateIniPath

     NewExeFile = App.Path & "\" & NewExeFile & ".exe"

    

    

     ´ 拷贝新程序

     ChangeLabelPos Me, lblCap, "正在更新程序 ... "

     Sleep 1000

     FileCopy tmpFile, NewExeFile

     Sleep 1000

     ´ 删除临时程序

     Kill tmpFile

    

     ´ 记录更新次数

     WritePrivateProfileString "Update", "Num", CStr(i), UpdateIniPath

    

     ´ 检查旧程序的状态

     If MainState Then

        ChangeLabelPos Me, lblCap, "正在启动更新后的主程序 ... "

        Sleep 1000

        Shell NewExeFile, vbNormalNoFocus

     End If

    

     ´ 关闭更新程序

     Command1.Visible = True

     ChangeLabelPos Me, lblCap, "更新完成,请等待 3 秒后将自动关闭更新程序 ..."

     Sleep 3000

     lblCap.Refresh

    

     Unload Me

  End If

End Sub

 

Private Sub Form_Load()

 

  If App.PrevInstance Then End

 

  UpdateIniPath = App.Path & "\Update.ini"

  State = True

End Sub

 

 

完成了三个工程的代码拷贝,在代码的必要之处我都进行了详细注释,这里我就不再介绍代码了,现在进行最后一步,模拟从网站下载升级后的程序。

a.        打开projMain.vbp,编译该工程,并且命名为“主程序.exe”;

b.        打开projNewMain.vbp,编译该工程,并且命名为“projNewMain.exe”;

c.        打开projUpdate.vbp,打开工具栏上的“vb资源编辑器”(若没找到,读者需要点击菜单“外接程序|外接程序管理器”,在打开的对话框中选择“vb6资源编辑器”,在加载行为中选择“加载/卸载”复选框),在资源编辑器中选择“添加自定义资源 …”,在打开的对话框中定位到Update文件夹,选择projNewMain.exe文件,保存该资源文件,最后编译该工程并且命名为“Update.exe”。

d.        将可执行文件“主程序.exe”、“Update.exe”拷贝到同一个文件夹中,运行任一个程序,相信读者会看到效果。

 

以上代码比较简单,仅供读者分析思路用。在实际工程中的代码编写时也根本没必要把projNewMain.exe放在资源文件中,读者只需将它放在服务器的某个位置,然后在projUpdate.vbp中的相应处写下载代码即可。

Ok,文章至此编写完成,希望对各位读者能有所帮助。

 

附:本人已在CSDN上发布了源码,等管理员审核完毕,本人再将链接地址补上。

 


延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备2023014753号-2
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网