1. #1
    Candidat au Club
    Homme Profil pro
    Technicien réseaux et télécoms
    Inscrit en
    mars 2017
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Technicien réseaux et télécoms

    Informations forums :
    Inscription : mars 2017
    Messages : 6
    Points : 3
    Points
    3

    Par défaut Progress bar dans un HTA

    Bonjour messieurs

    j'aimerai intégré un progress bar dans un HTA

    voici le message a afficher pendant l’exécution, merci pour votre aide
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    <head>
    <title>*Information </title>
    <HTA:APPLICATION
        APPLICATIONNAME=""
        BORDER="thin"
        BORDERSTYLE="raised"
       SCROLL="no"
       SINGLEINSTANCE="yes"
        CAPTION="yes"
        SYSMENU="no"
        SHOWINTASKBAR="no"
        contextMenu="no"
        SELECTION="no"
        windowState="normal"
    >
    <style type="text/css">
    <!--
    body,td,th {
        font-family: Arial, Helvetica, sans-serif;
        font-size: 10pt;
    }
    body {
        margin-top: 0px;
        margin-left: 0px;
        margin-right: 0px;
        margin-bottom: 0px;
    }
    .style2 {
        font-size: 8pt;
        font-weight: bold;
    }
    -->
    </style></head>
     
    <script language="VBScript">
     
    Sub Window_OnLoad
        window.resizeTo 800,440
        intTop = (screen.height - document.body.clientHeight) / 2
        intLeft = (screen.width - document.body.clientWidth) / 2
        window.moveto intLeft,intTop
    End Sub
     
    Sub CloseButton
        strComputer = "." 
        Set objShell = CreateObject("WScript.Shell")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        strPath = objFSO.GetAbsolutePathName(".")
        strCleanup = "wscript " & Chr(34) & strPath & "\Cleanup.vbs" & Chr(34)
     
        If objFSO.FileExists(strPath & "\Cleanup.vbs") Then
            objShell.exec(strCleanup)
            self.close()
        Else
            self.close()
        End If
    End Sub
    </script>
     
    <body STYLE="font:14 pt verdana; color:003366">
     
    <style type="text/css">
    <!--
    .Style1 {
        color: #003366;
        font-weight: bold;
        font-family: Verdana, Arial, Helvetica, sans-serif;
    }
    .Style2 {font-size: 10px}
    .Style3 {font-size: 12px}
    -->
    </style>
    <table width="742" border="0">
      <tr>
        <td colspan="3"><img src="./images/header.jpg" width="800" height="72"></td>
      </tr>
      <tr>
        <td colspan="3"><div align="center" class="Style1">Installation  en cours, merci de patienter....</div></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td colspan="3"><div align="center"><img src="./images/ring.gif" width="96" height="96"></div></td>
      </tr>
      <tr>
        <td colspan="3"><ul type="disc">
            <li><span class="Style2"><span class="Style3"><strong>Temps d'installation: </strong>10 Minutes</span></span></li>
            <li class="Style3"><strong>Mode d'installation: </strong>Silensieuse </li>
        </ul></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td colspan="3">Pour tout complèment d'information merci de contactez le Centre de Services.<br>
          Par téléphone depuis Tréville: xxxxx <br>
          Par téléphone depuis l'extérieur: yyyyyyy<br>
          Via le portail <a href="https://zzzzzz.com/"> Oasis </a></td>
      </tr>
    </table>
    </body>

  2. #2
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    juin 2009
    Messages
    3 507
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 3 507
    Points : 8 443
    Points
    8 443

    Par défaut Une petite Simulation


    Une petite simulation
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    <head>
    <title>*Information Importante</title>
    <HTA:APPLICATION
        APPLICATIONNAME="GSI"
        BORDER="thin"
        BORDERSTYLE="raised"
       SCROLL="no"
       SINGLEINSTANCE="yes"
        CAPTION="yes"
        SYSMENU="no"
        SHOWINTASKBAR="no"
        contextMenu="no"
        SELECTION="no"
        windowState="normal"
    >
    <style type="text/css">
    <!--
    body,td,th {
        font-family: Arial, Helvetica, sans-serif;
        font-size: 10pt;
    }
    body {
        margin-top: 0px;
        margin-left: 0px;
        margin-right: 0px;
        margin-bottom: 0px;
    }
    .style2 {
        font-size: 8pt;
        font-weight: bold;
    }
    -->
    </style></head>
     
    <script language="VBScript">
    Dim Title
    Title = "Simulation d'une Progress Bar dans un HTA"
    '------------------------------------------------------------------------------------------
    Sub Window_OnLoad
        window.resizeTo 800,440
        intTop = (screen.height - document.body.clientHeight) / 2
        intLeft = (screen.width - document.body.clientWidth) / 2
        window.moveto intLeft,intTop
        Working()
    End Sub
    '------------------------------------------------------------------------------------------
    Sub Working()
    Msgbox "Ceci est une simulation d'un travail en background",vbInformation,Title
    Sleep 20000 'pause de 20 secondes pour voir l'évolution de la progress bar
    self.close
    End Sub
    '------------------------------------------------------------------------------------------
    Sub Sleep(MSecs)' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA
        Dim fso
        Set fso = CreateObject("Scripting.FileSystemObject")
        Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
        Dim tempName : tempName = "Sleeper.vbs"
        Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)
        objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
        objOutputFile.Close
        CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& MSecs,1,True
    End Sub
    '------------------------------------------------------------------------------------------
    </script>
     
    <body STYLE="font:14 pt verdana; color:003366">
     
    <style type="text/css">
    <!--
    .Style1 {
        color: #003366;
        font-weight: bold;
        font-family: Verdana, Arial, Helvetica, sans-serif;
    }
    .Style2 {font-size: 10px}
    .Style3 {font-size: 12px}
    -->
    </style>
    <table width="742" border="0">
      <tr>
        <td colspan="3"><img src="./images/header.jpg" width="800" height="72"></td>
      </tr>
      <tr>
        <td colspan="3"><div align="center" class="Style1">Installation  en cours, merci de patienter....</div></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td colspan="3"><div align="center">
        <img src="data:image/gif;base64,R0lGODlhgACAAKUAABR+xIy+5Mzi9FSi1Ozy/DSSzKzS7HSy3Nzu9Lze7CSKxGSu3PT6/Hy63Nzq9Eye1CSGxJzK5NTq9Lza7MTe7ByGxNTm9Fyq1PT2/ESazLTW7Hy23OTu9CyKzGyu3Pz6/IS63MTi9BSCxJTG5Mzm9Fym1Oz2/DyWzKzW7HS23Eyi1KTO5MTe9OTy/CyOzGyy3Pz+/IS+5P///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh+QQJCQAyACwAAAAAgACAAAAG/kCZcEgsGo/IpHLJbDqf0Kh0Sq1ar9isdsvter/gsFPiEJvPUcHGBWgDXBsBek4XckruvLuEqPvBCRB6gwAVFH+IWiyEjAAJiZBUCBWNhCIckZlPeJWDIgOaoUoCnY0hoqhFHqWMC6mvMmysgwqwqCazjCa2VQkbHicZHg0TVBK5hCS8URgglIQVIBhRCMiDEstPGs+VFRpQDNZ6u9lMIMgNUAribbVVIREpBytyf+fW6U4v7ACuUh8jFIjQoyDCBzoG+BlwEoLfKWoFBjIq0OeMCUHsKpBjokKcCikc1nVS0OLMBn5tUjhBIEIiKxEVnzA44bJSARhiGHBjJ4KB/pMEuUQ8ijIi6AgxE1C2EfHNybZSIlBIgSFyVgWcYFIobfMCCgIVNfWoiAmFQthOIg6BGbAVwMcoCV5ULfRi6JSi1o6CydD2hJUQyrBotdYVzIm+oQYjK/yF7da3mfAi0/tFMUrGkSiIs+tFw1lrTTPB2FnqahgGn4P6DDUiNSHKYBqgFKFSFIOIrAqsDkOAdNCSqDhUcN2mAtkwKPhJfSWhQCUXx8XIxseLwQjfFUbsnpOCuJ7a2RJEWPAiAmc/K4ajXV4ulYnun0U02Nj+FQwNKS6cKHAhBQqs9QUo4IAEFmjggQgmqOCCDDbo4INiWEDCChGQYAGEfyTgwVzF/nlQDIZmCMBXJyfUA2IXDBwwy0AvHHSiFhg8IE4G271IBQMysqMCgDZOsQ9K4PUYRVJbhfYgAhscBsAJG5ThhHNbFYBha57AlgSRbRmpIAwdNaKCi0lc0FYbFzhoGSNBGjHamACIwCOCx7CCDRIOsNnmnAqqyEqaRGhgJwDsJQhlKS4kscKfETDo3VIiGIqooismkRybIqzAoAuLvpFEnGwGpuCZjIiAWREwZPrSmwdy2omnR3CylQiQLfiCd6Ma4eeYgW7ZJSMq1HgETVv5BWEMLekhQgwMvXpegxKkgFsBKeDZxAJK1SqkEwyMOCOq1zphgra5ZEBft1EwQG0u/hf4Si5cwFZywrLrUqHBAthdAG+8V4QAj3ms4uvvvwAHLPDABE8BwwQbZKBkMBtMwG3BSRDwgm95VPACARAvwYAzK8agbsYEgDvLCRhnTIQFsoijwIUmy9BCB0qRZPIHIrNzwsP/3tNWPgS3QDFPwA2sJ5vWauJABBE4eQZqf/aUigGDvqHlFwn9CYClosTACLJi/PinP5rcykiuXdSMWChRD1JoGBy2JUIFoZBQSr9cmIpMo5pE4F2iYNgdVCiHdsL3Fz8rBbcmDVUiwkNfmB2sKJg24g4YXlMKdiaTMoI1GFX/ubkmDXzGMxgm+A3VuJgL5IYCZH9ReVtFZ7IvleNntGB6IyIEPfB0O2d8W1sufLxECzEMMEAMmDg4ieHRNeFZHiJ82CAJbVtFdxPLG5t8gy20m8sJukMROiGjM8hAdys2IDwTGXyWAYgtLFBsqAs0D8Wuerx/IgMavLDfQAU4wQtQsL4n8O47LYOCzzwRvgQuIQE7qcC9HJiE96hABQ1oIAU3yMEOevCDIAyhCEcYwiAAACH5BAkJADIALAAAAACAAIAAhRR+xIy+5Mzi9FSi1KzS7Ozy/DSSzHSy3Lze7CSKxOTu9GSu3PT6/JzK5Nzq9Eye1Hy63CSGxNTq9GSq1Lza7MTe7ByGxJTG5NTm9Fyq1LTW7PT2/ESazCyKzGyu3Pz6/IS63MTi9BSCxIzC5Mzm9Fym1KzW7Oz2/DyWzHS23OTy/KTO5Eyi1MTe9CyOzGyy3Pz+/IS+5P///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAb+QJlwSCwaj8ikcslsOp/QqHRKrVqv2Kx2y+16v+CweEwum8/o46YxEAEAokFjk66LG5a3Xm9p2P9bDBN7hHoTDICJVYOFjRmKkFANjZQAfpGYSRsJlY0WJ5mhRZOdjReiqDIcpY0cqaJ5rIQir5kMso2ItVQtDRcXDSFWH7iFoLtQKgechBYHKlSxxXDIUAFulSIBU6vTAK7VTAwluAO6T6TTp+FL5LhxUSfSsp9XFSAvLyAtdgHeADGiXMAmax0VBywKsVCARgXBYiKgQcmAi4UVE/P2iNBwxsO/Ny+iMKBYKsM5KSQeFhIhoAyMCB8BWIAh5UJGPSIMUkHBykD+mRAx3yCYcmIEC2wiOIw4OQWBSkrCxqT7qBNSDFwQyFwNmjXThKeOtAYF0BXTAlyPxlwYW1URCLCFyoapMHZoJqCy7IphAJeVCKaQDPQ08yJm2lApO4mISsbhv4ipTMAVYQLN1mlyRSngoJKDhDQwBkxjQXMXghQLXqTQm4ZBQlksALP7A6EvnMyzFSlYcFPEi8+5USG4MGLEBdbBkytfzry58+fQo0ufTr269evYs2vfbkVFgwcoLFjg8OCCRO5dSIiuNIAEei0wQGAt/Z4Kg/UVZddnEvrfAPr7OSHfR7gFmIQEYwF3nQQNrKDgE/h9ZJF1JgimhwscOeHAWG/+OFDdCJQE1ASIHLblnAmdVMZEhDFNKJ2FlLjQhAu2yZLAdCSw4t4SNz023QqsXKJEj97QIt0KNQqZhAscAnCjdDmWwlgSLEpIHZOVPLkEiWxRh2IlKzSxIYceUldbIwUi8VqL15nAzBsJqOgEgkHteF0IDQQzRQoxpWDgEzCsWQxpfz7h2mjHFOoEDCnU+EYK+imqRAicVcIBcpJC4YBRBlggAgpKPZjpqKSWauqpqKaq6qqspoEBCSs0QAIGrTKBgAdv8uEBBbUaIUA3naDQUq8MHPAOAC980OoGD/zDQaSZMtCshACaWlhQfqJKQZMZmgpjUD6Zum2TAHSLCgz+yqJBUpOHhUIATwCgQIAZMBD5WLWQnEXIAmWMSa4IooqJAQEEYFCmFkA2oiQYGpCrh5xLwKABroVY4IEG+EqBZSFahpGwwwsjUSErLkAsRQGdnAfGx+SGXMQJwMrCQQFUnJDyGF/+G2YSJGxcTAJ2RpHrHh2DQafDQRchgaOUiJC0E2s1MgIZMDAtiwgZy6CCz/8koPKi6+qRQdZduMOhCC4WAcO0Y3FAthIrWOjCzmU0TK7JQ0zVpX3QgoGC1ZWggAQDXMckQgJvo4JXUCJgKkTO5M6bm74xhYRElWOlHQ4DMU/jNhL1OvwG1sHB7GyiRiwtuhsBV8MA5bKYpASGAqLrYW5uCPxdCgqOF4Fk7QDQrZwGvFWcQe9G/F678MyFgGcDCDy9BO3A327g0Q47nWnVtZOeKeZBaV6o8uQyX2i9gHeSQN/16R2UiefDOxYKiQfogL1XM4RqCOlrhHymIRgaPaaUKhVUChcc+NqqVpCAGsWpV0RggAky4KlZZMAE7ANEEAAAIfkECQkAMQAsAAAAAIAAgACFFH7EjMLkVKLUzOL07PL8dLLcNJLMrNLs3O70JIrEZK7c9Pr8fLrcxN703Or0TJ7UJIbEnMrkZKrU1Or0vNrsHIbEXKrU1Ob09Pb8fLbcRJrMtNbs5O70LIrMbK7c/Pr8hLrcFILElMbkXKbUzOb07Pb8dLbcPJbMrNbsxOL0TKLUpM7k5PL8LI7MbLLc/P78hL7k////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABv7AmHBILBqPyKRyyWw6n9CodEqtWq/YrHbL7Xq/4LB4TC6bz+i0es1uu4cpSQIAqChS7/x1MaL7/RYYeoNQCyd/iAAnC4SNSxKJiRaOlEYpkZF4lZuQmIiTm5Vznn8VoZQfpImMp4QLqoisrVMYJBsHJIJYo7Cms1IbAiGIGhtXCrB0oL9OHCqYwxosVQ3JAJrMTCS8ngkkVRawKtlNLBDWCdNTJQbDmAYlXAu6bA/WdBpVJcKRKrJ7JgzQMWDinxkK9/wYq5LCQgU6ISxgw5KiRaIWA9IISEhnXCUO3EqpK1PCXcIQ8Si5IOXiTDWOdChQevHQU4gXZg7ApLOCEv4LWCPHrNgJoKejn6qCirm0U6YjmqRumimxM4TSQSs9KUDzjKNHShxqJqpwVcwGmChCpUhgkk6CiWY0JMx3qoQLtgASmEiZhoVYVWSZleDLhkSFtpEqwCXHBoFcTycQMCaEousfDWknOyqRYsWKFIQ1ix5NurTp06hTq17NurXr17Bjy55Nu7ZtciUOwCjgAsaB0LexDNgYSUDG4Hs8wFLwATkVFoeSnSjrXMmH6NYMGKyuBBnHrdyZDCC6mPWH5lMse4V9IPqJA1E4EKUjubX3P+CdDJ0fofX+RP05wcB8AJjQmkWRJPBEJ0QtkxpVnlBnxH07OYgahJhIWEQGBP4ayBpeiSioH4EBriYCJgE8gQCB9a32Qjif4PSEenPBtkI7ALRgFBRMcRRCeauVsN0TMCZkYXhILCDQPdohWQ6OsBjQopNLLFCkJxYMSWUSKdDohwZAbrkECygwoIALDKAwpZhstunmm3DGKeecdNZJGgckHHDABWvaKcQLG3gQUh0ebCCjnSgsSUoLmfUVwQMnVFCBBg+IoOEbBDxmjQYEnEECcZgI8I0jFyCYkDdkvACCNQwcmscFiN0TwqhgLABqMv7oQcCgp15axQu3WiOAq2u8oOl8GhCrxao7MfBGBAT+IYIXExA4QRsLmEpgCAkoe0Ww67GhU7R/wLeFA/7k9mkGuAR+lUUA5E6rxgu8zieVFuyGm0a15PoxzLVatBArRyKmgVC/fyyUxV9EhSDFAhuY4MEJGnhgwgZaHjEuwjxtwXBVUHCgwMcQKcBBE/9xvCMW2hJV8BIvMDAwIiFkgF4SB3MMgMJY5JuQu0mwcCwsJwBHBL8cz7oFvNHKqwQLLSeTgNF/ztywt1SsGK26RBhC1AlYx+DzTkBj4eXPTJjQYRIrWA3TylkgvROtSCDgNiwhcL1AvTAlkHEVau/koRIMznfkEND26zQXL5ytigphC1ESuSgh8QJ284Fdq+OYqEA1ERtHCzcRdt8dFddavGCC6QX+PUTg5LaUBJ4JrEfyYxkpaGA1mDPW/vgSKRzGkWJoIBCACgYcRnEAqCMxdOZMCD2Xr5uc4DspJziBAojdNKrZ2Gg7sQAKDiUSEQquzwJ7tLJHMUFnnwF8WsoEjs7d5NFaxeaVDbYpd1V021JWiJIfNmXren5YBJxYwLduUI870PFdZOi0ABeYLgQuSJ+YJmCBmUVEfn6KwfhcYIETGMACLkBfCFETBAAh+QQJCQAvACwAAAAAgACAAIUUfsSMwuTM4vRUotTs8vw0ksys0ux0stzc7vQkisTE3uz0+vzc6vRkrtxMntR8utwkhsScyuTU6vS82uwchsTU5vT09vxEmsy01ux8ttzk7vQsiszE4vT8+vxsrtwUgsSUxuTM5vRkqtTs9vw8lsys1ux0ttzE3vRMotSEvuSkzuTk8vwsjsz8/vxsstz///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG/sCXcEgsGo/IpHLJbDqf0Kh0Sq1ar9isdsvter/gsHhMLpvP6LR6zW6733DzKaI6xe9XQwLAByQMeIFQGX2FACaCiUoqhoYqipBELXuNfQktkZEclYYcmZCMnH0Rn4qhogCkpYInqHyeq4GTqBSYsVQIIRUMXKeVj7dRCyAshSwgFlomnC7BUSEbnCwhWioUH30UwM5OFdiiHxVbExERE9xQC8WuCQurDAckJAe8bAGufSmlKt98H9tp1uFL8EkCJ2ppNOArhCCTCE4i1Gxa+CqTQEMs1CigWDESi37G1CDgCECCQ04D1lAa+IkDSH+w0tzD90HfJxAgP4Bgs2Cl/qh2qyQ0IFHAhck2IV4a+hATXRsOPgtRaOq0zYgUCfoleOCuKh4JHDgc9Uq2rNmzaNOqXcu2rdu3cOPKnUu3rt0rGkIYMFCh4d0tLTB4iAqAggcMtv5SKVEAH4sSiqUQuEDyAoHITkJcpJgAIRQEKuioqMfWG8lCHzwzUbEZAAuAZ1dEO10owQomKwagQnH7bAsHtBtdSHwEAwV8FCCbjRC80k4kApRy+iCgbIfWwT9cOnKd5HavBppzAmQEBO0AZHWLb4TCSAvs7Ig7a3F8/VL5FZqrdsbA/tKSRfhCkiroTOBfIxgUMdNpNVUV3oGFwLbgaTahww+E/sAmIEcE/nJjIIZ8KDeEQcHtFwyJIO43iXSofIdOCx+wmJ18L0xIEXpeoYDhB+25dw1HFHRVVQkgwjZEdBQxVVZPEAKFRAky9vGBiGThdOBzSaygoygo+GVWCyT4RwKNR4CQlSEJdHgWAjGK94GXTYQQAQhzjrWWS819oABmS0BF21R84nZBlIZc0Fugq53ZIpWIMrFACSL8iJoIJQjZaBRgqaCCWJd26umnoIYq6qiQLICBCR6QcIEHJmBgKalFaNBAfY180IAGVhmQwgEupGDACJ908AChAHyQQQdpCKBeIwNUp8hkJJEAbBkLeIBPA8gGsgJ8LU4rxgphLkTCoXAsEC5t/mOK0cG5CxXwahuEiIdIGA3Q1kAcDBCLyptgCNAcVWvUa9+9X2xJW49WHfiBt1soJB6cajzon5FYbDigG8sc2EwXD6w3LxvL2ofwFg+JRzAb7K5HghcCN3eyFBIoUM4Jdj5B2YErdxFvcx8/scIBtGZjAq5PGCyyFxZzmM6w+2bwLhIZ+7cxFyM9/AQCKYtSALlJJE0bxVgYXdnVhLUI8REj6OvKB1xrMRGDACMxQgFq98HC00WUvF5KYLTMEd9NmFB3IT0jEYJ9qYWhTt3uOsFmnmcb4cJ6U4OxQmPtRg714IZUjsQCmKOLNxcL6C2KCKP7uF4tuCnKUQKaf8GBnNh9XBC3EhJw3kjNSIAbbdtkrFDCAw248EAJsStBpH2MJrGAC8R+4ELqpTBnH5ZNSCACix8MkHws1q+HvROPuiBCASSI4EKlZy3vJtiYoSieiYHStzqZgUYdnOeXPp7d95jRH0n416m50aYADAMVAoKGHAAiCgGhc0UBHNioEUBvXy5IIKxeIBQGFssoG1RCCEpQjhLQL4QotEsQAAAh+QQJCQAyACwAAAAAgACAAIUUfsSMwuRUotTM4vR0stzs8vw0ksys0uy83uwkisRkrtzc7vR8utz0+vxMntQkhsScyuRkqtTU6vS82uzE3uwchsRcqtTU5vR8ttz09vxEmsy01uwsisxsrtzk7vSEutz8+vzE4vQUgsSUxuRcptTM5vR0ttzs9vw8lsys1uxMotSkzuTE3vQsjsxsstzk8vyEvuT8/vz///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG/kCZcEgsGo/IpHLJbDqf0Kh0Sq1ar9isdsvter/gsHhMLpvP6LR6zW673/C4fB59vej4KYQDACQgeYFLIAJ9hgACIIKLRQGHhwFaIBsBLiQkLgETioxWMS2PhgkxVyEkFaF9IhEhnVQeqYYLVS8ksaEkd65QL7cAulIDCb6hCQO7TzHDqaNTByLEqSIHyE6OqTBTIdDR0q3VSw0qoSoNUi/L3akVBeBMAcsVI1QR3OqpKmgvEC4EIx5gFsyiUsLevVTfxsS4ZkhEAFJ0bB28JYBMAwexNJiTc8LgxEciTowh4MvFnA0ffaUQ48FjqIFwYKS8xUAMhGjz4liYGcuC/hgT0UzGKcST3M+gcsYVfZQvzE1iOeHsXHrIZ5gFxETAfPOB6qGaYlz4UjAnhVdDK8U00JBxY5yOZ0UACxMDhkERDCDOEeAyZdMyCwIoUBBg65wSZxG4IzO16N/FYV6g4lnBMOQv22aKUHyZzLOPIlZ0NhOiQt9YFRKOJvOCaDQVc1eXQWDhtAgVnGWraZCCgQIVKhQwSOFWt/HjyJMrX868ufPn0Js32GCiAwoNHUxsKB59iwcFk0OJUACwexYQDE4fEoGBk3kqL9jeQyHy/TlQExPUhwKixAoIJbinXAMozISCXky80EF4AFTQQWzGYVCUCU5MwOB6EySHVVFa/jGBEjEbIKcAVVYlIVk0chkH11IhKdGBOkLJdsBZoiHRwIW3iMDdZSR5FaMRFByU22iuLfVYETPeU+NqKKh3EApJrHDQkqPJRxWUSIQgpG5KUXUkEQ04ud6OkAHlo4vqlLialF5RacQLYgKQom4rcghhER/mmJZxjfGkZhIp2LancRKwWIITLyhwlwV3yiYWT2RB0QAFEECAAJnGNWCAgZjah4QHCcT5SAKNempigfNZZioTDbgQpwgudLrqEhLUFosIFkgw6xW8uWABCgZY4AJxuxZr7LHIJqvsssw26+yzi0lA6QoIqAqtER6Y8EAoFZhQXhsL/LfCCtbi0QAG/k6yJ2sYK+B3SAtu4uEBqtEYUOoXrfkCWyALpNNNAuV2sQGO3A4aRwabTtTCulkMIKqcx8xh5kcUigGCu/8i6MYCD4sXMBYjfBRJHBOn9GMXn3zUzBsxbEuZxltcMNOhb2xYlK5fsPkRIG+YtZTBWzB0kAjZvPFUUVF1IfRBRbtxNE9Jc6HzRDxbIcHHSyTJU2hgFJoSzcFggHELGEQMhddFgY1yqPnBzMQCEsVCAtZExEDwPRW4rcXS3YwMBQIu+1IBBVA8OtPJKJuGN8NFINDxkEtwrBndVjisjgiqNeHB3bd+y0TJByH+RaAoAs0EX0NX5MQJCR9kwH5jvNAlmj6UE5HZR5krsQDn69SuxQhsH/IHPR0fEqkTC7ROjAG+c1ECBCNAjzMVwecXxQmu+gIr7JfV+RH3TUgAnnguTL8a2l9XUQIC0aegtm42p2S+sg0UBX6y/h6UALQvpnR8s1pKSe6WNTt1fIlZkrtHh64lAwQoEHLQGljpGFgECaAuFipoXrIQ4AJ/VcAFEKTgEULwPhGa8IQUDAIAIfkECQkAMQAsAAAAAIAAgACFFH7EjMLkzOL0VKLU7PL8NJLMrNLsdLLc3O70vN7sJIrEZK7c9Pr83Or0TJ7UJIbEnMrk1Or0ZKrUvNrshLrcxN7sHIbE1Ob0XKrU9Pb8RJrMtNbsfLbc5O70LIrMbK7c/Pr8xOL0FILElMbkzOb0XKbU7Pb8PJbMrNbsdLbcTKLUpM7kxN705PL8LI7MbLLc/P78////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABv7AmHBILBqPyKSymCEZVhDDxbSsWq/YrHYby0AGgLA4PBgxuOi0en1kjCzjuNhiZtvv+GOkIO+LXRF5goNoG3B+iCIohIyNSRuIkWIbjpWOEYeSiYGWnXggLpqaCjCepmsjoqIBp61bJpmqiBZUrrZVqbKarLe9SBq6mgW+xEQmwZIiALXFvhXImgnNxCvQkhBbCCQXDdNsudZ+vFUmIypyKiME3lwB4YjjSQwcsXIiFGfsWNXvfdhKEVwo0wRI35Vn/eRISzKhXrIJBskNTBhGRIskmJCJ4BQxyQmKYoYhYRAKmoJ8HY+4AwkgXhEK7zi4giFAQKlXDq3RQtIip/4qESLWeSKAYQwGoVkCTHznkojSfk0ZmSg5xgWzKwwUJDyZRMNSaBo8SfCDYUuEr8FEkJCHFtpVqZHeWoEUblESEiDXVkoQaaEWFG2T2U3Cl6LfRgj9HM5CQkHgPgr0KimccDGhY4guomGg9HHFACiV4KUo2VHRPmXXlDvXJ53cJCY8/3w9yITWOApoc2kRAsUICCtI6FYCrF9YTy1Oh1GhWd9Tpq0YJAgRWl8L2cmap7TFATuiFNt9ZfUuh2v4Xmc1lj5vawP5ioPZ9wphwbsFy/JtmegeSUSK6vn50kIAXsWhQQAIBNgRCSGEsJ6CEEYo4YQUVmjhhRhmqOGGHP526OGHrURQAXAJdAOiJR2k8IAcFqTQwYmEzOOZCBwACGMaHXwkSgHa3YgGArepokCCPqKRAR/BuGDjEgJwsMACFAgAYgrWgIeFCWDEMUCPGHbwXhwiEEkOVXFYxeEB77xwRZZ+qLAhDD6pYsFNSgigSQgaNpAQR0nwF4lMGaKQUHxIlKDJABpCkNAIVSiHSGoYKtoPo0twoImVGAr6jggrVBFCNBpGkNCDR7DW5ptAhTOnFbb5kRuHVIaj5hUtmCqGBlxeiMCXY4SpRQUpYIBBCnh+GCsysxaphQlI6lLAcMomgUCcfVggZrRaINCsJAVci+2yL8z4ArTfVhHBAv4OifACn+WuQQIKEECAAqnt1mvvvfjmq+++/Pbr778AByywFRGYOHAVTZLpAgdSHmxEB4YiUoK3rYBAAhQkgMBeAtSGYUEFtrTwQSwWfJCrN4mJgp8jDfkhAkQRTauLCC96QlcklBgUsSwiINpJT5pYpI+d0BRbyQeqJDvNAtYsYAkDHYshwpK3kKmLApakDOo0mFlD7hoG6NLpNKKGQy8e/KgydjMIvMPuIJ/KsrItDLzztRoMkDc1O0EGg7UlSIsC6WZf3GbBACtkgAbT0DhtyXVBn3wFBH2PYcHaWcSNjNGV3OwyoVkw8IImC2isha2quGkKYJ+rETjp2aT6E5bFlbSwwFIiYCC5FRC8908WlAU9dyUMjAhBAlRjVbkkFiSPhCGyKRLpzABQmi3qcahAu4RsyqI6Fwm84NgcLwwfYX3BWGCHgx6CYI3z9tYNDfz2Rs3iwAN8KcL3AEuqi/UAg9p7mncw/4nidwNjnCYGNzAGSEA2GKCTw2LwhraIAIETFMJq0GcBFUCAfhkMoQhHSEISBgEAIfkECQkALwAsAAAAAIAAgACFFH7EjMLkzOL0VKLU7PL8NJLMrNLsdLbcvN7sJIrE3O70ZKrU9Pr8TJ7UhLrcJIbE1Or0vNrsxN7sHIbEnMrk1Ob0XKrU9Pb8RJrMtNbsfLbcLIrM5O70bK7c/Pr8xOL0FILElMbkzOb0XKbU7Pb8PJbMrNbsZK7cTKLUhL7kxN70fLrcLI7M5PL8/P78////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABv7Al3BILBqPyKRyyWw6n9CodEqtWq/YZ4uyKBUKpUWolS2bz0pVA8BuuzEftHxuJY3cePyARO/7lRAbeYNtLBB/iIgQE4SNACCHiZJoJIKOjQl8k5tYA5eXA5yiVCqfnwijqU8YppclqrBKHK2fCrFlIildX2EpIlEUtJcht1YMKZaECSkMTp7CjaHFUxQPrRMULkwF0I0s01EMz8IDzUqM3YMT4E8c3OkFHOcg6XnrUAwGFhgsYAsGFyRdKECvXgFzR1jUy/PNCYMVBfOAcKCpj4s7C9kM0HYEY0aNTj4k+JRAhZ8QH9sEQIIyJYCVTExEvATCAB0S6FKCqEhEgf5LELaWfJj5CUQcOStctlmBpATRbq+WtBgJbQLPLB5yupyAkAiClKiWJE3H9EwEpW4yIEHxlBYKJiTamtp5ZixaEGWN4JR7ySqTYAttmhmH9i0SCHwbgfjFxEJGC2dYJE7XEImIBJPdJGC8LbO3M1TRAriXpAWKVijIOAmdjnQW1kpdJ0HgtFGJsE8wL5R9RaFoAJWZKAhgoUCCBCVQhAga5V294J1+AzAsyvFCyGbsoj2QCnA9wWUy/AahdlTceiBUl2GgVWdXTtqFcUcT/2PeUS0meHbjF00LEPvRpF4qEgT4CG5oBKAUTLHI1AoIFFh02kcocHQLAgDShOAcJP44R9lVsZBwgFwgHADiHApIlk4CzLFDAgUWlHBcciYMiAgJEwqDwnvsTONCCO0pFgKPPYJDwgqw4THBCkQWWaQEK6AgI3IorLChk1hmqeWWXHbp5ZdghinmmGSWaeaZaKaZBAQtqpmKABr4xgYLGgjgJicceDTICG3eSQcC1vQlgZ9+lELLlYRmoUCQjoAgzxQcmJDBo4kOoedc0kDBQY7TUUroB/Uc5QQJSWZSaQf1nADFpW1gR6ic0CTQjiN9oklCRiceIV4jJhBaQUacLWGCI7366dNCkTAxSyO1nskArk8M0BZ1furWjaxP4GRPrmiekGoUJEjbBgrcollgOv6iQgGBARQ0eyenqFV6hgIZPuiuvFN89SCi+FqRAaN4gFBsv2dAIC4hKNxLsBUIHKBfGxOcwO/CaHwQLMUYZ6zxxhx37PHHIIcs8sgkl2zyySin7DEDFAxA1QQDUNCkykRQkEwb9CQQIc1HeIDqJSd4oIoAK5ywgAN2cumtKaqKEm4eA9jYo3em7DwJCbC6wUK5sFyQpCNcbUJYHtSyQ/VcxEgiwCfpgjO2KWX7UV8e94HzsDC89cEq1EU+m87MaFjniKvg+N0N4HV9Ml+Pd9OSNx2gXjIxLG9/Ercf8OJxeTEUGAhA2pKQqgzXquzlOOJymJYHBlJXIUIHL3eQdI8VZzdqNSdQWmDBAW0bswAhC6CuxNKfEJ4mA6zYJjwSDCwwmQUWqkl8I8ZLAWRbEBK6tim9gxsCCg9PgILMiU4/OM9FfD0Itui/4IEwy4dsuCnxh6x+Huy3bz717Q8ROdv9G4Lg+BdAITCAII04SAGHwIABusEC9TvZByyQIRBYYHILzKAGN8jBDnrwg04IAgAh+QQJCQAyACwAAAAAgACAAIUUfsSMvuTM4vRUotTs8vys0ux0ttw0kszc7vS83uwkisRkrtz0+vycyuTc6vSEutwkhsTU6vRkqtS82uxMntTE3uwchsSUxuTU5vRcqtT09vy01ux8ttzk7vQsisxsrtz8+vzE4vQUgsSMwuTM5vRcptTs9vys1uw8lsykzuSEvuRMotTE3vR8utzk8vwsjsxsstz8/vz///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG/kCZcEgsGo/IpHLJbDqf0Kh0Sq1ar9isdsvtJmOsxuXSYMW86HRWILEA3nBLRqCu25mEDHzPzxDugIECCnyFcAp0gYpoJG6GjyIki5NaBISPmAoulJxVepigGZ2jUAKgpwAhpKtLEqihrLFGDI6vhiIMslomGBMTJCZUFbagCbpWAg8vhS8PiU8XxJgXx1MRA6gDEU8q0o8t1VEj0iNO3d6F4OFNDK7eGblLDeiF1FIuDTAlJTAXHZPu0IlaMoEeH2NQSFB4RAFDoHEGAahYwkBERAC4oJwDNdEOhotvJCkJSG+gk0+oTKZZCJLCkhAXVTl5YNFWRzQwQb6RmQQb/r0VTyKgE+nlg843C5Z0uCRN05MV6ICiWXZUAZMQNW2J4MkEgcFtXVwchbPppYWsoCxwZTKPXrkuw8YCQLjEhU9QK8o+kYCWmEotG+QCOPEkxIC+GFesdXLXm1QugeUShsIgwYURIy4kiDfl8E8vccfS5QTDYNKwghGQaovubRemIK2S8koPbJfSR0+TguoNRZrQIEd3IuFtqxqWF33HaiHNQJ2cEY3LQnnqL5qN9NTpOoGYj3NA1KU9PmZiRXcURO8w8Cz+zDoZCC4sWLFiwQjVlLCj0v7+GAneeKXXXzUhGKBAXwoYINyA7yEQQgInhIAfgxRWaOGFGGao4Ybr/pjwB4fHENDAALBZMEAKeoFICQYAYrKCQyoqQgBJqEiQYoxpREBVU7bh6MUEtRQ3gY9eYHWRCBUQuYUlOjmlpAwMjHiJiSlo0ASNEVmnYgqw7WFBCkt8JJeAHIJg1CkLgJBEizqNB+ICtuhWBG2C9bgha680cAREgt20IQNdnmIBZ0OwqZMILoGIJyoW2UNEoDpZoCJ7xLgpg2B7BMNhkLZIWgSmcEyYYQwGEXopqACIiiGp9JiKKgCabniWN54+CmqtGxp6igiW6tqSiou+4ugQfMrlp4YmHEjMoEbQOZYIdmoYLCh6HoHcUcrFuEB3hWgpBHHPkvknlt26h0R4/lk+2QCncIhQrRImzHqRBbESaUIDKzhiwQoNmJoECdxqJe6TVGwQ8K6TEawFCco2NbDCVbiALl71QrxFCL7uoZjFdcS3QsMAKLDCBapybIcLFZus8sost+zyyzDHLPPMNNds880452yxAB9M+cEzOlNGLgAS+EtJByds8I+FDKAACgpGB9JBiysszSCc1XWSbCEKpFyNKa8sBkgJj3iry9DdHg1KycdAaohsi0T2SMLhMCBN1GqcAArd1dhNDN5pdLD2gG5zzQmlGl9ti9l1xFsIvQxWcDAcYgNiAqUreB3OxH2sEkEKKbD9HgMHBHwA4D6GkQILXDDAOTwmFwCbZQIFcFFBBrOKkMGCBHPwyHdBP5ECKGAG30QMhYdsrvFJQIcJ78wTMfwp70Z/xPTUWp8EC6hArz3yoCiwvPZFYG9I9eQbYcAjMKS/RAryAvCl+01Y1oD39Oev//789+///wDURRAAADs=" width="50" height="50">
        </div>
        </td>
      </tr>
      <tr>
        <td colspan="3"><ul type="disc">
            <li><span class="Style2"><span class="Style3"><strong>Temps d'installation: </strong>10 Minutes</span></span></li>
            <li class="Style3"><strong>Mode d'installation: </strong>Silensieuse </li>
        </ul></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td colspan="3">Pour tout complèment d'information merci de contactez le Centre de Services.<br>
          Par téléphone depuis Tréville: xxxxx <br>
          Par téléphone depuis l'extérieur: yyyyyyy<br>
          Via le portail <a href="https://zzzzzz.com/"> Oasis </a></td>
      </tr>
    </table>
    </body>

  3. #3
    Candidat au Club
    Homme Profil pro
    Technicien réseaux et télécoms
    Inscrit en
    mars 2017
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Technicien réseaux et télécoms

    Informations forums :
    Inscription : mars 2017
    Messages : 6
    Points : 3
    Points
    3

    Par défaut

    Bonjour hackoofr

    Merci pour la réponse, c'est cool, le truc en faite, progress bar 0 à 100 dépend de l'application à installer :/

  4. #4
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    juin 2009
    Messages
    3 507
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 3 507
    Points : 8 443
    Points
    8 443

    Par défaut


    Pouvez-vous nous poster le code de l'installtion ?

  5. #5
    Candidat au Club
    Homme Profil pro
    Technicien réseaux et télécoms
    Inscrit en
    mars 2017
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Technicien réseaux et télécoms

    Informations forums :
    Inscription : mars 2017
    Messages : 6
    Points : 3
    Points
    3

    Par défaut

    Enfaite je déploie via ocs,
    c'est dans un .bat qui lance le hta pour indiquer a l'utilisateur de patienter et comme je ne sais pas le temps de l'installation tout dépend de l'application poste etc etc, moi j'ai mis 10mn par default mais dès fois il faut bcq plus et dès fois moins

  6. #6
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    juin 2009
    Messages
    3 507
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 3 507
    Points : 8 443
    Points
    8 443

    Par défaut


    Voici un exemple que j'ai posté ici Waiting Bar in HTA and CSS
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    'Détermination de l'itinéraire vers les URL(s) saisi par l'utilisateur dans l'InputBox avec la commande DOS "Tracert" animé par une barre de progression
    'Date de Création le 06/09/2013 © Hackoo
    'Mise à jour le 04/05/2014 : Ajout d'un message d'attente animé par la balise <marquee>
    '*********************************Déclaration des variables globales*******************************
    Option Explicit
    Dim oExec,fso,ws,Temp,Voice,Copyright,Title
    Copyright = " Hackoo © 2014"
    Set ws = CreateObject("wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Temp = ws.ExpandEnvironmentStrings("%Temp%")
    Set Voice = CreateObject("SAPI.SpVoice")
    '**************************************************************************************************
    'Appel au programme principal ou on peut intégrer la barre de progression
    Call MonProgramme() 
    '**************************************************************************************************
    Sub MonProgramme()
        Dim Command,Command2,Res,LogFile,StrCommand,Argum,startlog,MsgTitre,Titre,MsgAttente,StartTime,DurationTime
        MsgTitre = "Traceroute d'une URL © Hackoo © 2014"
        StrCommand = "Tracert"
        Argum = InputBox("Taper l'adresse d'une URL pour déterminer son itinéraire avec la commande DOS "& DblQuote("Tracert"),MsgTitre,"www.stackoverflow.com")
        LogFile = StrCommand & "Log.txt"
        If fso.FileExists(LogFile) Then fso.DeleteFile LogFile
        Command = "Cmd /c "& StrCommand & " " & Argum &" >> "&LogFile&""
        Titre = "La traceroute vers "& DblQuote(Argum) &" est en cours..."
        Title = Titre + Copyright
        MsgAttente = Titre
        Call CreateProgressBar(Titre,MsgAttente)'Creation de barre de progression
        Voice.Speak "Please Wait a While !"
        Call LancerProgressBar()'Lancement de la barre de progression
        StartTime = Timer'Début du Compteur Timer
        Res = Ws.Run(Command,0,True)'Exécution de la Commande
        DurationTime = FormatNumber(Timer - StartTime, 0) & " seconds."'La durée de l'exécution du script
        Call Formater(LogFile)'Pour formater et remplacer les caractères spéciaux unicode dans le LogFile
        Call FermerProgressBar()'Fermeture de barre de progression
        Voice.Speak "Process of TraceRoute finished in "& DurationTime &" !"
        ws.popup "La TraceRoute vers "& DblQuote(Argum) &" est terminée dans "& vbcr & DurationTime,"2",MsgTitre,64
        ws.popup Formater(LogFile),"5",MsgTitre,64
        Command2 = "Cmd /c Start "&LogFile&""
        startlog = Ws.Run(Command2,0,False)
    End Sub
    '****************************************************************************************************
    Sub CreateProgressBar(Titre,MsgAttente)
        Dim ws,fso,f,f2,ts,ts2,Ligne,i,fread,LireTout,NbLigneTotal,Temp,PathOutPutHTML,fhta,oExec
        Set ws = CreateObject("wscript.Shell")
        Set fso = CreateObject("Scripting.FileSystemObject")
        Temp = WS.ExpandEnvironmentStrings("%Temp%")
        PathOutPutHTML = Temp & "\Barre.hta"
        Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True)
        fhta.WriteLine "<HTML>"
        fhta.WriteLine "<HEAD>"
        fhta.WriteLine "<Title>  " & Title & "</Title>"
        fhta.WriteLine "<HTA:APPLICATION"
        fhta.WriteLine "ICON = ""magnify.exe"" "
        fhta.WriteLine "BORDER=""THIN"" "
        fhta.WriteLine "INNERBORDER=""NO"" "
        fhta.WriteLine "MAXIMIZEBUTTON=""NO"" "
        fhta.WriteLine "MINIMIZEBUTTON=""NO"" "
        fhta.WriteLine "SCROLL=""NO"" "
        fhta.WriteLine "SYSMENU=""NO"" "
        fhta.WriteLine "SELECTION=""NO"" "
        fhta.WriteLine "SINGLEINSTANCE=""YES"">"
        fhta.WriteLine "<style type=""text/css"">"
        fhta.WriteLine "div {left: 2%; top: 50%;}"
        fhta.WriteLine "marquee { height: 25px; width: 450px;}"
        fhta.WriteLine "marquee span {height: 20px; width: 20px; background: Red;float: left;}"
        fhta.WriteLine ".handle-0 { filter: alpha(opacity=20); -moz-opacity: 0.20; }"
        fhta.WriteLine ".handle-1 { filter: alpha(opacity=40); -moz-opacity: 0.40; }"
        fhta.WriteLine ".handle-2 { filter: alpha(opacity=60); -moz-opacity: 0.60; }"
        fhta.WriteLine ".handle-3 { filter: alpha(opacity=80); -moz-opacity: 0.80; }"
        fhta.WriteLine ".handle-4 { filter: alpha(opacity=100); -moz-opacity: 1; }"
        fhta.WriteLine "</style>"
        fhta.WriteLine "</HEAD>"
        fhta.WriteLine "<BODY text=""white""><CENTER><DIV><SPAN ID=""ProgressBar""></SPAN>"
        fhta.WriteLine "<span><marquee DIRECTION=""LEFT"" SCROLLAMOUNT=""3"" BEHAVIOR=ALTERNATE><font face=""Comic sans MS"">" & MsgAttente &"</font></marquee></span></DIV></CENTER></BODY></HTML>"
        fhta.WriteLine "<div>"
        fhta.WriteLine "<marquee direction=""right"" scrollamount=""10"" BEHAVIOR=ALTERNATE>"
        fhta.WriteLine "<span class=""handle-0""></span>"
        fhta.WriteLine "<span class=""handle-1""></span>"
        fhta.WriteLine "<span class=""handle-2""></span>"
        fhta.WriteLine "<span class=""handle-3""></span>"
        fhta.WriteLine "<span class=""handle-4""></span>"
        fhta.WriteLine "</marquee>"
        fhta.WriteLine "</div>"
        fhta.WriteLine "<SCRIPT LANGUAGE=""VBScript""> "
        fhta.WriteLine "Set ws = CreateObject(""wscript.Shell"")"
        fhta.WriteLine "Temp = WS.ExpandEnvironmentStrings(""%Temp%"")"
        fhta.WriteLine "Sub window_onload()"
        fhta.WriteLine "    CenterWindow 480,110"
        fhta.WriteLine "    Self.document.bgColor = ""DarkOrange"" "
        fhta.WriteLine " End Sub"
        fhta.WriteLine " Sub CenterWindow(x,y)"
        fhta.WriteLine "    Dim iLeft,itop"
        fhta.WriteLine "    window.resizeTo x,y"
        fhta.WriteLine "    iLeft = window.screen.availWidth/2 - x/2"
        fhta.WriteLine "    itop = window.screen.availHeight/2 - y/2"
        fhta.WriteLine "    window.moveTo ileft,itop"
        fhta.WriteLine "End Sub"
        fhta.WriteLine "</script>"
        fhta.close
    End Sub
    '**********************************************************************************************
    Sub LancerProgressBar()
        Set oExec = Ws.Exec("mshta.exe " & Temp & "\Barre.hta")
    End Sub
    '**********************************************************************************************
    Sub FermerProgressBar()
        oExec.Terminate
    End Sub
    '**********************************************************************************************
    'Fonction pour ajouter les doubles quotes dans une variable
    Function DblQuote(Str)
        DblQuote = Chr(34) & Str & Chr(34)
    End Function
    '**********************************************************************************************
    'Fonction pour formater et remplacer les caractères spéciaux unicode dans le LogFile
    Function Formater(File)
        Dim fso,fRead,fWrite,Text
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set fRead = fso.OpenTextFile(File,1)
        Text = fRead.ReadAll
        fRead.Close
        Set fWrite = fso.OpenTextFile(File,2,True)
        Text = Replace(Text,"‚","é")
        Text = Replace(Text,"&#1746;"," ")
        Text = Replace(Text,"ˆ","ê")
        Text = Replace(Text,"‡","ç")
        Text = Replace(Text,"“","ô")
        Text = Replace(Text,"…","à")
        Text = Replace(Text,"&#1657;","è")
        Text = Replace(Text,"ƒ","â")
        Text = Replace(Text,"?"," ")
        fWrite.WriteLine Text
        Formater = Text
    End Function
    '***********************************************************************************************

  7. #7
    Candidat au Club
    Homme Profil pro
    Technicien réseaux et télécoms
    Inscrit en
    mars 2017
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Technicien réseaux et télécoms

    Informations forums :
    Inscription : mars 2017
    Messages : 6
    Points : 3
    Points
    3

    Par défaut

    Bonsoir hackoofr

    Merci pour votre implication, je n'arrive pas à intégrer votre script dans le mien :/

  8. #8
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 050
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 050
    Points : 4 683
    Points
    4 683

    Par défaut

    Pour hackoofr
    Les 2 lignes 124 et 129 ne peuvent être traitées. il fallait mettre :
    ligne 124 : Text = Replace(Text,ChrW(1746)," ") .
    ligne 129 : Text = Replace(Text,ChrW(1657),"è") .

    A ta place, j'aurais fait plus simple pour les lignes 123 à 131(quand il y a beaucoup de caractères à remplacer) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    TB = Array("‚", ChrW(1746), "ˆ", "‡", "“", "…", ChrW(1657), "ƒ", "?")
    TbOut = Array("é", " ", "ê", "ç", "ô", "à", "è","â", " ")
    For i = 0 to Ubound(Tb)
        If InStr(1, Text, TB(i)) > 0 Then Text = Replace(Text, TB(i), TbOut(i))
    Next
    Pour sys.midou :

    En fait ce qui est à intégrer ce n'est pas le script lui-même mais le fichier(son code) Barre.hta que tu trouveras dans le dossier "Temp"
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

Discussions similaires

  1. Progress Bar dans Access
    Par shr3dpit dans le forum VBA Access
    Réponses: 6
    Dernier message: 24/11/2007, 05h52
  2. Progress Bar dans Tkinter ou autre module
    Par will97 dans le forum Tkinter
    Réponses: 3
    Dernier message: 16/03/2007, 23h11
  3. Contrôler progress bar dans IE
    Par gverca dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 18/01/2007, 12h50
  4. [MFC] Progress Bar dans un CButton
    Par Aymerik dans le forum MFC
    Réponses: 4
    Dernier message: 03/04/2006, 16h39
  5. progress bar dans une status bar ?
    Par raggadoll dans le forum C++Builder
    Réponses: 1
    Dernier message: 02/11/2005, 15h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo