Brauche Dringend Hilfe

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    Brauche Dringend Hilfe

    Hallo ich bin neu hier im Forum und benötige eure Hilfe! <3. Ich habe ein Problem das ich nicht gelöst bekomme, es geht darum das in dem script das ich benutze er mir die patch.txt datei garnicht ausliest und egal was in der patch.txt drinne steht er alles neu von meinem FTP Server runterlädt obwohl in der patch.txt nur locale_de.eix steht lädt er mir beide dateien runter. Das ist der Script:

    Visual Basic-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Button1.Enabled = False
    5. Button1.Text = "Please Wait..."
    6. TextBox1.Text = "Patch gestartet."
    7. ProgressBar1.Value = "1"
    8. Timer1.Start()
    9. End Sub
    11. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    12. ProgressBar1.Value = "2"
    13. TextBox1.Text = "patch.txt wird geprüft."
    14. If My.Computer.FileSystem.FileExists("patch.txt") Then
    15. My.Computer.FileSystem.DeleteFile("patch.txt")
    16. TextBox1.Text = "patch.txt wurde gelöscht."
    17. End If
    18. My.Computer.Network.DownloadFile("http://www.deinemt2homepage.net/patch/patch.txt", "patch.txt")
    19. TextBox1.Text = "Neue patch.txt runtergeladen."
    20. ProgressBar1.Value = "3"
    21. '-------------------------------------------LOCALE_DE.EIX----------------------------------------
    23. TextBox1.Text = "locale_de.eix wird geprüft."
    24. If My.Computer.FileSystem.FileExists("pack/locale_de.eix") Then
    25. My.Computer.FileSystem.DeleteFile("pack/locale_de.eix")
    26. TextBox1.Text = "locale_de.eix wurde gelöscht."
    27. End If
    28. My.Computer.Network.DownloadFile("http://www.deinemt2homepage.net/patch/locale_de.eix", "pack/locale_de.eix")
    29. TextBox1.Text = "Neue locale_de.eix runtergeladen."
    30. ProgressBar1.Value = "4"
    31. '-------------------------------------------LOCALE_DE.EPK----------------------------------------
    32. TextBox1.Text = "locale_de.epk wird geprüft."
    33. If My.Computer.FileSystem.FileExists("pack/locale_de.epk") Then
    34. My.Computer.FileSystem.DeleteFile("pack/locale_de.epk")
    35. TextBox1.Text = "locale_de.epk wurde gelöscht."
    36. End If
    37. ProgressBar1.Value = "5"
    38. My.Computer.Network.DownloadFile("http://www.deinemt2homepage.net/patch/locale_de.epk", "pack/locale_de.epk")
    39. TextBox1.Text = "Neue locale_de.epk runtergeladen."
    41. TextBox1.Text = "Patchen erfolgreich"
    42. ProgressBar1.Value = "100"
    44. If My.Computer.FileSystem.FileExists("fd.exe") Then
    45. Button1.Text = "xA Starten"
    46. Button1.Enabled = True
    47. If Button1.Text = "AX Starten" Then
    48. Shell("hf.exe")
    49. End If
    50. Else
    51. Button1.Text = "Client exsistiert nicht!"
    52. TextBox1.Text = "Client RUNTERLADEN!"
    53. End If
    54. Timer1.Stop()
    55. End Sub
    56. End Class

    was muss den im script geändert werden das er nur sachen runterlädt die in der patch.txt drinne stehen ??? ich hoffe das mir hier jemand weiterhelfen kann <3

    MFG. Holy :love:

    Puuuuh. Wo soll man da anfangen?
    1. Warum ein Timer? Du kannst daraus eine Funktion machen und sie einfach ausrufen?
    2. Warum alles einzeln prüfen? Bzw "hardcodet" prüfen? Man kann wunderbar eine Schleife zum Einsatz bringen, in der du auch mehrere Dateien hinzufügen kannst, ohne den Patcher updaten zu müssen.
    3. Zeile 44: Was ist das für eine komische If?! Was bezweckst du damit?
    4. Die ProgessBar nimmt Zahlenwerte, du gibst ihn aber Strings (= Zeichenketten).

    Visual Basic-Quellcode

    1. ProgressBar1.Value = 100
    So wäre es korrekt.
    5. Du mischt da viele Sachen miteinander. Aus dem Button wird ein Anzeigeobjekt und für Leute die deinen Code sehen, müssen sich erstmal den Kopf zerbrechen, was du da überhaupt machst.



    Mfg.
    SAR

Facebook