VB6.0을 사용하여 클라이언트 자동 업그레이드 프로그램 작성 정보

Private Sub Command1_Click()

Command1.Enabled = False

' 업데이터 실행

Shell App.Path amp; .exe", vbNormalFocus

End Sub

Private Sub Form_Load()

　App.PrevInstance이면 종료

UpdateIniPath = App . Path amp; "\Update.ini"

' 기본 프로그램 이름 기록

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

' 실행 상태 기록

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

' 업데이트 시간 기록

WritePrivateProfileString "Update" , "Num", "0", UpdateIniPath

Me.Caption = App.EXEName

End Sub

Private Sub Form_Unload(정수로 취소)

' 실행 상태 기록

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

End Sub

메모장으로 modCommon 열기 .bas 파일에 다음 내용을 복사합니다:

Attribute VB_Name = "modCommon"

Option Explicit