Acerca del uso de VB6.0 para escribir el programa de actualización automática del cliente

Private Sub Command1_Click()

Command1.Enabled = False

' Ejecute el programa de actualización

Shell App.Path amp; \ update.exe", vbNormalFocus

End Sub

Private Sub Form_Load()

　Si App.PrevInstance entonces finaliza

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

' Registre el nombre del programa principal

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

' Registrar estado de ejecución

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

' Registrar tiempos de actualización

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

Me.Caption = App.EXEName

End Sub

Sub privado Form_Unload(Cancelar como entero)

' Estado de ejecución del registro

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

End Sub

Abrir modCommon con el archivo .bas del Bloc de notas, copie el siguiente contenido en él:

Atributo VB_Name = "modCommon"

Opción explícita