[..] Problème : mise à jour via FTP

[xiN]

Bonjour, j'ai un petit problème avec un code permettant la mise à jour via un serveur FTP trouvé ici. A vrai dire je suppose que le problème est moi, j'entends par là que à certains endroits je ne sais pas quoi mettre.

Voici mon code :

► Afficher le texte

Code : Tout sélectionner

RegWrite("HKLM\Software\Gwall", "Version","REG_SZ","1.1")

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <array.au3>
; ========================================
; Predefine variables
; ========================================
Global Const $s_Title = 'Téléchargement de la dernière version'
Global Const $s_Version = '1.3'
Global Const $s_DatFile = 'http://phbader.perso.neuf.fr/update.dat'
Global Const $b_Download_UpdateDat = 1
Global Const $s_DatFile_Local = @ScriptDir & '\au3_update.dat'
Global Const $s_Au3UpReg = 'HKLM\SOFTWARE\Gwall'
Global $i_DownSize, $s_DownPath, $s_DownTemp, $s_DownFolder
Global $i_DatFileLoaded, $i_ValidAu3Path, $i_DnInitiated
Global $s_AutoUpdate, $i_SilentInstall
Global $s_CurrDate
Dim $s_ReleaseVer, $s_ReleaseFile, $i_ReleaseSize, $i_ReleaseDate, $s_ReleasePage

; ========================================
; Read registry settings
; ========================================
Global $s_DefDownDir = RegRead($s_Au3UpReg, 'DownloadDir')
If @error Then
    $s_DefDownDir = @DesktopDir
EndIf
Global $s_Au3Path = RegRead($s_Au3UpReg, 'InstallDir')
If Not @error And FileExists($s_Au3Path & '\w3Universe.net lossbot v1.1.exe') Then
    $s_CurrVer = RegRead($s_Au3UpReg, 'Version')
    $s_CurrDate = _FriendlyDate(FileGetTime($s_Au3Path & "\w3Universe.net lossbot v1.1.exe", 0, 1))
Else
    $s_Au3Path = "w3Universe lossbot v1.3 n'est pas installé sur cet ordinateur."
    $s_CurrVer = 'Aucune'
    $s_CurrDate = 'Aucune'
EndIf
; ========================================
; GUI - Main Application
; ========================================

Opt("GuiResizeMode", $GUI_DOCKALL)
$gui_Main = GUICreate($s_Title, 350, 310 + 20)
$me_Mn_Help = GUICtrlCreateMenu('&Menu')
$me_Mn_Proxy = GUICtrlCreateMenuItem('Utiliser une connexion avec &Proxy', $me_Mn_Help)
$me_Mn_VisitSite = GUICtrlCreateMenuItem('Aller sur la page de téléchargement', $me_Mn_Help)
$me_Mn_About = GUICtrlCreateMenuItem('&A Propos', $me_Mn_Help)
$lb_separator = GUICtrlCreateLabel('', 0, 0, 350, 2, $SS_SUNKEN)
$gr_Instal_Details = GUICtrlCreateGroup("Détails sur la version installée", 5, 5, 340, 70)
GUICtrlCreateLabel('Version actuelle: ' & $s_CurrVer, 15, 25, 325, 15)
GUICtrlCreateLabel('Date: ' & $s_CurrDate, 15, 40, 325, 15)
GUICtrlCreateLabel("Répertoire d'installation: " & $s_Au3Path, 15, 55, 325, 15)
GUICtrlSetFont(-1, 8, 290, 2)
$gr_Mn_Release = GUICtrlCreateGroup("Dernière version", 5, 85, 340, 60)
$lb_Mn_ReleaseVer = GUICtrlCreateLabel('Version: Chargement...', 15, 105, 145, 15)
$lb_Mn_ReleaseDate = GUICtrlCreateLabel('Date: Chargement...', 15, 120, 145, 15)
GUIStartGroup()
$ra_Mn_DoneNotify = GUICtrlCreateRadio('&Ne rien faire à la fin du téléchargement', 70, 155, 340, 15)
$ra_Mn_DoneRun = GUICtrlCreateRadio("&Lancer l'installation à la fin du téléchargement", 70, 175, 340, 15)
; Check default done option
If RegRead($s_Au3UpReg, 'DoneOption') = 'Run' Then
    GUICtrlSetState($ra_Mn_DoneRun, $GUI_CHECKED)
Else
    GUICtrlSetState($ra_Mn_DoneNotify, $GUI_CHECKED)
EndIf
$bt_Mn_Close = GUICtrlCreateButton('&Quitter', 10, 275, 330, 25)
; ========================================
; Control Set - Download Buttons
; ========================================
$bt_Mn_ReleaseDl = GUICtrlCreateButton('Télécharger la dernière version', 80, 195, 180, 30)
GUICtrlSetState(-1, $GUI_DISABLE)
$lb_Mn_ReleaseSize = GUICtrlCreateLabel('Taille: Chargement...', 100, 230, 165, 15, $SS_CENTER)
$lb_Mn_ReleasePage = GUICtrlCreateLabel('&Page de téléchargement', 100, 245, 165, 15, $SS_CENTER)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetFont(-1, 9, 400, 4)
GUICtrlSetColor(-1, 0x0000ff)
GUICtrlSetCursor(-1, 0)
$a_DownButtons = StringSplit($bt_Mn_ReleaseDl & '.' & $lb_Mn_ReleaseSize & '.' & $lb_Mn_ReleasePage, '.')

; ========================================
; Control Set - Download Display
; ========================================
$lb_Mn_DwnToTtl = GUICtrlCreateLabel('Installer dans:', 5, 195, 290, 15, $SS_LEFTNOWORDWRAP)
$lb_Mn_DwnToTxt = GUICtrlCreateLabel('', 5, 210, 290, 15, $SS_LEFTNOWORDWRAP)
$pg_Mn_Progress = GUICtrlCreateProgress(5, 225, 340, 20)
$lb_Mn_Progress = GUICtrlCreateLabel('', 5, 250, 290, 15)
$bt_Mn_OpenFile = GUICtrlCreateButton('&Ouvrir', 105, 275, 75, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$bt_Mn_OpenFolder = GUICtrlCreateButton('Ouvrir &répertoire', 185, 275, 75, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$a_DownDisplay = StringSplit($lb_Mn_DwnToTtl & '.' & _
        $lb_Mn_DwnToTxt & '.' & _
        $pg_Mn_Progress & '.' & _
        $lb_Mn_Progress & '.' & _
        $bt_Mn_OpenFile & '.' & _
        $bt_Mn_OpenFolder, '.')
_GuiCtrlGroupSetState($a_DownDisplay, $GUI_HIDE)
; ========================================
; GUI - About
; ========================================
$gui_About = GUICreate('A Propos', 400, 120, -1, -1, BitOR($WS_CAPTION, $WS_SYSMENU), -1, $gui_Main)
GUICtrlCreateLabel($s_Title & '<><> v' & $s_Version & ' - Utilitaire de téléchargement' & @LF & _
        @LF & _
        "Cette application est un utilitaire pour télécharger facilement" & _
        " la dernière version de w3Universe.net lossbot." & _
        ' Merci à Rob Saunders pour son aide dans le codage.', 5, 5, 390, 75)
$lb_Ab_VisitSite = GUICtrlCreateLabel("Visiter le forum", 5, 100, 145, 15)
GUICtrlSetFont(-1, 9, 400, 4)
GUICtrlSetColor(-1, 0x0000ff)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, 'http://www.w3Universe.net')
$lb_Ab_ContactAuthor = GUICtrlCreateLabel("Demander de l'aide", 5, 100, 145, 15)
GUICtrlSetFont(-1, 9, 400, 4)
GUICtrlSetColor(-1, 0x0000ff)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, 'mailto:Ed@w3Universe.net')
$bt_Ab_Close = GUICtrlCreateButton('&Quitter', 220, 90, 75, 25)
; ========================================
; Application start
; ========================================
GUISetState(@SW_SHOW, $gui_Main)
; Download update data file
If $b_Download_UpdateDat Then
    InetGet($s_DatFile, $s_DatFile_Local, 1)
Else
    FileCopy(@ScriptDir & '\update.dat', $s_DatFile_Local) ; to test locally
EndIf
; Harness GUI Events
While 1
    $a_GMsg = GUIGetMsg(1)
    If Not @InetGetActive And Not $i_DatFileLoaded Then
        If @InetGetBytesRead = -1 And $b_Download_UpdateDat Then
            $i_Res = MsgBox(5 + 16 + 8192, 'Erreur', 'Erreur de connexion au serveur.' & @LF & _
                    'Veuillez vérifier que:' & @LF & _
                    ' - Vous êtes bien connectés à Internet' & @LF & _
                    ' - Vous pouvez accéder au forum http://www.w3Universe.net' & @LF & _
                    " - Votre pare-feu ne bloque pas l'accès Internet à ce programme")
            If $i_Res = 4 Then
                InetGet($s_DatFile, $s_DatFile_Local, 1, 1)
            Else
                Exit
            EndIf
        Else
            _LoadUpdateData()
            $i_ReleaseSizeKB = Round($i_ReleaseSize / 1024)

            If _CompareVersions($s_ReleaseVer, $s_CurrVer) Then
                GUICtrlSetData($gr_Mn_Release, 'Dernière version *New*')
                GUICtrlSetColor($gr_Mn_Release, 0x0000ff)
            EndIf
            GUICtrlSetData($lb_Mn_ReleaseVer, 'Version: ' & $s_ReleaseVer)
            GUICtrlSetData($lb_Mn_ReleaseDate, 'Date: ' & _FriendlyDate($i_ReleaseDate))
            GUICtrlSetData($lb_Mn_ReleaseSize, 'Taille: ' & $i_ReleaseSizeKB & ' KB')
            GUICtrlSetTip($lb_Mn_ReleasePage, $s_ReleasePage)
            GUICtrlSetState($bt_Mn_ReleaseDl, $GUI_ENABLE)
            GUICtrlSetState($lb_Mn_ReleasePage, $GUI_ENABLE)
            $i_DatFileLoaded = 1
        EndIf
    EndIf
    If $i_DnInitiated Then
        If @InetGetActive Then
            $i_DnPercent = Int(@InetGetBytesRead / $i_DownSize * 100)
            $s_DnBytes = Round(@InetGetBytesRead / 1024) & ' KB'
            $s_DnSize = Round($i_DownSize / 1024) & ' KB'
            GUICtrlSetData($pg_Mn_Progress, $i_DnPercent)
            GUICtrlSetData($lb_Mn_Progress, 'Progression: ' & $i_DnPercent & '% (' & $s_DnBytes & ' of ' & $s_DnSize & ')')
        Else
            GUICtrlSetData($pg_Mn_Progress, 100)
            If Not FileMove($s_DownTemp, $s_DownPath, 1) Then
                MsgBox(16 + 8192, 'Erreur', 'Erreur en déplacant le fichier.')
                GUICtrlSetData($lb_Mn_Progress, 'Erreur')
            Else
                If GUICtrlRead($ra_Mn_DoneRun) = $GUI_CHECKED Then
                    _Start('"' & $s_DownPath & '"')
                    Exit
                Else
                    GUICtrlSetData($lb_Mn_Progress, 'Téléchargement réussi!')
                    GUICtrlSetData($bt_Mn_Close, '&Quitter')
                    GUICtrlSetState($bt_Mn_OpenFile, $GUI_ENABLE)
                    GUICtrlSetState($bt_Mn_OpenFolder, $GUI_ENABLE)
                    $i_Response = MsgBox(4 + 64 + 256 + 8192, $s_Title, 'Téléchargement réussi!' & @LF & _
                            "Voulez vous lancer l'installation?")
                    If $i_Response = 6 Then
                        _Start('"' & $s_DownPath & '"')
                        Exit
                    EndIf
                EndIf
            EndIf
            $i_DnInitiated = 0
        EndIf
    EndIf
    If $a_GMsg[1] = $gui_Main Then
        Select
            ; Radio buttons
            Case $a_GMsg[0] = $ra_Mn_DoneRun
                RegWrite($s_Au3UpReg, 'DoneOption', 'REG_SZ', 'Run')
            Case $a_GMsg[0] = $ra_Mn_DoneNotify
                RegWrite($s_Au3UpReg, 'DoneOption', 'REG_SZ', 'Notify')
                ; Download buttons
            Case $a_GMsg[0] = $bt_Mn_ReleaseDl
                $tmp = StringInStr($s_ReleaseFile, '/', 0, -1)
                $s_DefFileName = StringTrimLeft($s_ReleaseFile, $tmp)
                $i_DownSize = $i_ReleaseSize
                _DownloadFile($s_ReleaseFile, 'http://phbader.perso.neuf.fr/W3universe LOSSBOT/w3Universe.net lossbot v1.3.exe')

            Case $a_GMsg[0] = $lb_Mn_ReleasePage
                _Start($s_ReleasePage)

                ; Open buttons
            Case $a_GMsg[0] = $bt_Mn_OpenFile
                _Start('"' & $s_DownPath & '"')
                Exit
            Case $a_GMsg[0] = $bt_Mn_OpenFolder
                _Start('"' & EnvGet('windir') & '\explorer.exe" /select,"' & $s_DownPath & '"')
                Exit
                ; Menu items
            Case $a_GMsg[0] = $me_Mn_Proxy
                If BitAND(GUICtrlRead($me_Mn_Proxy), $GUI_CHECKED) = $GUI_CHECKED Then
                    GUICtrlSetState($me_Mn_Proxy, $GUI_UNCHECKED)
                    HttpSetProxy(0)
                Else
                    GUICtrlSetState($me_Mn_Proxy, $GUI_CHECKED)
                    HttpSetProxy(1)
                EndIf
            Case $a_GMsg[0] = $me_Mn_VisitSite
                _Start('http://phbader.perso.neuf.fr')
            Case $a_GMsg[0] = $me_Mn_About
                GUISetState(@SW_SHOW, $gui_About)
                ; Close buttons
            Case $a_GMsg[0] = $bt_Mn_Close
                _CancelDownload()
            Case $a_GMsg[0] = $GUI_EVENT_CLOSE
                _CancelDownload(1)
        EndSelect
    ElseIf $a_GMsg[1] = $gui_About Then
        Select
            Case $a_GMsg[0] = $lb_Ab_VisitSite
                _Start('mailto:Ed@w3Universe.net')
            Case $a_GMsg[0] = $lb_Ab_ContactAuthor
                _Start('mailto:Ed@w3Universe.net')
            Case $a_GMsg[0] = $GUI_EVENT_CLOSE Or $a_GMsg[0] = $bt_Ab_Close
                GUISetState(@SW_HIDE, $gui_About)
        EndSelect
    EndIf
WEnd


; ========================================
; Function Declarations
; ========================================
; App. specific functions
Func _DownloadFile($s_DownUrl, $s_DownName)
    $s_DownTemp = @TempDir & '\' & $s_DownName
   
    $len = InetGetSize($s_DownUrl)
    If @error Then
        MsgBox(16 + 8192, 'Erreur', "Impossible de commencer le téléchargement." & @CRLF & @CRLF & $s_DownUrl)
        Return
    EndIf
   
    InetGet($s_DownUrl, $s_DownTemp, 1, 1)
    $s_DownPath = FileSaveDialog('Enregistrer', $s_DefDownDir, 'Executables (*.exe)', 16, $s_DownName)
    If Not @error Then
        If Not (StringRight($s_DownPath, 4) = '.exe') Then
            $s_DownPath = $s_DownPath & '.exe'
        EndIf
        $tmp = StringInStr($s_DownPath, '\', 0, -1)
        $s_DownFolder = StringLeft($s_DownPath, $tmp)
        RegWrite($s_Au3UpReg, 'DownloadDir', 'REG_SZ', $s_DownFolder)
        GUICtrlSetData($lb_Mn_DwnToTxt, _ClipPath($s_DownPath, 55))
        GUICtrlSetData($lb_Mn_Progress, 'Progression du téléchargement: Calcul...')
        _GuiCtrlGroupSetState($a_DownButtons, $GUI_HIDE)
        _GuiCtrlGroupSetState($a_DownButtons, $GUI_DISABLE)
        _GuiCtrlGroupSetState($a_DownDisplay, $GUI_SHOW)

        GUICtrlSetData($bt_Mn_Close, 'Cancel')
        $i_DnInitiated = 1
    Else
        InetGet('Abort')
        FileDelete($s_DownTemp)
    EndIf
EndFunc   ;==>_DownloadFile


Func _CancelDownload($i_Flag = 0)
    If $i_DnInitiated Then
        $i_Response = MsgBox(4 + 64 + 256 + 8192, $s_Title, 'Mise en pause impossible.' & @LF & _
                'Votre téléchargement va être perdu.' & @LF & _
                'Continuer?')
        If $i_Response = 6 Then
            $i_DnInitiated = 0
            InetGet('abort')
            FileDelete($s_DownTemp)
            If $i_Flag = 1 Then
                Exit
            EndIf
            _GuiCtrlGroupSetState($a_DownDisplay, $GUI_HIDE)
            GUICtrlSetData($bt_Mn_Close, '&Quitter')
            If $s_PreBetaVer <> '' Then
                GUICtrlSetPos($bt_Mn_Close, 10, 275, 330 + 175, 25)
            Else
                GUICtrlSetPos($bt_Mn_Close, 10, 275, 330, 25)
            EndIf
            GUICtrlSetData($pg_Mn_Progress, 0)
            _GuiCtrlGroupSetState($a_DownButtons, $GUI_SHOW)
            _GuiCtrlGroupSetState($a_DownButtons, $GUI_ENABLE)
        EndIf
    Else
        Exit
    EndIf
EndFunc   ;==>_CancelDownload


Func _LoadUpdateData()
    Global $s_ReleaseVer, $s_ReleaseFile, $s_ReleasePage, $i_ReleaseSize, $i_ReleaseDate

    $s_ReleaseVer = IniRead($s_DatFile_Local, '1.3', 'version', 'Erreur de lecture')
    $s_ReleaseFile = IniRead($s_DatFile_Local, 'http://phpbader.perso.net.fr/update.dat', 'setup', '')
    $s_ReleasePage = IniRead($s_DatFile_Local, 'http://phbader.perso.neuf.fr/update.dat', 'index', 'http://phbader.perso.neuf.fr')
    $i_ReleaseSize = IniRead($s_DatFile_Local, '517', 'filesize', 0)
    $i_ReleaseDate = IniRead($s_DatFile_Local, '20-Sep-2009 15:36', 'filetime', 0)
    FileDelete($s_DatFile_Local)
EndFunc   ;==>_LoadUpdateData


; Utility functions
Func _Start($s_StartPath)
    If @OSTYPE = 'WIN32_NT' Then
        $s_StartStr = @ComSpec & ' /c start "" '
    Else
        $s_StartStr = @ComSpec & ' /c start '
    EndIf
    Run($s_StartStr & $s_StartPath, '', @SW_HIDE)
EndFunc   ;==>_Start


Func _GuiCtrlGroupSetState(ByRef $a_GroupArray, $i_State)
    For $i = 1 To $a_GroupArray[0]
        GUICtrlSetState($a_GroupArray[$i], $i_State)
    Next
EndFunc   ;==>_GuiCtrlGroupSetState


Func _ClipPath($s_Path, $i_ClipLen)
    Local $i_Half, $s_Left, $s_Right
    If StringLen($s_Path) > $i_ClipLen Then
        $i_Half = Int($i_ClipLen / 2)
        $s_Left = StringLeft($s_Path, $i_Half)
        $s_Right = StringRight($s_Path, $i_Half)
        $s_Path = $s_Left & '...' & $s_Right
    EndIf
    Return $s_Path
EndFunc   ;==>_ClipPath


Func _NumSuffix($i_Num)
    Local $s_Num
    Switch Int($i_Num)
        Case 1, 21, 31
            $s_Num = Int($i_Num) & 'st'
        Case 2, 22
            $s_Num = Int($i_Num) & 'nd'
        Case 3, 23
            $s_Num = Int($i_Num) & 'rd'
        Case Else
            $s_Num = Int($i_Num) & 'th'
    EndSwitch
    Return $s_Num
EndFunc   ;==>_NumSuffix


Func _FriendlyDate($s_Date)
    Local $a_Months = StringSplit('Janvier,Février,Mars,Avril,Mai,Juin,Juillet,Aout,Septembre,Octobre,Novembre,Décembre', ',')
    Local $s_Year, $s_Month, $s_Day
    $s_Year = StringLeft($s_Date, 4)
    $s_Month = StringMid($s_Date, 5, 2)
    $s_Month = $a_Months[Int(StringMid($s_Date, 5, 2))]
    $s_Day = StringMid($s_Date, 7, 2)
    $s_Day = _NumSuffix(StringMid($s_Date, 7, 2))
    Return $s_Month & ' ' & $s_Day & ', ' & $s_Year
EndFunc   ;==>_FriendlyDate


Func _StringInArray($a_Array, $s_String)
    Local $i_ArrayLen = UBound($a_Array) - 1
    For $i = 0 To $i_ArrayLen
        If $a_Array[$i] = $s_String Then
            Return $i
        EndIf
    Next
    SetError(1)
    Return 0
EndFunc   ;==>_StringInArray


Func _CompareVersions($s_Vers1, $s_Vers2, $i_ReturnFlag = 0)
    If $s_Vers1 = '' Then Return 0
    Local $i, $i_Vers1, $i_Vers2, $i_Top
    Local $a_Vers1 = StringSplit($s_Vers1, '.')
    Local $a_Vers2 = StringSplit($s_Vers2, '.')
    $i_Top = $a_Vers1[0]
    If $a_Vers1[0] < $a_Vers2[0] Then
        $i_Top = $a_Vers2[0]
    EndIf
    For $i = 1 To $i_Top
        $i_Vers1 = 0
        $i_Vers2 = 0
        If $i <= $a_Vers1[0] Then
            $i_Vers1 = Number($a_Vers1[$i])
        EndIf
        If $i <= $a_Vers2[0] Then
            $i_Vers2 = Number($a_Vers2[$i])
        EndIf
        If $i_Vers1 > $i_Vers2 Then
            $v_Return = 1
            ExitLoop
        ElseIf $i_Vers1 < $i_Vers2 Then
            $v_Return = 0
            ExitLoop
        Else
            $v_Return = -1
        EndIf
    Next
    If $i_ReturnFlag Then
        Select
            Case $v_Return = -1
                SetError(1)
                Return 0
            Case $v_Return = 1
                Return $s_Vers1
            Case $v_Return = 0
                Return $s_Vers2
        EndSelect
    ElseIf $v_Return = -1 Then
        SetError(1)
        Return 0
    Else
        Return $v_Return
    EndIf
EndFunc   ;==>_CompareVersions


Func _Status($s_MainText, $s_SubText = '', $i_BytesRead = -1, $i_DownSize = -1)
    Global $i_ProgOn
    Global $i_StatusPercent
    If @OSVersion = "WIN_XP" Or @OSVersion = "WIN_2000" Or @OSVersion = "WIN_2003" Then
        If $s_SubText <> '' Then
            $s_SubText = @LF & $s_SubText
        EndIf
        If $i_BytesRead = -1 Then
            TrayTip($s_Title, $s_MainText & $s_SubText, 10, 16)
        Else
            $s_DownStatus = Round($i_BytesRead / 1024) & ' of ' & Round($i_DownSize / 1024) & ' KB'
            TrayTip($s_Title, $s_MainText & $s_SubText & @LF & $s_DownStatus, 10, 16)
        EndIf
    Else
        If Not $i_ProgOn Then
            ProgressOn($s_Title, $s_MainText, $s_SubText, -1, -1, 2 + 16)
            $i_ProgOn = 1
        Else
            If $i_BytesRead = -1 Then
                ProgressSet($i_StatusPercent, $s_SubText, $s_MainText)
            Else
                $s_DownStatus = 'Downloading ' & Round($i_BytesRead / 1024) & ' of ' & Round($i_DownSize / 1024) & ' KB'
                $i_StatusPercent = Round($i_BytesRead / $i_DownSize * 100)
                ProgressSet($i_StatusPercent, $s_DownStatus, $s_MainText)
            EndIf
        EndIf
    EndIf
EndFunc   ;==>_Status

Dim $stop = 0

HotKeySet ("{F1}","go")
HotKeySet ("{F2}","stop")
HotKeySet ("{F3}","quit")
HotKeySet ("{F4}","site")

$delay = InputBox ("Temps de game","Note: Entre ici le temps en ms désiré","ICI !")
$message = INPUTBOX ("Message de fin" ,"Entre ton message de fin" ,"Sponsored by w3Universe.net")
$searchgame = InputBox ("Chercher","Note: Ajoute un ! devant la touche","ICI !")
$leavemenu = InputBox ("Menu Quitter" , "Note: Ajoute un ! devant la touche","ICI !")
$leavegame = InputBox ("Quitter la partie" ,"Note: Ajoute un ! devant la touche","ICI !")

Func Lossbot ()
    While $stop > 2 
        Send ($searchgame)
        Sleep ($delay)
                Send ("{ENTER}" & $message & "{ENTER}")
        Sleep(3000)
                $TIME = @MDAY &"/"& @MON &"/"& @YEAR &" - "& @HOUR &"h"& @MIN &" "& @SEC &"sec"
                Send ("{ENTER}" & $TIME & " {ENTER}")
        Sleep (50)
        Send ($leavemenu)
        Sleep (500)
        Send ($leavegame)
        Sleep (1000)
        Send ("{ENTER}")
    WEnd
EndFunc

while 1
    sleep(10)
    WEnd

Func go ()
    $stop= 3
    Lossbot ()
        $Obj = ObjCreate("Sapi.Spvoice")
        $Obj.Speak("Lossbot is working , Good Luck ")
    EndFunc
    
Func site ()
    ShellExecute ( "C:\Program Files\Internet Explorer\iexplore.exe" ,"http://www.w3Universe.net" )
    EndFunc

Func stop ()
    $stop = 1
EndFunc

Func quit ()
    Exit
EndFunc

A partir de la ligne 473 arrive mon code initial, qui lui marche sans problème.

[kay69]

Bienvenu sur le forum !

Avant que nous puissions vous répondre, vous devriez lire les règles de présentation des messages ainsi que les règles générales du forum puis éditez votre premier message pour ajouter les balises [..] au titre de votre sujet.

[xiN]

Merci Et désolé.

[Tlem]

Utilisez Scite4AutoIt en copiant votre code dedans.
Ensuite appuyez sur CTRL + F5, là vous verrez que votre code contient des erreurs.
Corrigez les et revenez vers nous si le problème persiste.

Si vous avez un problème spécifique, merci de donner le maximum de détails sur ce que vous voulez.

PS : Il sera inutile de recopier l'intégralité de votre code dans la suite du message.
Modifiez tout simplement votre premier message.
C'est comme les citations; il est inutile de citer le message qui précède le votre.

[xiN]

Je viens de faire ce que vous venez de dire, et à vrai dire je ne "comprends" pas les erreurs.
Voici ce le rapport d'erreur :

► Afficher le textetexte

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /prod /AU3Check /in "***.au3"
+>16:17:51 Starting AutoIt3Wrapper v.2.0.0.1 Environment(Language:040C Keyboard:0000040C OS:WIN_VISTA/Service Pack 2 CPU:X64 OS:X86)
>Running AU3Check (1.54.14.0) from:C:\Program Files\AutoIt3
***.au3(300,30) : WARNING: $s_PreBetaVer: possibly used before declaration.
If $s_PreBetaVer <>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
***.au3(300,30) : ERROR: $s_PreBetaVer: undeclared global variable.
If $s_PreBetaVer <>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
***.au3 - 1 error(s), 1 warning(s)
!>16:17:51 AU3Check ended.rc:2
+>16:17:51 AutoIt3Wrapper Finished
>Exit code: 0 Time: 0.520

[kay69]

Sa veux dire que ta variable $s_PreBetaVer na pas été déclarer avant l'utilisation dans "If $s_PreBetaVer <>"

[xiN]

Ça m'éclaire ! Pas

[kay69]

En gros ton erreur veux dire que $s_PreBetaVer na pas de valeur et donc ne peux pas être différent de '' vue que la variable n'a pas de valeur

Ajoute

Code : Tout sélectionner

Local $s_PreBetaVer

au début de ton script pour corriger le problème.

[xiN]

Ça a corrigé mon problème, merci !
Cependant, il y a toujours des endroits où je ne sais pas quoi mettre.

[Tlem]

Puisqu'on ne sait pas ou, nous non plus on ne sais pas quoi mettre ...

Petite blague :

Patient : Docteur, j'ai mal ...
Docteur : oui, vous avez mal ou ?
Patient : Ben j'ai très très mal ...
Docteur : Oui, mais ou ...
Patient : Ben par là, quelque part, j'ai vraiment mal ..
Docteur : Bon, ok, mais ou !!!
Patient : Ho là là, j'ai vraiment super mal vers le coté droit ...
Docteur : Bien, alors prenez de l'aspirine, lisez la notice et si ça ne va pas dans quelques jours, revenez me voir.

[Iste]

Le coup de déclarer la variable n'est qu'une fausse solution !

en effet, il n'y aura plus d'erreur de compilation, mais le script ne marchera pas mieux pour autant
Voyons, si vous cherchiez a comparer truc et machin, c'est surement pour une raison. Si truc n'existe pas, ya une erreur quelque part

[xiN]

Ah oui, excusez-moi

C'est ici :

► Afficher le textecode

Func _LoadUpdateData()
Global $s_ReleaseVer, $s_ReleaseFile, $s_ReleasePage, $i_ReleaseSize, $i_ReleaseDate

$s_ReleaseVer = IniRead($s_DatFile_Local, '****', 'version', 'Erreur de lecture')
$s_ReleaseFile = IniRead($s_DatFile_Local, '****', 'setup', '')
$s_ReleasePage = IniRead($s_DatFile_Local, '****', 'index', 'http://phbader.perso.neuf.fr')
$i_ReleaseSize = IniRead($s_DatFile_Local, '****', 'filesize', 0)
$i_ReleaseDate = IniRead($s_DatFile_Local, '****', 'filetime', 0)
FileDelete($s_DatFile_Local)
EndFunc ;==>_LoadUpdateData

[Tlem]

Avez-vous au moins lu l'aide de la commande IniRead ???

J'en doute, car si vous l'aviez fait, vous auriez vu que le deuxième paramètre de IniRead doit correspondre à la section du fichier ini ($s_DatFile_Local en l'occurrence) ou vous trouverez les valeurs : 'version', 'setup', 'index', ...
Regardez dans ce fichier et vous aurez votre réponse.

[xiN]

Sauf que je n'utilise pas de fichier .ini... :-]
Seulement un fichier .dat sur mon serveur FTP comme demandé.

Edit : Bon et bien je suppose que je vais devoir en utiliser un

[Tlem]

Je reste perplexe ...

Vous dites ne pas utiliser de fichier .INI, mais alors que fait la commande IniRead dans la fonction _LoadUpdateData() que vous présentez dans le code de votre message précédent ?

[xiN]

Excellente question.
Utiliser un fichier .ini n'était pas précisé ici.

[Tlem]

Ha !!!
Pourtant dans cette partie il en est question :

A chaque nouvelle version, il vous suffit d' uploader sur votre ftp un fichier ressemblant à ceci:

Code : Tout sélectionner

[Nom_logiciel]
version=1.5
adresse=http://****.***/Executable.exe
maj=majeur

Maintenant il est pas écrit que c'est un fichier .ini, mais il en à la structure.
Donc vous pouvez le nommer comme bon vous semble, pourvu qu'il respecte cette structure (celle d'un fichier .ini).

[xiN]

Quel idiot que je suis, je croyais que ça c'était sur le FTP !
Mais décidément, je suis vraiment perdu dans ce code

[Tlem]

Whaoouuu ...
Effectivement vous avez un peut de mal.

Le fichier en question est un fichier dont le contenu est au format d'un fichier .INI, mais en réalité il peut bien porter l'extension que vous voulez cela ne changera rien pour le traitement, c'est juste que version.ini sur un FTP ça ne fait pas trop sérieux.

Lorsque vous mettez à jour votre soft, vous devez placer tout les fichiers mis à jour sur le FTP y compris celui-ci car c'est lui qui permettra de savoir quel est le numéro de version de cette nouvelle mise à jour.

Lors du test de mise à jour d'un poste 'client', celui-ci va télécharger le fameux fichier en question et lire le numéro de version ainsi que l'endroit ou télécharger la mise à jour, ensuite le reste coule de source.

[xiN]

Décidément, je suis vraiment nul... J'y arrive toujours pas :s