frmnewmain.frm

可用的在线升级源码子程序

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

' 这里是升级后的主程序

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