.class Datein in eine .jar einfügen

  • VB.NET

Es gibt 35 Antworten in diesem Thema. Der letzte Beitrag () ist von propper.

    OK Ich habe mir die Libary gedownloaded aber welche Datei in diesem Archiv soll ich denn in die Verweise einfügen (habe noch nie eine externe Libary eingefügt ^^ )

    @VincentTB
    heißt du Vincentgri auf Youtube?? :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „propper“ ()

    Ja, ich bin Vincentgri :D

    Zu deinem Problem, die DLL befindet sich da: DotNetZipLib-DevKit-v1.9\Tools\Ionic.Zip.dll.
    Aber ich habs gerade getestet, bei Datei 34 bricht er ab, kann man glaube auch nicht umgehen...
    Was aber klappt ist das entpacken mit 7zip (es wird halt nur nicht die aux.class entpackt).
    Vielleicht könnte man es wie WinRAR versuchen, und die Datei in aux_class umbenennen und beim packen dann halt wieder in aux.class zu ändern.
    Das Problem haben viele, siehe *klick*

    Edit: Hier ist ne Lösung. Jetzt müsste man noch wissen, wie man 1. Dateien beim entpacken überspringt und 2. wie man Dateien in einem Archiv umbenennt, ohne es zu entpacken...
    Mfg
    Vincent

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VincentTB“ ()

    So, ich weiß nicht, ob das jetzt als Doppelpost betrachtet wird, aber es wird so unübersichtlich, wenn ich das editieren würde. Naja, ich habe die einfache Lösung :)
    Nachdem ich mich gestern noch mal zwei Stunden hingesetzt und verschiedene Sachen ausprobiert habe, kam mir in den Sinn, dass man ja eigentlich einfach nur die aux.class in dem Archiv umbenennen muss, dann entpackt man das Archiv, fügt Mods ein, und packt es wieder. Also, im Internet steht nicht viel von Dateien im Archiv ändern, aber dann habe ich endlich etwas gefunden, was funktioniert, ohne dass das ganze Archiv entpackt werden muss :D *klickl*

    Also geht ihr wie folgt vor:
    Ihr downloadet euch das, verweist auf die DLL und erstellt am besten eine neue Sub:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports ComponentAce.Compression.ZipForge
    3. Imports ComponentAce.Compression.Archiver
    5. Private Sub RenameFileInZip(ZipFile As String, oldName As String, newName As String)
    6. Dim archiver As ZipForge = New ZipForge()
    7. ' Set the name of the archive file we want to create
    8. archiver.FileName = ZipFile
    9. ' open an existing ZIP file
    10. archiver.OpenArchive(System.IO.FileMode.Open)
    11. ' rename a file in archive
    12. archiver.RenameFile(oldName, newName)
    13. ' close archive
    14. archiver.CloseArchive()
    15. End Sub

    Ihr ruft dass am besten so auf:

    VB.NET-Quellcode

    1. Me.RenameFileInZip(MinecraftZIP.FullName, "aux.class", "aux_class")


    Danach "konvertiert" ihr die Jar zum zip Archiv, entpackt das, fügt Mods ein, löscht den META-INF Ordner, und fügt das ganze wieder zu einem Archiv zusammen. Jetzt müsst ihr das Umbenennen nur noch rückgängig machen und schon habt ihr nen guten Modpack Installer :thumbup:
    Mfg
    Vincent

    Also ich habe es jetzt auch ausprobiert und das funktioniert(konvertieren zu .zip und die Datei umbenennen in aux_class):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub RenameFileInZip(ByVal ZipFile As String, ByVal oldName As String, ByVal newName As String)
    2. Dim archiver As ZipForge = New ZipForge()
    3. ' Set the name of the archive file we want to create
    4. archiver.FileName = ZipFile
    5. ' open an existing ZIP file
    6. archiver.OpenArchive(System.IO.FileMode.Open)
    7. ' rename a file in archive
    8. archiver.RenameFile(oldName, newName)
    9. ' close archive
    10. archiver.CloseArchive()
    11. End Sub
    13. Private Sub Button_patch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_patch.Click
    14. File.Copy("C:\Neu\minecraft.jar", "C:\Neu\minecraft.zip")
    15. RenameFileInZip("C:\Neu\minecraft.zip", "aux.class", "aux_class")
    16. End Sub

    aber bei diesen code ist was falsch:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Shared Sub CopyToZip(ByVal inArchive As String, ByVal outArchive As String, ByVal tempPath As String)
    2. Dim inZip As ZipFile = Nothing
    3. Dim outZip As ZipFile = Nothing
    5. Try
    6. inZip = New ZipFile(inArchive)
    7. outZip = New ZipFile(outArchive)
    8. Dim tempNames As New List(Of String)()
    9. Dim originalNames As New List(Of String)()
    10. Dim I As Integer = 0
    11. For Each entry As ZipEntry In inZip
    12. If Not entry.IsDirectory Then
    13. Dim tempName As String = Path.Combine(tempPath, "tmp.tmp")
    14. Dim oldName As String = entry.FileName
    15. Dim buffer As Byte() = New Byte(4025) {}
    16. Dim inStream As Stream = Nothing
    17. Dim stream As FileStream = Nothing
    18. Try
    19. inStream = entry.OpenReader()
    20. stream = New FileStream(tempName, FileMode.Create, FileAccess.ReadWrite)
    21. Dim size As Integer = 0
    22. While (InlineAssignHelper(size, inStream.Read(buffer, 0, buffer.Length))) > 0
    23. stream.Write(buffer, 0, size)
    24. End While
    25. inStream.Close()
    26. stream.Flush()
    27. stream.Close()
    28. inStream = New FileStream(tempName, FileMode.Open, FileAccess.Read)
    30. outZip.AddEntry(oldName, inStream)
    31. outZip.Save()
    32. Catch exe As Exception
    33. Throw exe
    34. Finally
    35. Try
    36. inStream.Close()
    37. Catch ignore As Exception
    38. End Try
    39. Try
    40. stream.Close()
    41. Catch ignore As Exception
    42. End Try
    43. End Try
    44. End If
    46. Next
    47. Catch e As Exception
    48. Throw e
    49. End Try
    50. End Sub

    Bei Zeile 22 zeigt er bei "InlineAssignHelper" immer einen Fehler an, das diese Instanz nicht deklariert wurde! Wie hast du das denn hinbekommen, dass das funktioniert? (Ich will ja nicht einfach ein Objekt deklarieren was den namen "InlineAssignHelper" trägt)
    Und dannnoch eine Frage:

    VB.NET-Quellcode

    1. Dim inZip As ZipFile = Nothing
    2. Dim outZip As ZipFile = Nothing

    Sollen da die Pfade zu der ZIP-Datei und der Datei zum hinzufügen hin oder was soll dahin?

    propper schrieb:

    InlineAssignHelper
    Das ist eine Hilfsfunktion, die du dir selbst definieren kannst

    VB.NET-Quellcode

    1. Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
    2. target = value
    3. Return value
    4. End Function
    -> learningthensharing.blogspot.de/2009/01/ftp-using-vbnet.html
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Also ich habe jetzt ein bisschen gesucht und in unserem Fall muss man ja erstmal InlineAssignHelper deklarieren und da ich nicht weiß was da rein muss habe ich versucht einfach so zu warten ohne zu gucken ob "inStream" oder so fertig ist:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Try
    2. inStream = entry.OpenReader()
    3. Stream = New FileStream(tempName, FileMode.Create, FileAccess.ReadWrite)
    4. Dim size As Integer = 0
    7. 'While (InlineAssignHelper(size, inStream.Read(buffer, 0, buffer.Length))) > 0
    8. 'stream.Write(buffer, 0, size)
    9. 'End While
    10. Dim time As Integer = 3000
    11. Dim Stopw As New Stopwatch
    12. Stopw.Start()
    13. Do Until Stopw.ElapsedMilliseconds >= time
    14. Application.DoEvents()
    15. Loop
    18. inStream.Close()
    19. Stream.Flush()
    20. Stream.Close()
    21. inStream = New FileStream(tempName, FileMode.Open, FileAccess.Read)
    23. outZip.AddEntry(oldName, inStream)
    24. outZip.Save()
    25. Catch exe As Exception
    26. Throw exe
    27. Finally

    Also habe ich versucht es auszuprobieren aber ich wusste gar nicht wie.
    Ich weiß nicht was bei InArchive, OutArcive und tempPath hin muss (also eigentlich überall ^^)
    Ich habe schon ein bisschen rumprobiert aber es hat nicht geklappt!

    EDIT: Vincent. Du hast es doch schonmal geschafft. Aber wie? :wacko: )

    ach so Ich hatte gedacht das währe ein Beispiel für dei Funktion! :D

    EDIT:
    Ich habe es immer noch nicht herausgefunden ?( .
    @VincentTB du hast es doch schon mal hinbekommen. Aber wie?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „propper“ ()

    Hier ist mein Code für einen funktionierenden Modinstaller. Ich bin leider zu faul, da jetzt alles auszukommentieren, such dir einfach das raus, was du wirklich brauchst, also nicht einfach Strg+A & Strg+C machen Manches wird dir nicht weiterhelfen, aber ich habe gerade echt wenig Zeit, alles rauszusortieren. Hoffe, ich kann damit dir und einigen anderen helfen.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System' This namespace contains the main class - ZipForge.
    3. Imports ComponentAce.Compression.ZipForge
    4. Imports ComponentAce.Compression.Archiver
    5. Imports System.IO
    6. Imports Ionic.Zip
    7. Imports System.Threading
    8. Imports System.ComponentModel
    9. Imports System.Text.RegularExpressions
    11. Public Class frm_main
    13. Private _backgroundWorker1 As System.ComponentModel.BackgroundWorker
    14. Private _saveCanceled As Boolean
    15. Private _totalBytesAfterCompress As Long
    16. Private _totalBytesBeforeCompress As Long
    17. Private _nFilesCompleted As Integer
    18. Private _progress2MaxFactor As Integer
    19. Private _entriesToZip As Integer
    20. Private rvn_ZipFile As String = "zipfile"
    21. Private rvn_DirToZip As String = "dirToZip"
    22. Private _operationCanceled As Boolean
    23. Private nFilesCompleted As Integer
    24. Private totalEntriesToProcess As Integer
    25. Private rvn_ExtractDir As String = "extractdir"
    26. Private WithEvents BGWStart As New BackgroundWorker
    29. Private Delegate Sub SaveEntryProgress(ByVal e As SaveProgressEventArgs)
    30. Private Delegate Sub ButtonClick(ByVal sender As Object, ByVal e As EventArgs)
    31. Private Delegate Sub ZipProgress(ByVal e As ExtractProgressEventArgs)
    34. Dim MinecraftJAR As String
    35. Dim MinecraftZIP As New FileInfo(Application.StartupPath & "\minecraft.zip")
    37. Const aux As String = "aux.class"
    39. Dim ExtractPath As New DirectoryInfo(Application.StartupPath & "\minecraftjarextract")
    41. Dim WithEvents wc As New Net.WebClient
    43. Dim zahl As Integer = 5
    44. Dim WithEvents BGWMods As New BackgroundWorker
    45. Dim filename As String
    47. Dim ModsOrdner As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods")
    48. Dim MinecraftOrdner As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft"
    49. Dim CoreModsOrdner As New DirectoryInfo(MinecraftOrdner & "\coremods")
    51. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    52. Dim minecraftjardatei As New FileInfo(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft\bin\minecraft.jar"))
    54. txt_minecraftpfad.Text = minecraftjardatei.FullName
    56. If Not ModsOrdner.Exists Then
    57. ModsOrdner.Create()
    58. End If
    59. End Sub
    61. Private Sub SetProgressBars()
    62. If Me.prg_process.InvokeRequired Then
    63. 'Me.ProgressBar1.Invoke(New MethodInvoker(Me, DirectCast(Me.SetProgressBars, IntPtr)))
    64. Me.prg_process.Invoke(New MethodInvoker(AddressOf SetProgressBars))
    65. Else
    66. Me.prg_process.Value = 0
    67. Me.prg_process.Maximum = Me._entriesToZip
    68. Me.prg_process.Minimum = 0
    69. Me.prg_process.Step = 1
    70. Me.prg_process.Value = 0
    71. Me.prg_process.Minimum = 0
    72. Me.prg_process.Maximum = 1
    73. Me.prg_process.Step = 2
    74. End If
    75. End Sub
    77. Private Sub RenameFileInZip(ZipFile As String, oldName As String, newName As String)
    78. Dim archiver As ZipForge = New ZipForge()
    79. ' Set the name of the archive file we want to create
    80. archiver.FileName = ZipFile
    81. ' open an existing ZIP file
    82. archiver.OpenArchive(System.IO.FileMode.Open)
    83. ' rename a file in archive
    84. archiver.RenameFile(oldName, newName)
    85. ' close archive
    86. archiver.CloseArchive()
    87. End Sub
    89. Private Sub zip1_SaveProgress(ByVal sender As Object, ByVal e As SaveProgressEventArgs)
    90. If Me._saveCanceled Then
    91. e.Cancel = True
    92. Return
    93. End If
    95. Select Case e.EventType
    96. Case ZipProgressEventType.Saving_AfterWriteEntry
    97. Me.StepArchiveProgress(e)
    98. Exit Select
    99. Case ZipProgressEventType.Saving_Completed
    100. Me.SaveCompleted()
    101. Exit Select
    102. Case ZipProgressEventType.Saving_EntryBytesRead
    103. Me.StepEntryProgress(e)
    104. Exit Select
    105. End Select
    106. End Sub
    108. Private Sub StepArchiveProgress(ByVal e As SaveProgressEventArgs)
    109. If Me.prg_process.InvokeRequired Then
    110. Me.prg_process.Invoke(New SaveEntryProgress(AddressOf Me.StepArchiveProgress), New Object() {e})
    111. ElseIf Not Me._saveCanceled Then
    112. Me._nFilesCompleted += 1
    113. Me.prg_process.Style = ProgressBarStyle.Blocks
    114. Me.prg_process.PerformStep()
    115. Me._totalBytesAfterCompress = (Me._totalBytesAfterCompress + e.CurrentEntry.CompressedSize)
    116. Me._totalBytesBeforeCompress = (Me._totalBytesBeforeCompress + e.CurrentEntry.UncompressedSize)
    117. ' progressBar2 is the one dealing with the item being added to the archive
    118. ' if we got this event, then the add of that item (or file) is complete, so we
    119. ' update the progressBar2 appropriately.
    120. Me.prg_process.Value = CInt(Me.prg_process.Maximum = 1)
    121. MyBase.Update()
    122. End If
    123. End Sub
    126. Private Sub SaveCompleted()
    127. If Me.lblStatus.InvokeRequired Then
    128. Me.lblStatus.Invoke(New MethodInvoker(AddressOf SaveCompleted))
    129. 'Me.lblStatus.Invoke(New MethodInvoker(Me, DirectCast(Me.SaveCompleted, IntPtr)))
    130. Else
    131. Me.lblStatus.Text = String.Format("Done, Compressed {0} files, {1:N0}% of original", Me._nFilesCompleted, ((100 * Me._totalBytesAfterCompress) / CDbl(Me._totalBytesBeforeCompress)))
    132. Schritt3()
    133. End If
    134. End Sub
    136. Private Sub StepEntryProgress(ByVal e As SaveProgressEventArgs)
    137. If Me.prg_process.InvokeRequired Then
    138. Me.prg_process.Invoke(New SaveEntryProgress(AddressOf Me.StepEntryProgress), New Object() {e})
    139. ElseIf Not Me._saveCanceled Then
    140. If (Me.prg_process.Maximum = 1) Then
    141. Dim entryMax As Long = e.TotalBytesToTransfer
    142. Dim absoluteMax As Long = &H7FFFFFFF
    143. Me._progress2MaxFactor = 0
    144. Do While (entryMax > absoluteMax)
    145. entryMax = CLng((entryMax / 2))
    146. Me._progress2MaxFactor += 1
    147. Loop
    148. If (CInt(entryMax) < 0) Then
    149. entryMax = (entryMax * -1)
    150. End If
    151. Me.prg_process.Maximum = CInt(entryMax)
    152. Me.lblStatus.Text = String.Format("{0} of {1} files...({2})", (Me._nFilesCompleted + 1), Me._entriesToZip, e.CurrentEntry.FileName)
    153. End If
    154. Dim xferred As Integer = CInt((e.BytesTransferred >> Me._progress2MaxFactor))
    155. Me.prg_process.Value = CInt(IIf((xferred >= Me.prg_process.Maximum), Me.prg_process.Maximum, xferred))
    156. MyBase.Update()
    157. End If
    158. End Sub
    160. Private Sub ZipUp(tbDirToZip As String, tbZipToCreate As String)
    162. Dim folderName As String = tbDirToZip
    163. If (((Not folderName Is Nothing) AndAlso (folderName <> "")) AndAlso ((Not tbZipToCreate Is Nothing) AndAlso (tbZipToCreate <> ""))) Then
    164. If File.Exists(tbZipToCreate) Then
    165. If (MessageBox.Show(String.Format("The file you have specified ({0}) already exists. Do you want to overwrite this file?", _
    166. tbZipToCreate), "Confirmation is Required", _
    167. MessageBoxButtons.YesNo, MessageBoxIcon.Question) <> DialogResult.Yes) Then
    168. Return
    169. End If
    170. File.Delete(tbZipToCreate)
    171. End If
    172. Me._saveCanceled = False
    173. Me._nFilesCompleted = 0
    174. Me._totalBytesAfterCompress = 0
    175. Me._totalBytesBeforeCompress = 0
    176. Me.btn_start.Enabled = False
    177. Me.btnCancel.Enabled = True
    178. Me.lblStatus.Text = "Minecraft wird gepackt..."
    179. Dim options As New WorkerOptions
    180. options.ZipName = tbZipToCreate
    181. options.Folder = folderName
    183. _backgroundWorker1 = New System.ComponentModel.BackgroundWorker()
    184. _backgroundWorker1.WorkerSupportsCancellation = False
    185. _backgroundWorker1.WorkerReportsProgress = False
    186. AddHandler Me._backgroundWorker1.DoWork, New DoWorkEventHandler(AddressOf Me.DoSave)
    187. _backgroundWorker1.RunWorkerAsync(options)
    189. End If
    190. End Sub
    192. Private Sub UnzipFile(ByVal sender As Object, ByVal e As DoWorkEventArgs)
    193. Dim extractCancelled As Boolean = False
    194. Dim args() As String = CType(e.Argument, String())
    195. Dim zipToRead As String = args(0)
    196. Dim extractDir As String = args(1)
    198. Try
    199. Using zip As ZipFile = ZipFile.Read(zipToRead)
    200. totalEntriesToProcess = zip.Entries.Count
    201. SetProgressBarMax(zip.Entries.Count)
    202. AddHandler zip.ExtractProgress, New EventHandler(Of ExtractProgressEventArgs)(AddressOf Me.zip_ExtractProgress)
    203. zip.ExtractAll(extractDir, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)
    204. End Using
    205. Catch ex1 As Exception
    206. MessageBox.Show(String.Format("Ein problem ist beim entpacken aufgetreten. {0}", ex1.Message), "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
    207. End Try
    208. End Sub
    210. Private Sub zip_ExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)
    211. If _operationCanceled Then
    212. e.Cancel = True
    213. Return
    214. End If
    216. If (e.EventType = ZipProgressEventType.Extracting_AfterExtractEntry) Then
    217. StepEntryProgress(e)
    218. ElseIf (e.EventType = ZipProgressEventType.Extracting_BeforeExtractAll) Then
    219. '' do nothing
    220. End If
    221. End Sub
    223. Private Sub StepEntryProgress(ByVal e As ExtractProgressEventArgs)
    224. If prg_process.InvokeRequired Then
    225. prg_process.Invoke(New ZipProgress(AddressOf StepEntryProgress), New Object() {e})
    226. Else
    227. prg_process.PerformStep()
    228. System.Threading.Thread.Sleep(100)
    229. 'set a label with status information
    230. nFilesCompleted = nFilesCompleted + 1
    232. lblStatus.Text = String.Format("{0} of {1} files...({2})", nFilesCompleted, totalEntriesToProcess, e.CurrentEntry.FileName)
    233. Me.Update()
    234. End If
    235. End Sub
    237. Private Sub SetProgressBarMax(ByVal n As Integer)
    238. If prg_process.InvokeRequired Then
    239. prg_process.Invoke(New Action(Of Integer)(AddressOf SetProgressBarMax), New Object() {n})
    240. Else
    241. prg_process.Value = 0
    242. prg_process.Maximum = n
    243. prg_process.Step = 1
    244. End If
    245. End Sub
    247. Private Sub Schritt1() 'ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)
    248. Status("Füge Mods ein...")
    249. BGWMods.RunWorkerAsync()
    250. End Sub
    252. Private Sub Schritt3()
    253. tmr_close.Start()
    254. End Sub
    256. Private Sub Schritt2()
    257. Dim newminecraft As New FileInfo(txt_minecraftpfad.Text)
    258. Status("Packe das Archiv...")
    259. If newminecraft.Exists Then
    260. newminecraft.Delete()
    261. End If
    262. Me.Invoke(Sub() ZipUp(ExtractPath.FullName, newminecraft.FullName))
    263. End Sub
    265. Private Sub Status(State As String)
    266. Me.Invoke(Sub() lbl_action.Text = State)
    267. End Sub
    269. Private Sub btn_start_Click(sender As Object, e As EventArgs) Handles btn_start.Click
    270. btn_start.Enabled = False
    271. BGWStart.WorkerReportsProgress = True
    272. BGWStart.RunWorkerAsync()
    273. End Sub
    275. Private Sub BGWStart_DoWork(sender As Object, e As DoWorkEventArgs) Handles BGWStart.DoWork
    276. BGWStart.ReportProgress(Nothing, "Konvertiere minecraft.jar...")
    277. If MinecraftZIP.Exists Then
    278. MinecraftZIP.Delete()
    279. End If
    280. MinecraftJAR = txt_minecraftpfad.Text
    281. IO.File.Copy(MinecraftJAR, MinecraftZIP.FullName)
    282. If chk_backup.Checked Then
    283. Status("Backup wird erstellt...")
    284. Dim backupOrdner As New DirectoryInfo(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft\bin\Backup"))
    285. If Not backupOrdner.Exists Then
    286. backupOrdner.Create()
    287. End If
    288. Dim filename As String = DateTime.Now.ToString.Replace(":", "_")
    289. IO.File.Move(txt_minecraftpfad.Text, backupOrdner.FullName & "\" & filename & ".jar")
    290. End If
    291. BGWStart.ReportProgress(Nothing, "Ändere aux.class...")
    292. Me.RenameFileInZip(MinecraftZIP.FullName, aux, "aux_class")
    293. If ExtractPath.Exists = True Then
    294. IO.Directory.Delete(ExtractPath.FullName, True)
    295. End If
    296. ExtractPath.Create()
    297. BGWStart.ReportProgress(Nothing, "Entpacken...")
    299. Dim TargetDir As String = ExtractPath.FullName
    300. Using zip1 As ZipFile = ZipFile.Read(MinecraftZIP.FullName)
    301. AddHandler zip1.ExtractProgress, AddressOf MyExtractProgress
    302. Dim i As ZipEntry
    303. ' here, we extract every entry, but we could extract
    304. ' based on entry name, size, date, etc.
    305. For Each i In zip1
    306. i.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently)
    307. Next
    308. End Using
    310. End Sub
    312. Private Sub BGWStart_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BGWStart.ProgressChanged
    313. Status(e.UserState.ToString)
    314. End Sub
    316. Private Sub BGWStart_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BGWStart.RunWorkerCompleted
    317. Status("Entpacken erfolgreich")
    318. Schritt1()
    319. End Sub
    321. Private Sub BGWMods_DoWork(sender As Object, e As DoWorkEventArgs) Handles BGWMods.DoWork
    322. Status("Mods werden installiert")
    323. Dim i As Integer
    324. Dim MetainfOrdner As New DirectoryInfo(ExtractPath.FullName & "\META-INF")
    325. If Not ModsOrdner.Exists Then
    326. ModsOrdner.Create()
    327. End If
    328. If Not CoreModsOrdner.Exists Then
    329. CoreModsOrdner.Create()
    330. End If
    331. If MetainfOrdner.Exists Then
    332. Me.Invoke(Sub() lblStatus.Text = "lösche META-INF Ordner")
    333. IO.Directory.Delete(MetainfOrdner.FullName, True)
    334. End If
    335. For i = 0 To lst.Items.Count - 1
    336. If lst.GetItemChecked(i) = True Then
    337. Me.Invoke(Sub() lblStatus.Text = "Aktueller Mod: " & lst.Items.Item(i).ToString)
    338. Select Case lst.Items.Item(i).ToString
    339. Case "Forge"
    340. InstallMod("Forge.zip", installTyp.input)
    341. Case "Optifine HD"
    342. InstallMod("OptiFineHD.zip", installTyp.input)
    343. End Select
    344. End If
    345. Next
    346. Schritt2()
    347. End Sub
    349. Enum installTyp
    350. input 'ZIP Archiv wird entpackt und in die minecraft.jar direkt eingefügt
    351. Add 'ZIP Archiv wird in den Mods Ordner entpackt
    352. CopyInModsFolderOnly 'Datei wird in den Mods Ordner kopiert
    353. CopyInCoreModsFolderOnly 'Die Datei wird in den CoreMods Ordner kopiert
    354. InDirectory 'ZIP Archiv wird in den .minecraft Ordner entpackt
    355. End Enum
    357. Private Sub InstallMod(file As String, install As installTyp)
    358. Dim pfad As DirectoryInfo = Nothing
    359. Dim datei As New FileInfo(Application.StartupPath & "\mods\" & file)
    361. If install = installTyp.Add Then
    362. pfad = New DirectoryInfo(ModsOrdner.FullName)
    363. ElseIf install = installTyp.input Then
    364. pfad = New DirectoryInfo(ExtractPath.FullName)
    365. ElseIf install = installTyp.CopyInModsFolderOnly Then
    366. Try
    367. datei.CopyTo(ModsOrdner.FullName & "\" & datei.Name)
    368. Catch
    369. End Try
    370. Exit Sub
    371. ElseIf install = installTyp.InDirectory Then
    372. pfad = New DirectoryInfo(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft"))
    373. ElseIf install = installTyp.CopyInCoreModsFolderOnly Then
    374. Try
    375. datei.CopyTo(CoreModsOrdner.FullName & "\" & datei.Name)
    376. Catch
    377. End Try
    378. Exit Sub
    379. End If
    380. Dim TargetDir As String = pfad.FullName
    381. Using zip1 As ZipFile = ZipFile.Read(datei.FullName)
    382. 'AddHandler zip1.ExtractProgress, AddressOf MyExtractProgress
    383. Dim i As ZipEntry
    384. ' here, we extract every entry, but we could extract
    385. ' based on entry name, size, date, etc.
    386. For Each i In zip1
    387. i.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently)
    388. Next
    389. End Using
    390. End Sub
    393. Private Sub MyExtractProgress(sender As Object, e As Ionic.Zip.ExtractProgressEventArgs)
    394. If e.BytesTransferred > 0 AndAlso e.TotalBytesToTransfer > 0 Then
    395. Me.Invoke(Sub() prg_process.Value = CInt(e.BytesTransferred * 100 \ e.TotalBytesToTransfer))
    396. End If
    398. Me.Invoke(Sub() lblStatus.Text = e.CurrentEntry.ToString.Replace("ZipEntry::", "Aktuelle Datei: "))
    399. End Sub
    401. Private Sub chk_select_CheckedChanged(sender As Object, e As EventArgs) Handles chk_select.CheckedChanged
    402. Dim state As Boolean
    403. sate = chk_select.Checked
    404. End If
    406. For i As Integer = 0 To lst.Items.Count - 1
    407. lst.SetItemChecked(i, state)
    408. Next
    410. End Sub
    412. Public Class WorkerOptions
    413. ' Fields
    414. 'Public Comment As String
    415. 'Public CompressionLevel As CompressionLevel
    416. 'Public Encoding As String
    417. 'Public Encryption As EncryptionAlgorithm
    418. Public Folder As String
    419. 'Public Password As String
    420. 'Public Zip64 As Zip64Option
    421. 'Public ZipFlavor As Integer
    422. Public ZipName As String
    423. End Class
    Mfg
    Vincent

    @VincentTB
    Ich finde es ja witzig, dass du den wichtigsten Schritt entfernt hast :)
    DoSave. bzw. überhaupt den letzten Schritt, ich hab mir das mal angeschaut und naja so funkt es nicht :D

    Ohne den wird das glaube ich nichts ;)
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gather“ ()

    Haha, das gibts doch nicht :pinch: ... Naja, der Code ist im Anhang (wegen der 15.000 Zeichen Beschränkung) oder hier mit Syntax, wo hoffentlich nichts fehlt...

    Anmerkung zu dem Code: IO ist im .Net Framework 3.0 irgendwie total unbrauchbar... Deswegen das ganze My-Zeugs und kein Path.Combine. Außerdem ist es an manchen Stellen schon son bisschen unsauber programmiert, weil ich halt nicht wusste, dass IO.Directory.Delete im .Net Framework 3.0 nicht immer funktioniert und deswegen auch son paar überflüssige Subs. Außerdem solltet ihr nicht alles direkt kopieren, weil ich zb auch maximilians framework ui benutzte... Voraussetzung ist, dass ein Ordner "mods" in dem Ordner der Anwendung ist, wo dann die ganzen Mods sind. Ich hoffe, ich konnte helfen.
    Dateien

    • Code.txt

      (26,85 kB, 203 mal heruntergeladen, zuletzt: )
    Mfg
    Vincent

Facebook
Telefonspende