So, liebe Comm., es ist soweit, diesmal veröffentliche ich wieder irgendeinen Schutt, der was weiß ich wie alt ist xD - kb. auf's Datum der Erstellung zu gucken

. Da der Patcher voll alt ist wurde er länger nicht mehr geupdatet und damals waren meine VB-Kenntnisse auch nicht gerade "gut" - heute schreibe ich in pure C++(nur zur Info). Naja, wer ihn baucht kann ihn sich im Anhang herunterladen.
Programmiersprache: VB. Falls jemand diesen Patcher wirklich nutzen will sollte er statt Splitten 'ne XML-Datei benutzen - wenn ich mal Zeit hab' mach ich das vllt..
@Alle Hater: Fahrt zur Hölle!
PS1: Patchlist-Ersteller ist mit dem Patcher im Packet.
PS2: Alle enthaltenden Bilder im Programm wurden rausgenommen - dh. ihr müsst euch selber welche besorgen

.
PS3: Internet Slashes und locale Slashes wegen der Verzeichnis-Funktion anpassen!
Fix:
Zeile 127 (nach "Size = New System.Drawing.Size(600, 521)"):
Code:
CreateDirectory(My.Computer.FileSystem.CurrentDirectory & "\" & CrclistSplitValues(0))
Vor End Class:
Code:
Public Sub CreateDirectory(ByVal Pfad As String)
If String.IsNullOrEmpty(Trim(Pfad)) Then
'Wenn Pfadangaben leer sind
Exit Sub
End If
Dim CleanPfad As String
If Pfad.Contains("\") = True Then
Dim Slash As Integer = InStrRev(Pfad, "\")
CleanPfad = Microsoft.VisualBasic.Left(Pfad, Slash)
Else
'Wenn kein Backslash vorhanden ist
Exit Sub
End If
if Not Directory.Exists(CleanPfad) then
'Wenn das extrahierte Verzeichnis nicht existiert
Directory.CreateDirectory(CleanPfad)
End If
End Sub
Bilder(noch von

):
VT:

kA wieso da Virus steht, aber zu 100% ist da keiner drin' (Sourcecode wdf)!