McShark
Neuer User
- Mitglied seit
- 3 Mrz 2006
- Beiträge
- 150
- Punkte für Reaktionen
- 0
- Punkte
- 0
Noch eine Änderung in Function VersionsCheck(): Eine Abfrage ob der Text belegt ist. Das ist immer dann nicht der Fall, wenn die Webseite gerade nicht erreichbar ist und führt sonst immer zu einer Fehlermeldung bei der Zuweisung von neuVersion. Das habe ich schon ein paar mal beobachtet.
Code:
If Text <> "" Then
neuVersion = Left(Text, InStr(1, Text, ";", vbTextCompare) - 1)
If aktVersion < neuVersion Then
If MsgBox("Es gibt eine neue Version des Fritz!Box Telefon-dingsbums vom " & Mid(Text, InStr(1, Text, ";", vbTextCompare) + 1, 10) _
& "." & vbNewLine & "Ihre Version: " & aktVersion & " -> neue Version: " & neuVersion & vbNewLine & _
"Diese Datei(en) wurde(n) geändert: " & vbNewLine & Mid(Text, InStr(InStr(InStr(1, Text, ";", vbTextCompare) + 1, Text, ";", vbTextCompare) + 1, _
Text, ";", vbTextCompare) + 1) & vbNewLine & vbNewLine & "Möchten Sie die neue Version jetzt herunterladen?", vbYesNo) = vbYes Then
formConfig.Herunterladen neuVersion
End If
LogFile "Neue Version gefunden: " & neuVersion
End If
End If