AutoIt Français

Code : Tout sélectionner

;**************************************
; TEST DE VERSION ORPHEE
; Nom du logiciel - à completer mais ne pas modifier par la suite !
BlockInput, off
setenv, soft, ORPHEE
setenv, chemin, APPLINAT
; Version du logiciel - à mettre à jour pour changer de version
setenv, version_maj, 6.00.06
setenv, package, RP060006C

splashtexton, 200, 150, Mise à jour, Vérification de %soft%\nVeuillez patienter...
regread, version, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\\%chemin%\\%soft%\\%version_maj%, installdir
ifnotequal, errorlevel, 0, gosub, maj_%soft%
ifexist, C:\\Applinat\\ORPHEE\\RPORPH.ini, iniwrite, C:\\Program Files\\Internet Explorer\\IExplore.exe$http://i-dat.noprox.cnamts.fr:7500/dw/consulterDat.do?, C:\\Applinat\\ORPHEE\\RPORPH.ini, AUTRE, IDAT
BlockInput, off

exit


;**************************************
; module de mise à jour ORPHEE
maj_orphee:
Splashtexton, 200, 150, Mise à jour de %soft%,  La mise à jour de %soft% version %version_maj% est en cours.\n\nVeuillez patienter...
runwait, M:\\Install_PMF\\ORPHEE\\setup.exe
winwaitactive, Installation : ORPHEE
winwaitclose, Installation : ORPHEE
winclose, Orphee
return
 

Code : Tout sélectionner

;   V2.64 to V3.0.100 (Version 1.0.6)
;   Converted with AutoItV2toV3 [Version 1.0.6]
;   (C) Copyright 2004 J-Paul Mesnage.

; Prologue      ; should be renamed (?) and called somewhere if you are converting  an include file
__init()
; End Prologue

;**************************************
; TEST DE VERSION ORPHEE
; Nom du logiciel - à completer mais ne pas modifier par la suite !
BlockInput ( 0 )
$soft = 'ORPHEE'
$chemin = 'APPLINAT'
; Version du logiciel - à mettre à jour pour changer de version
$version_maj = '6.00.06'
$package = 'RP060006C'

SplashTextOn ( 'Mise à jour', 'Vérification de ' & $soft & @LF & 'Veuillez patienter...', 200, 150 )
$version = RegRead ( 'HKEY_LOCAL_MACHINE\' & 'SOFTWARE\' & $chemin & '\' & $soft & '\' & $version_maj, 'installdir' )
$__err = Abs(@error)    ; for ERRORLEVEL compatibility checking
if NOT __cmp($__err, 0) then
    
endif
if FileExists ( 'C:\Applinat\ORPHEE\RPORPH.ini' ) then
    IniWrite ( 'C:\Applinat\ORPHEE\RPORPH.ini', 'AUTRE', 'IDAT', 'C:\Program Files\Internet Explorer\IExplore.exe$http://i-dat.noprox.cnamts.fr:7500/dw/consulterDat.do?' )
endif
BlockInput ( 0 )

Exit 


;**************************************
; module de mise à jour ORPHEE
; TO BE CHECK Function assume : maj_orphee
Func maj_orphee ( )
    SplashTextOn ( 'Mise à jour de ' & $soft, 'La mise à jour de ' & $soft & ' version ' & $version_maj & ' est en cours.' & @LF & @LF & 'Veuillez patienter...', 200, 150 )
    RunWait ( 'M:\Install_PMF\ORPHEE\setup.exe' )
    WinWaitActive ( 'Installation : ORPHEE' )
    WinWaitClose ( 'Installation : ORPHEE' )
    WinClose ( 'Orphee' )
    Return 
EndFunc     ; maj_orphee



; Epilogue  Extra Functions needed for Compatibility execution
;           take care of possible redefinition if you are converting  an include file
;
func __cmp ($_1, $_2)   ; to handle Case sensitive comparison
global $__strcase
if $__strcase = 0 then
    return ($_1 = $_2)
else
    return ($_1 == $_2)
endif
endfunc
;
func __init ()      ; to define global variables needed
endfunc
; End Epilogue
[/spoiler]
 

Code : Tout sélectionner

;**************************************
; TEST DE VERSION ORPHEE
; Nom du logiciel - à completer mais ne pas modifier par la suite !
BlockInput(1)
$soft = 'ORPHEE'
$chemin = 'APPLINAT'
; Version du logiciel - à mettre à jour pour changer de version
$version_maj = '6.00.06'
$package = 'RP060006C'
$OrpheeSetupPath = 'M:\Install_PMF\ORPHEE\setup.exe'
$OrpheeInstallPath = 'C:\Applinat\ORPHEE'

SplashTextOn('Mise à jour', 'Vérification de ' & $soft & @LF & 'Veuillez patienter...', 200, 150 )
$version = RegRead ( 'HKEY_LOCAL_MACHINE\' & 'SOFTWARE\' & $chemin & '\' & $soft & '\' & $version_maj, 'installdir' )
If Not @error Then maj_orphee()
$__err = Abs(@error)    ; for ERRORLEVEL compatibility checking
If FileExists($OrpheeInstallPath & '\RPORPH.ini' ) Then
    IniWrite($OrpheeInstallPath & '\RPORPH.ini', 'AUTRE', 'IDAT', @ProgramFilesDir & '\Internet Explorer\IExplore.exe$http://i-dat.noprox.cnamts.fr:7500/dw/consulterDat.do?')
Endif
BlockInput(0)

Exit 


;**************************************
; module de mise à jour ORPHEE
; TO BE CHECK Function assume : maj_orphee
Func maj_orphee()
    SplashTextOn('Mise à jour de ' & $soft, 'La mise à jour de ' & $soft & ' version ' & $version_maj & ' est en cours.' & @LF & @LF & 'Veuillez patienter...', 200, 150)
    RunWait($OrpheeSetupPath)
    WinWaitActive('Installation : ORPHEE')
    WinWaitClose('Installation : ORPHEE')
    WinClose('Orphee')
    Return 
EndFunc     ; maj_orphee