elitepvpers - [How to]Script your own Patcher

elitepvpers (https://www.elitepvpers.com/forum/)

- Metin2 PServer Guides & Strategies (https://www.elitepvpers.com/forum/metin2-pserver-guides-strategies/)

- - [How to]Script your own Patcher (https://www.elitepvpers.com/forum/metin2-pserver-guides-strategies/583452-how-script-your-own-patcher.html)

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        ' Disable button.

        Me.Button1.Enabled = False



        ' Declare variables.

        Dim link As String = "http://lcr-samp.k1.cx/"

        Dim list As String = link + "metin2/patchconfig.cfg"

        Dim local As String = Environment.CurrentDirectory + "\patchconfig.cfg"

        Dim client As New Net.WebClient

        Dim counter As Int32

        Dim files As New List(Of String)



        ' Try to download our list file.

        Try

            client.DownloadFile(list, local)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

            Exit Sub

        End Try



        ' If all is ok check how many files we have.

        Using rd As New IO.StreamReader(local)

            Dim _ln As String = String.Empty



            Do While rd.Peek() <> -1

                _ln = rd.ReadLine()



                If Not _ln = String.Empty Then

                    files.Add(_ln)

                    counter += 1

                End If

            Loop



            rd.Close()

        End Using



        ' Set maximum file number.

        ProgressBar1.Maximum = counter



        ' Check our files.

        For Each _file In files



            Dim _lc As String = Environment.CurrentDirectory + "\" + _file.Replace("/", "\")



            ' Try to get new one.

            Try

                If IO.File.Exists(_lc) Then IO.File.Delete(_lc)

                client.DownloadFile(link + _file, _lc)

            Catch ex As Exception

                MessageBox.Show(ex.Message)

                Exit Sub

            End Try



            Me.ProgressBar1.Value += 1

        Next



        Me.Button1.Enabled = True

    End Sub

So kannste dein Problem lösen! Ich würde dir raten schon einen fertigen Patcher zu nehmen, da die Anleitung hier zeigt nur wie man eine Datei runterläd. Es prüft garnicht ob die Datei veraltet ist. Dadurch wirst du immer und immer wieder die Datei runterladen müssen.

Nope musst du nicht wie ich schon erklärt habe ;)
Man muss immer nur in der Patchliste eintragen was er downloaden muss!
€dit: Ich hab ihm schon per Skype gezeigt wie man es richtig macht ;)

geil danke für dass Update :=)

Jo ich hoffe ich konnte euch helfen ;)
PS: Bei Verbesserungsvorschlägen pn´t mich oder schreibt sie hierein!

#push bitte zeigt mir doch mal eure Ergebnisse :(
ps: ist kein doppelpost sondern ein push :D

Da klappt gar nichts, das tut ist so unübersichtlich, man weiß nich woraus er den link nimmt, woher soll er die Adresse wissen ? einfach bei "& Link &" den Link eintragen oder was ?

Genau!
Und warum findest du es unübersichtlich?

Quote:

Originally Posted by bestshocker (Post 5628565)

#push bitte zeigt mir doch mal eure Ergebnisse :(
ps: ist kein doppelpost sondern ein push :D

#Report wegen pushen

Darf man das nicht Oo

Quote:

Originally Posted by ĸαɴo (Post 5643656)

#Report wegen pushen

1. heißt es "#report"ed""
2. davon abgesehen wäre sein Thread eh nicht untergegangen und er wollte auch noch wissen, was aus den Patchern geworden ist, den die anderen gemacht haben.
Und wieso bekommst du immer von "Deryam" ein Thx ? o.O
Double acc. ?

Ein Verbesserungsvorschlag: Prüfung des md5 hash codes ;) und das vergleichen