Hallo,
ich habe folgendes Problem:
Ich habe für eins meiner Programme ein UpdateScript geschrieben, was einer Datei auf 'nem FTP-Server die aktuellste Versionsnummer auslesen soll.
Unter Win 7 (Win Vista kann ich nicht sagen) läuft das ganze Prima, jedoch passiert bei XP nichts.
Da ich selber keinen XP-Rechner habe, kann ich dass nicht nachvollziehen, vielleicht könnte einer von Euch mir helfen.
Source:
Spoiler anzeigen
#include <FTPEx.au3>
#include<String.au3>
$SERVER = "server"
$USERNAME = "user"
$PASS = "pw"
$OPEN = _FTP_OPEN("FTP")
$CONN = _FTP_CONNECT($OPEN, $SERVER, $USERNAME, $PASS)
$FILE = _FTP_FILEOPEN($CONN, "version.txt", $GENERIC_READ, $INTERNET_FLAG_TRANSFER_ASCII)
$READ = _FTP_FILEREAD($FILE, 2048)
_FTP_CLOSE($OPEN)
$HEX2STRING = _HEXTOSTRING($READ)
ConsoleWrite($HEX2STRING & @CRLF)
$LOCVERS = IniRead("version.ini", "Version", "Version", "Coudln't find value")
If $LOCVERS < $HEX2STRING Then
HTTPSETUSERAGENT("irgendwasanderes")
$HDOWNLOAD = InetGet("server\bin\" & $HEX2STRING & "\program.exe", @ScriptDir & "\program.exe", 1, 1)
TrayTip("Programm: Update wird durchgeführt...", "Die neuste Version wird gedownloadet...", 5, 1)
Do
Sleep(250)
Until INETGETINFO($HDOWNLOAD, 2)
Local $ADATA = INETGETINFO($HDOWNLOAD)
INETCLOSE($HDOWNLOAD)
If $ADATA[3] = True Then
IniWrite("version.ini", "Version", "Version", $HEX2STRING)
Run("program.exe")
ElseIf $ADATA[3] = False Then
TrayTip("Leert einen Traytip", "", 0)
TrayTip("Update Fehlgeschlagen!", "Konnte Datei nicht runterladen. Später nocheinmal probieren.", 5, 1)
Sleep(5000)
EndIf
EndIf
Etwaige Fehler sollten nur durch entfernen der persönlichen Daten passiert sein.
Grüße