[Summary view] [Print] [Text view]

   1  ; Script qui lit le contenu de C:windowswpkg-msg.txt et qui affiche la dernière ligne de ce fichier.
   2  ; ce script s'arrête quand une ligne "FIN WPKG" est lue
   3  
   4  ; force l'affichage de l'icone autoit à côté de l'horloge.
   5  AutoItSetOption("TrayIconHide", 0)
   6  
   7  
   8  $file=EnvGet("windir")&"\wpkg-msg.txt"
   9  
  10  ; on conserve la dernière ligne affichée pour ne pas ouvrir de nouveau un tooltip qui aurait été fermé par l'user.
  11  $oldline=""
  12  
  13  While 1
  14      If FileExists($file) Then
  15          ;MsgBox(4096,"", $file & " existe.")
  16          $read = FileOpen($file, 0)
  17  
  18          ; Vérifie si l'ouverture du fichier en OK pour la lecture
  19          If $read = -1 Then
  20              MsgBox(0, "Error", "Fichier " & $file & " inacessible en lecture. Cela ne doit normalement jamais se produire.")
  21              Exit
  22          EndIf
  23  
  24          ; lit la dernière ligne du fichier ouvert $file
  25          $line = FileReadLine($read,-1)
  26          ;MsgBox(4096,"", "Dernière ligne lue : " & $line)
  27  
  28          If $line == "FIN WPKG" Then
  29              ; on affiche un message de fin d'install wpkg et on quitte proprement en fermant l'accès au fichier
  30              TrayTip("Information : ", "L'installation, la mise à jour et la désinstallation des applications en arrière plan est terminée.", 10, 1 + 16)
  31              FileClose($read)
  32              Sleep(5000)
  33              Exit(0)
  34          Else
  35              ; si la dernière ligne lue il y a 3 secondes est la même que celle lue à l'instant, on n'affiche rien.
  36              If $line <> $oldline Or $line == "" Then
  37                  ; affiche la dernière ligne de $file à côté de l'horloge en supprimant le son (+16)
  38                  TrayTip("Information : ", $line, Default, 0 + 16)
  39              EndIf
  40          EndIf
  41          $oldline = $line
  42          FileClose($read)
  43      ;Else
  44      ;    MsgBox(4096,"", $file & " n'existe pas.")
  45      ;    Exit
  46      EndIf
  47      ; actualisation de l'affichage toutes les secondes
  48      ; ne pas mettre plus sans modifier wpkg-client.vbs qui fait une pause de 2 secondes dans la fonction TooltipEnd
  49      Sleep(1000)
  50  WEnd