用VB6.0编写自我升级的程序(二)
来源:互联网 发布:笑笑淘宝店倒闭 编辑:程序博客网 时间:2024/06/14 16:06
二、 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工程的资源文件中。在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
- 用VB6.0编写自我升级的程序(二)
- 用VB6.0编写自我升级的程序(二)
- 用VB6.0编写自我升级的程序(一)
- 用VB6.0编写自我升级的程序(三)
- 用VB6.0编写自我升级的程序
- 用VB6.0编写自我升级的程序(一)
- 用VB6.0编写自我升级的程序(三)
- 用VB6.0编写磁盘格式化程序
- 浅谈用VB6.0编写“特洛伊木马”程序
- 用VB6.0编写电脑抽奖程序
- 用vb6.0编写的修改程序没有反应,求指点
- 用VB6.0做的自动更新程序
- 用VB6.0做的自动更新程序
- 用VB6.0编写自己的MP3播放器
- VB6.0 程序升级到 VB 2008 相关问题总结
- VB6.0 程序升级到 VB 2008 相关问题总结
- VB6.0 程序升级到 VB 2008 相关问题总结
- 用VB6.0编写手机短信发送
- 我的事迹
- 时间不早了
- VB远程自动更新代码
- 注册表修改之计算机病毒清除
- 用VB6.0编写自我升级的程序(一)
- 用VB6.0编写自我升级的程序(二)
- 用VB6.0编写自我升级的程序(三)
- Well done 我们的四班!
- 2005年世界电脑围棋赛最终名次
- 电脑围棋领域的研究概述
- 各国(地区)升段制对照表
- DW中sql注入式攻击的防范
- 记那对住在我隔壁储藏室的大学刚毕业的小夫妻
- 电脑围棋竞赛朝鲜最强-KCC围棋程序九战全胜夺冠