Visual Basic 2010 - Ionic.Zip.dll - Download von Zip und direkt Auspacken

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Trade.

    Visual Basic 2010 - Ionic.Zip.dll - Download von Zip und direkt Auspacken

    Hallo liebe vb-paradise Mitglieder,

    ich habe ein kleines Problem und möchte gerne eure Hilfe in Anspruch nehmen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports Ionic.Zip
    3. Imports System.IO
    5. Public Class allauncher
    6. Dim File = Application.StartupPath + "\data\launcher.ini"
    7. Dim Section = "Einstellungen"
    8. Dim Path = "Path"
    9. Dim Parameter = "Parameter"
    10. Dim Web As New Net.WebClient
    11. Private Property WindowsState As FormWindowState
    12. Dim WithEvents wClient As New WebClient
    13. Dim WithEvents zip As New client_Extract
    14. Dim sc As New Shell32.Shell()
    16. Private Property bytesOn As Double
    18. Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
    20. Function TestInternetConnection()
    21. Dim ping As New Net.NetworkInformation.Ping
    22. Try
    23. ping.Send("******.com")
    24. Return True
    25. Catch ex As Exception
    26. Return False
    27. End Try
    28. End Function
    30. Sub RunUpdate()
    31. If TestInternetConnection() = True Then
    32. Try
    33. Dim version As Integer = Web.DownloadString("http://********/launcher/data/version.txt")
    34. version = CInt(version)
    35. If version > CInt(lblversion.Text) Then
    36. Try
    37. MsgBox("Es existiert eine neue Version. Starte den Updater!")
    38. Process.Start("Updater.exe")
    39. Application.Exit()
    40. Catch ex As Exception
    41. MsgBox(ex.ToString)
    42. End Try
    43. End If
    44. Catch ex As Exception
    45. 'nothing
    46. End Try
    47. End If
    48. End Sub
    50. Private Sub allauncher_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    51. If (e.Button = Windows.Forms.MouseButtons.Left) Then
    52. Me.Capture = False
    53. Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))
    54. Else : End If
    55. End Sub
    57. Private Sub ugnbt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ugnbt4.Click
    58. Dim client As WebClient = New WebClient
    59. AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
    60. AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
    61. client.DownloadFileAsync(New Uri("http://*******/launcher/data/UGN.Altis.zip"), ReadIni(File, Section, Path, "") & "\MPMissions\UGN.Altis.zip")
    62. ugnbt4.Text = "Download in Progress"
    63. ugnbt4.Enabled = False
    64. End Sub
    66. Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
    67. MessageBox.Show("Download Complete")
    68. ugnbt4.Text = "Start Download"
    69. ugnbt4.Enabled = True
    70. Call client_Extract()
    71. End Sub
    73. Private Sub client_Extract(ByVal sender As Object)
    74. Try
    75. Using ziping As ZipFile = ZipFile.Read(ReadIni(File, Section, Path, "") & "\MPMissions\UGN.Altis.zip")
    76. Dim auspacken As ZipEntry
    77. For Each auspacken In ziping
    78. auspacken.Extract()
    79. Next
    80. End Using
    81. Catch ex1 As Exception
    82. Console.Error.WriteLine("exception: {0}", ex1.ToString)
    83. End Try
    84. End Sub
    86. Private Sub ugnbt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ugnbt1.Click
    87. Process.Start("http://unlimited-gaming-network.com")
    88. End Sub
    90. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ugnmin.Click
    91. Me.WindowState = FormWindowState.Minimized
    92. End Sub
    94. Private Sub ugnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ugnclose.Click
    95. Application.Exit()
    96. End Sub
    98. Private Sub ugnbt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ugnbt2.Click
    100. Process.Start("http://unlimited-gaming-network.com/launcher/info.html")
    101. End Sub
    103. Private Sub allauncher_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    104. TestInternetConnection()
    105. RunUpdate()
    106. End Sub
    108. Private Sub ugnbt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ugnbt7.Click
    109. Process.Start("ts3server://******?port=9987")
    110. End Sub
    112. Private Function ZipFile() As Object
    113. Throw New NotImplementedException
    114. End Function
    116. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles einstll.Click
    117. Einstellungen.Show()
    118. End Sub
    120. Private Sub MyExtractProgress(sender As Object, e As ExtractProgressEventArgs)
    121. If e.BytesTransferred > 0 AndAlso e.TotalBytesToTransfer > 0 Then
    122. Me.Invoke(Sub() ProgressBar1.Value = CInt(e.BytesTransferred * 100 \ e.TotalBytesToTransfer))
    124. End If
    125. End Sub
    127. Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
    128. Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
    129. Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
    130. Dim percentage As Double = bytesIn / totalBytes * 100
    132. ProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
    133. End Sub
    135. Private Function ZipFileToExtract() As Object
    136. Throw New NotImplementedException
    137. End Function
    139. Private Sub client_Extract()
    140. Throw New NotImplementedException
    141. End Sub
    143. End Class



    Spoiler eingefügt. ~Trade

    Das Problem ist ich habe die Iionic.Zip und ich will jetzt direkt nach dem das Download ausgeführt wurde die Zip entpacken lassen.
    Das Problem ist ich habe mich seid 2 Jahren mal wieder an VB rangewagt und ich habe nach 3 Std Kapituliert.

    Ich habe zurzeit mit dem Code wirklich nur Probleme. Der Download funktioniert er verschiebt es auch in den Pfad von der Ini datei.
    Jedoch bekomme ich bei dem entpacken bereich ein Problem beim starten des Launchers.

    was mache ich falsch und habt ihr evtl einen besseren Lösungsansatz als ich den habe.


    Mein nächstes Problem wäre ich habe Versucht den Download und das Extrahieren in die Progress Bar einzuarbeiten.
    Heißt erstes Mal durchlaufen der Download und beim zweiten mal das Extrahieren.
    Jedoch klappte das nicht da ich gar nicht zum extrahieren kam.

    Mit freundlichen grüßen

    Zeeanq

    P.S. nehmt es mir nicht übel wenn ich so wirr schreibe es ist schon spät und ich habe langsam die Lust verloren.

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

    Moin,

    da das sowieso ziemlich rudimentär aussieht und das Problem eh nicht wirklich klar ist:
    Updater - Warum sollte man eigene Updater vermeiden?

    Das ist sehr unsicher und bevor Du Dich weiter rumplagst, rate ich Dir zu 'ner Fertiglösung. Da kannste z.B. entsprechend nUpdate verwenden und fertig. Lässt sich auch prima für Launcher und so Zeugs integrieren und verwenden, also nicht nur für reine Updatefunktionen, da auch wirklich notfalls Pakete, die riesig sind, unterstützt werden. Hier ist jedoch schon weitaus im Ansatz eine Problematik und es wäre auch wenig sinnvoll hier deshalb Hilfestellungen zugeben, da man fast alles überarbeiten müsste, zumal viel Unfug drin ist (nicht böse gemeint). Auch steigt man da deshalb dann kaum durch. ;)

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Und das ist das Problem mit so Tutorials etc. Die Thematik ist durchaus etwas umfangreicher. ;)
    Jo, mach das. Wenn noch gesagt werden soll, wie das Problem gelöst werden kann bzw. warum es auftaucht, müsste man zunächst noch wissen, was genau das Problem ist.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Zeeanq schrieb:

    Das Problem ist wie gesagt ich kann nichts entpacken von dem was ich downloadet habe.

    Warum? Also wie äußert sich das? Gibt es einen Fehler?

    Und auf dem Bild sieht man das leider sehr schlecht, bitte zukünftig den ganzen StackTrace hier posten, sonst nützt das nichts. Hast Du die Meldung denn gelesen?

    VB.NET-Quellcode

    1. Private Function ZipFile() As Object
    2. Throw New NotImplementedException
    3. End Function


    Du wirfst ja hier die Exception entsprechend selbst. Davon abgesehen, dass hier Object als Rückgabetyp imo auch völlig falsch ist.
    Mein Tipp: Den Code hast Du (dann) sicher aus dem Internet irgendwo, oder? Mach das lieber nicht. Es macht keinen Sinn, etwas zu nutzen, was man nicht versteht. Nur selber schreiben und nach und nach verstehen.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ich habe die Meldung gelesen jedoch kam ich auf keinen Nenner.

    Wie gesagt es ist spät mittlerweile stecke ich seid 4 Std in der selben Situation.

    Das zeigt sich so. Ich starte den Launcher und er lädt die Datei herunter nach dem er das tut sollte er es entpacken.
    Jedoch habe ich wenn ich den Bereich des Entpackers hinein schreibe diesen besagten Fehler. Ohne den gibt es diesen Fehler nicht.

    Diesen bereich aus deinem Zitat sehe ich erst jetzt. Wieso ist das so?
    Vorher war das nicht so. Es ist das Problem ich kann nur die Zip runterladen lassen. Wenn er den ganzen Ordner erfassen könnte wäre das besser. Mit einer End-To-End Verschlüsselung oder Md5 abgleich. Aber das habe ich das Letzte mal in einem Launcher gesehen der von jemanden für mich gemacht wurde und das würde ich selber nicht hinkriegen.

    Ich weiß ja auch nicht was mich dazu getrieben hat ja zu diesem Projekt zu sagen, aber es macht Spaß zu programmieren.

    Ich bin mal für heute raus. ich hoffe das morgen mal ein paar andere Blickpunkte dazu kommen.
    aber danke für den Tipp mit deinem nUpdate das sieht sehr gut aus. Kann ich da die Oberfläche von dem Client Gui anpassen? Noch funktioniert mein FTP Zugriff nicht daher kann ich die Admin Oberfläche nicht testen.

    Mal schauen was morgen so noch auf mich zu kommt.


    Danke und gute Nacht.

    P.S. Ich habe vergessen zu erwähnen das keine entpackten Ordner entstehen ist egal wo ich den Pfad hinsetze.

    Zeeanq schrieb:

    Kann ich da die Oberfläche von dem Client Gui anpassen?

    Ja, das ist alles eigens implementierbar. Dadurch wird z. B. unter anderem WPF-Kompatiblität gewährleistet, da das dann bei den speziellen Klassen, die die Methoden etc. bereitstellen komplett ohne GUI abläuft und rein von der Implementierung her einer puren Klassenbibliothek entspricht.

    Zeeanq schrieb:

    Noch funktioniert mein FTP Zugriff nicht daher kann ich die Admin Oberfläche nicht testen.

    Du kannst auch HTTP(S) + PHP benutzen, wenn Du eigene Transferhandler angibst und eine spezielle, selbstgeschriebene Assembly verwendest, die die Schnittstelle implementiert und einen Service bereitstellt. Aber gut, das wäre dann schon einen Schritt zu weit und eher schon fortgeschrittene Einrichtung, damit will ich Dich jetzt nicht belasten. Also nur so am Rande. Über den FTP ist es vermutlich einfacher und damit sinnvoller. ;)

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende