Updatefunktion

Um zu prüfen, ob ein Update für ein Skript möglch ist, muss im Skript selbst die Version abgelegt sein und der Ort im Internet, wo die aktuelle Version abgelegt ist.

Das kann beispielsweise im Skriptkopf wie folgt eingetragen und dann beim Update ausgelesen werden

  'FFSkriptVersion=3.03
  'FFSkriptURL=http://www.ffsf.de/local_links.php?catid=235&linkid=914

oder direkt in Konstanten definiert werden, was das Auslesen einspart

  const SkriptVersion = "3.03"
  const SkriptUrl = http://www.ffsf.de/local_links.php?catid=235&linkid=914

Für FF-Skripte bietet sich an, die aktuelle Versionsnummer auf der Downloadseite im Zubehörbereich einzutragen. Das erlaubt dann auch den Aufruf dieser Webseite, wenn ein Update
gewünscht wird. Hier ein Beispiel dafür, wie das aussehen kann: Downloadseite für das Skript Webschatten

Sind Skriptversion und aktuelle Version bekannt, kann aus einem Vergleich abgeleitet werden, ob ein Update möglich ist. Im folgenden Beispiel wird dann angeboten, direkt die Downloadseite aufzurufen.

  Option Explicit
  const SkriptVersion = "3.02"
  const SkriptUrl = "http://www.ffsf.de/local_links.php?catid=235&linkid=914"
  '************************************************************************
  'Suchen der Versionsangabe auf der SkriptURL und diese
  'vergleichen mit der SkriptVersion
 
  Dim objFS,WshShell
  Set objFS = CreateObject("Scripting.FileSystemObject")
  Set WshShell = CreateObject("WScript.Shell")
 
  Dim UrlVersion,UrlV_Zahl,SkriptV_Zahl
  Dim Abbruch : Abbruch = false
  '************************************************************************
 
  call Update
 
  '------------------------------------------------------------------------
  Sub Update
  Dim Antwort
 
  call Versionsermittlung_url
 
  if not Abbruch then
     SkriptV_Zahl = Replace(SkriptVersion,".","") *1
 
     if UrlV_Zahl = SkriptV_Zahl then
        msgbox "Die Version " & SkriptVersion & " ist aktuell!",vbInformation,"Versionsmeldung"
     elseif SkriptV_Zahl < UrlV_Zahl then
        Antwort = msgbox("Die Skriptversion " & SkriptVersion & " ist nicht mehr aktuell!" & vbNewLine &_
              "Es steht die Version " & UrlVersion & " zum Download bereit." & vbNewLine & vbNewLine & _
              "Soll die Downloadseite aufgerufen werden?",vbQuestion + vbYesNo,"Versionsmeldung")
        if Antwort = vbYes then
           on error resume next
           WshShell.Run SkriptUrl,1,false
           if err <> 0 then
              msgbox "Die Downloadseite wurde nicht gefunden!",vbExclamation,"Hinweis"
              err.clear
           end if
           on error goto 0
        end if
     else
        msgbox "Es liegt ein Fehler in den Versionsangaben vor." & vbNewLine &_
               "Die Skriptversion " & SkriptVersion & " ist größer als die auf" & vbNewLine &_
               "der Downloadseite angegebene Version " & UrlVersion & ".",vbInformation,"Fehlermeldung"
     end if
  end if
 
  End Sub
  '------------------------------------------------------------------------
  Sub Versionsermittlung_url
 
  Dim Inhalt,Start,Zeit,pos1,pos2,n
  Dim Browser
 
  on error resume next
      Set Browser = CreateObject("InternetExplorer.Application")
      Browser.Navigate SkriptUrl   'Zugriff auf die Internetseite
      if err.number > 0 then
          msgbox  "Der Internetexplorer kann nicht aufgerufen werden." & vbNewLine & _
                  "Damit steht die Updatefunktion nicht zur Verfügung!",vbCritical,"Hinweis"
          Abbruch = true
          exit sub
      end if
 
      'max. 6 sec. prüfen, ob die Seite geladen wurde
      Start = Timer
      do
         Inhalt = Browser.Document.Body.InnerHtml
         if instr(Inhalt,"Version") > 0 then exit do
 
         FF_Sleep(200)         'Zeit für die Arbeit des IE (wichtig!)
 
         Zeit = Timer - Start
         if Zeit < 0 then Start = Timer
 
      loop until Zeit > 6
  on error goto 0
 
  ' Ressourcen freigeben
  Browser.Quit
  Set Browser = Nothing
 
  if len(Inhalt) = 0 then
      msgbox  "Die Versionsangabe im Internet wurde nicht gefunden!" & vbNewLine &_
              "Möglicherweise funktioniert der Internetaufruf nicht." & vbNewLine & vbNewLine & _
              "Am besten nochmal probieren!",vbExclamation,"SkriptVersion " & SkriptVersion
      exit sub
  end if
 
  'Version ermitteln
  pos1 = instr(Inhalt,"Version")
  if pos1 > 0 then
     pos2 = instr(pos1,Inhalt,".")
     if pos2 > pos1 then
         UrlVersion = trim(mid(Inhalt,pos1,pos2-pos1 +3))
     else
         msgbox "Auf diesem Rechner funktioniert die Updatefunktion leider nicht!",vbCritical,"Updateinfo B"
         Abbruch = true
         exit sub
     end if
  else
     msgbox "Auf diesem Rechner funktioniert die Updatefunktion leider nicht!",vbCritical,"Updateinfo A"
     Abbruch = true
     exit sub
  end if
 
  'Version als Zahl
  pos1 = instr(UrlVersion," ")
  if pos1 = 0 then pos1 = 7
  UrlVersion = trim(mid(UrlVersion,pos1+1))
  UrlV_Zahl = Replace(UrlVersion,".","") *1
 
  End Sub
  '------------------------------------------------------------------------

Der Zugriff auf die Webseite zur Versionsermittlung kann auch über das Objekt XMLHTTP erfolgen wie es im Beitrag URL auslesen beschrieben ist. Der ist nach den letzten Erfahrungen schneller und zuverlässiger und wird daher empfohlen.

Die oben gezeigte Unterroutine Versionsermitllung_url kann dann beispielsweise wie folgt aussehen:

  Sub Versionsermittlung_url
 
  Dim objXML,Inhalt,Start,Zeit,pos1,pos2,n
  Dim Fehler : Fehler = false
 
  on error resume next
  Set objXML = CreateObject("Microsoft.XMLHTTP")
  objXML.Open "Get",SkriptUrl,false
  objXML.Send
 
  Inhalt = objXML.responseText
 
  if err > 0 then
     Fehler = true
  else
     'Version suchen und anzeigen
     pos1 = instr(Inhalt,"Version")
     if pos1 > 0 then
 
        pos2 = instr(pos1,Inhalt,"<br")
        if pos2 > 0 then
           UrlVersion = trim(mid(Inhalt,pos1,pos2-pos1))
        else
           Fehler = true
        end if
     else
        Fehler = true
     end if
  end if
 
  Set objXML = nothing
 
  if Fehler then
     msgbox  "Die Versionsangabe wurde nicht gefunden!" & vbNewLine &_
           "Möglicherweise funktioniert der Internetaufruf nicht." & vbNewLine & vbNewLine & _
           "Am besten nochmal probieren!",vbExclamation,"Fehlermeldung"
     Abbruch = true
     exit sub
  end if
 
  'Version als Zahl
  pos1 = instr(UrlVersion," ")
  if pos1 = 0 then pos1 = 7
  UrlVersion = trim(mid(UrlVersion,pos1+1))
  UrlV_Zahl = Replace(UrlVersion,".","") *1
 
  End Sub

Das Ganze setzt natürlich eine sorgfältige Pflege der Versionsangaben, sowohl im Skript als auch auf der Downloadseite voraus.

Der Aufruf des Updatetest könnte bei jedem Skriptstart erfolgen oder/und auf einen Befehl hin, der vom Benutzer ausgelöst wird.

'max. 3 sec. prüfen, ob die die Seite geladen ist
Start = Timer
do
on error resume next
Inhalt = Browser.Document.Body.InnerHtml
on error goto 0