2020年度城商行TOP100
全世界各行各业联合起来,internet一定要实现!
老文章正文

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

2004-05-25 eNet&Ciweek

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,文章至此编写完成,希望对各位读者能有所帮助。



相关频道: eNews 老文章

您对本文或本站有任何意见,请在下方提交,谢谢!

投稿信箱:tougao@enet16.com
广告