Patcher

[kommen13]

Hay lieber User,

Ich weiß es ist scheiße, aber jeder hat mal hilfe gebraucht und konnte nicht alles sofot aufeinmal, bei mir ist es der Flyff-Patcher. Nun wollte ich euch fragen, weil ich es nicht hinbekomme, ob mir einer von euch evtl einen Patcher Erstellen kann.

Ich habe:
-Titanium
-2 Verschiedene Patcher ( einer von BloodyFlyffFiles dabei gewesen) ( einer von einem anderen P-Server)
-Reshacker
-Hex editor

Die TuT's sind meist für anfänger nicht vertsändlich, geschweige denn da passt irgentwas.


Fall mir einer helfen möchte , Skype = tobi-aus-nairobi

Danke im Vorraus!

lg

[Shyo.]

nutz doch von sedrika den patcher sehr gut erklärt und einfach zu erstellen dazu ist die patcht list auch einfach

Link:

[kommen13]

Danke Shyo, habe den ja noch nie gefunden auf Epvp, sieht cool aus ich probiers gleich mal

[Shyo.]

Originally Posted by kommen13

Danke Shyo, habe den ja noch nie gefunden auf Epvp, sieht cool aus ich probiers gleich mal

Kein Problem, bei Fragen frag mich ruhig oder wenn du hilfe brauchst

[kommen13]

Ok Erste xD : Ich habe meinen Server auf meinem Laptop da er i7 und 8gb besitzt , habe Xampp , apache und MySQL Läuft, aber was ist nun mein Patch URL ? :O , muss ich in Htdocs einen Ordner erstellen der "Patch" heißt ? aber dann kann ich ja nicht angeben im Patcher Source : C://Programme/Xampp ? ^^

[Shyo.]

du machst in htdocs ein ordner namens "patch" dann gehste auf den ordner drauf dann müsste bei global dann so ne ip stehen die ersetzte in deine und das wars aber hinten muss auch patch stehen genau so geschrieben und "/" das nicht vergessen

[kommen13]

Habe jetzt alles in der Globalvonfig eingestell bzw meine IP's eingetragen mit /news.php... etc .. , aber das ist irgetnwie eine reine Source , da ist nicht zum Starten drin

Ok hat sich denke ich erledigt Brauche Visual Epress irgetnwas 2010
OK DOCH NICHT immernoch bei dem Problem das da kein Arte vom Patcher ist -.-" bin ihc so dumm ?!?! -.-

[Shyo.]

ja dass musste erst erstellen mit Visual basic

Link:

danach in sedrika open source öffnest du damit all und gehst da bei updater,patcher,patch list mit rechtsklick drauf dann erstellen, danach in sedrika patcher dann auf bin danach realease, taddaaa da ist dein patcher und das selbe dann bei patchlist un updater..

Und hir noch ein Tut wie mann xampp hacksicher macht:

Link:

[kommen13]

In der all datei kommt das wenn ich es öffne :

Dort kann ich aber nirgents rechtlick und erstellen ? >.<

Imports System.IO
Imports System.Drawing
Imports System.Threading
Imports System.Windows.Forms
Public Class PatchListCreator

Dim sLine As String ' Für die Zeilen der Textdatei
Dim MaxLine As Array ' Für die Zeilen der Textdatei
Dim oStream As IO.StreamReader ' Zum auslesen der Textdatei

#Region "Form"
' Form Bewegen
Private ptMouseDownLocation As Point
Private Sub f_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
ptMouseDownLocation = e.Location
End If
End Sub
Private Sub f_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Location = e.Location - ptMouseDownLocation + Me.Location
End If
End Sub

Private Sub PatchListCreator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Icon = My.Resources.icon
TextBox1.Text = My.Settings.RootPath
End Sub
#End Region

#Region "Button"
' Exit Button
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If TextBox1.Text <> "" And Directory.Exists(TextBox1.Text) Then
My.Settings.RootPath = TextBox1.Text
My.Settings.Save()
End If
If IO.File.Exists("gzip.exe") Then IO.File.Delete("gzip.exe")
Me.Close()
End Sub
Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
Label1.Image = Nothing
End Sub
Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
Label1.Image = My.Resources.X
End Sub
#End Region

#Region "Textbox"
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Directory.Exists(TextBox1.Text) Then
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Else
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
End If
End Sub
#End Region

#Region "Button"
Private Sub Button(ByVal bool As Boolean)
Button1.Enabled = bool
Button2.Enabled = bool
Button3.Enabled = bool
End Sub

' Compress
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button(False)
Dim Path As String = My.Computer.FileSystem.SpecialDirectories.Temp 'Application.StartupPath
Dim content As String = "dir " & Ansi() & TextBox1.Text & Ansi() & " /B /S > " & Ansi() & Path & "\list.txt" & Ansi()
If File.Exists(Path & "\list.bat") Then
File.Delete(Path & "\list.bat")
End If

File.AppendAllText(Path & "\list.bat", content)
Process.Start(Path & "\list.bat")
Thread.Sleep(200)
File.Delete(Path & "\list.bat")

Do Until File.Exists(Path & "list.txt") : Loop

oStream = New StreamReader(Path & "\list.txt") 'Datei zum lesen auswählen
MaxLine = File.ReadAllLines(Path & "\list.txt")
If Not File.Exists("gzip.exe") Then
File.WriteAllBytes("gzip.exe", My.Resources.gzip)
delay(1000)
End If
Dim count As Int32 = 0
Do
Do While Process.GetProcessesByName("gzip").Length > MAX_GZIP
' warten
Loop
sLine = oStream.ReadLine() ' Zeile lesen
Try
Dim fi As New FileInfo(sLine)
Dim p As New Process
If Not sLine.EndsWith(".gz") And Not sLine.Contains("list.txt") And Not sLine.Contains("NewPatcher.exe") Then
count += 1
Label4.Text = count & "/" & MaxLine.Length
p.StartInfo.FileName = "gzip.exe"
p.StartInfo.Arguments = "-f -q " & Ansi() & sLine & Ansi()
p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
p.Start()
End If
Application.DoEvents()
Catch : End Try
Loop Until oStream.EndOfStream
oStream.Close()
If File.Exists(Path & "\list.txt") Then
File.Delete(Path & "\list.txt")
End If
Do While Process.GetProcessesByName("gzip").Length > 0
' warten
Loop
Label4.Text = "Finished"
Button(True)
End Sub
' Decompress
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button(False)
Dim Path As String = My.Computer.FileSystem.SpecialDirectories.Temp 'Application.StartupPath
Dim content As String = "dir " & Ansi() & TextBox1.Text & Ansi() & " /B /S > " & Ansi() & Path & "\list.txt" & Ansi()
If File.Exists(Path & "\list.bat") Then
File.Delete(Path & "\list.bat")
End If

File.AppendAllText(Path & "\list.bat", content)
Process.Start(Path & "\list.bat")
Thread.Sleep(200)
File.Delete(Path & "\list.bat")

Do Until File.Exists(Path & "list.txt") : Loop

oStream = New StreamReader(Path & "\list.txt") 'Datei zum lesen auswählen
MaxLine = File.ReadAllLines(Path & "\list.txt")
If Not File.Exists("gzip.exe") Then
File.WriteAllBytes("gzip.exe", My.Resources.gzip)
delay(1000)
End If
Dim count As Int32 = 0
Do
Do While Process.GetProcessesByName("gzip").Length > MAX_GZIP
' warten
Loop
sLine = oStream.ReadLine() ' Zeile lesen
Try
Dim fi As New IO.FileInfo(sLine)
Dim p As New Process
If sLine.EndsWith(".gz") Then
count += 1
Label4.Text = count & "/" & MaxLine.Length
p.StartInfo.FileName = "gzip.exe"
p.StartInfo.Arguments = "-f -q -d " & Ansi() & sLine & Ansi()
p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
p.Start()
End If
Catch : End Try
Application.DoEvents()
Loop Until oStream.EndOfStream
oStream.Close()
If File.Exists(Path & "\list.txt") Then
File.Delete(Path & "\list.txt")
End If
Do While Process.GetProcessesByName("gzip").Length > 0
' warten
Loop
Label4.Text = "Finished"
Button(True)
End Sub
' Create List
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button(False)
Dim Path As String = My.Computer.FileSystem.SpecialDirectories.Temp 'Application.StartupPath
Dim content As String = "dir " & Ansi() & TextBox1.Text & Ansi() & " /B /S > " & Ansi() & Path & "\list.txt" & Ansi()
If File.Exists(Path & "\list.bat") Then
File.Delete(Path & "\list.bat")
End If
If File.Exists(TextBox1.Text & "\list.txt") Then
File.Delete(TextBox1.Text & "\list.txt")
End If
File.AppendAllText(Path & "\list.bat", content)
Thread.Sleep(200)
Process.Start(Path & "\list.bat")
Thread.Sleep(200)
File.Delete(Path & "\list.bat")

Do Until File.Exists(Path & "list.txt") : Loop

oStream = New StreamReader(Path & "\list.txt") 'Datei zum lesen auswählen
MaxLine = File.ReadAllLines(Path & "\list.txt")
Dim count As Int32 = 0
Dim output As String = "VER: " & VER & vbNewLine
Do
count += 1
sLine = oStream.ReadLine() ' Zeile lesen
If Not sLine.Contains("NewPatcher.exe") And Not sLine.Contains("list.txt") Then
Try
Dim fi As New FileInfo(sLine)
Dim str As String = sLine.Replace(TextBox1.Text & "\", Nothing) & ".gz"
str &= "|" & fi.Length.ToString
If USE_MD5 Then
str &= "|" & FileMd5(sLine)
End If
output &= vbNewLine & Crypt(str)
Label4.Text = count & "/" & MaxLine.Length
Application.DoEvents()
Catch : End Try
End If
Loop Until oStream.EndOfStream
oStream.Close()

If File.Exists(TextBox1.Text & "\list.txt") Then
File.Delete(TextBox1.Text & "\list.txt")
Thread.Sleep(200)
End If
If File.Exists(Path & "\list.txt") Then
File.Delete(Path & "\list.txt")
Thread.Sleep(200)
End If

File.AppendAllText(TextBox1.Text & "\list.txt", output)
Label4.Text = "Finished"
Button(True)
End Sub
#End Region

End Class

[Shyo.]

du musst all mit visual basic öffnen dort sind dann so hauptordner mit sedrika patcher,creator list und update dort rechts klick drauf dann erstellen

[kommen13]

Da, hab sie gefunden und erstellt, wenn ich jetzt die Patchlist erstellen möchte, muss ich ja einen Pfad angeben was Comprimiert werden soll oder ? , wo muss dieser Pfad hin ?
Sry das ich soviel / dumme fragen frage , bin aber halt noch am anfang *_*

[Shyo.]

wenn du den patchlist creator öffnest dann ist oben so ein weißes lleres kästchen da musste dein pfad einfügen z.b. C:\Xampp\htdocs/patch das fügste oben ein. was du patchen willst muss im ordner drinn sein dann drückste create list danach compress und dann sollte er patchen, wenn du die patchen weggmachen willst bzw löschen willst "decompress"

[kommen13]

Kann ich auch den Kompletten Client Patchen lassen ?

wenn ich auf Create List gehe Hängt sich der mist auf -.-"

[Shyo.]

ja nimm mal ne ältere version die neue von sedrika funkt noch nicht so richtig nimm am besten die 5. von oben

ja kannst du

[kommen13]

Ja muss das dann z.B. aussehen wenn ich den Clienten Patchen lassen will ? , den Client einfach in htdocs in "Patch" ?



Kann jemand da was mit anfangen , dies passiert wenn ich auf Create List klicke , erscheint die Consolo kurz und verschwindet wieder, darauf folgt dieser Error :/