女人体内寒气表现症状:用VB6.0编写自我升级的程序(二)
来源:百度文库 编辑:偶看新闻 时间:2024/04/29 17:23:10
用VB6.0编写自我升级的程序(二)
发布时间:2008-04-03 10:40:00 来源:Blog 作者:Blog 点击:239
说明:这个是新的主程序,即升级后的主程序,由于我目前没有服务器,故将该程序放在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
’ ------------------------------------------
’ 升级程序的例子
’ 作者: 谢家峰
’ 日期:
’
’ 这里是升级后的主程序
’
’ ------------------------------------------
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 "
Me.Caption = App.EXEName
End Sub
Private Sub Form_Unload(Cancel As Integer)
’ 记录运行状态
WritePrivateProfileString "
End Sub
三、 projUpdate.vbp工程:
说明:这是升级程序,含有一个资源文件。
用记事本打开frmUpdate.frm文件,copy以下内容到其中: