用VB6.0編寫自我升級的程序(二)

 二、  projNewMain.vbp工程:

說明：這個是新的主程序，即升級后的主程序，由于我目前沒有服務器，故將該程序放在projUpdate.vbp工程的資源文件中。在projUpdate.vbp中模擬網絡升級。

用記事本打開frmNewMain.frm文件，copy以下內容到其中：

VERSION 5.00

Begin VB.Form frmNewMain

   Appearance      =   0  ´Flat

   BackColor       =   &H80000005&

   Caption         =   "Form1"

   ClientHeight    =   1365

   ClientLeft      =   60

   ClientTop       =   345

   ClientWidth     =   4680

   LinkTopic       =   "Form1"

   ScaleHeight     =   1365

   ScaleWidth      =   4680

   StartUpPosition =   3  ´窗口缺省

   Begin VB.CommandButton Command1

      Caption         =   "升級"

      Height          =   525

      Left            =   1410

      TabIndex        =   0

      Top             =   660

      Width           =   1245

   End

   Begin VB.Label lblCap

      Caption         =   "告訴你，我已經升級了，沒看出和以前不一樣了嗎？"

      Height          =   255

      Left            =   120

      TabIndex        =   1

      Top             =   60

      Width           =   4275

   End

End

Attribute VB_Name = "frmNewMain"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

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

´ 升級程序的例子

´ 作者:   謝家峰

´ 日期:   2003/12/19

´

´ 這里是升級后的主程序

´

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

Private Sub Command1_Click()

  Command1.Enabled = False

  ´ 運行更新程序

  Shell App.Path & "\update.exe", vbNormalFocus

End Sub

Private Sub Form_Load()

  Dim i As Integer

  If App.PrevInstance Then End

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

  ´ 記錄主程序的名字

  WritePrivateProfileString "Main", "Name", App.EXEName, UpdateIniPath

  ´ 記錄運行狀態

  WritePrivateProfileString "Main", "Active", "-1", UpdateIniPath

  Me.Caption = App.EXEName

End Sub

Private Sub Form_Unload(Cancel As Integer)

  ´ 記錄運行狀態

  WritePrivateProfileString "Main", "Active", "0", UpdateIniPath

End Sub

三、 projUpdate.vbp工程:

說明：這是升級程序，含有一個資源文件。

用記事本打開frmUpdate.frm文件，copy以下內容到其中：

文章來源于領測軟件測試網 http://www.kjueaiud.com/