Zimpler: einfache Archiv Lib[.zip & .tar Archive]

    • Beta

    Es gibt 55 Antworten in diesem Thema. Der letzte Beitrag () ist von SamLeeTV.

      So, es gibt eine neue Version: 1.2.7
      Es gab Zips die man nicht öffnen konnte, z.B. .jar (Zip Archiv welches Java Dateien beinhalten), dies sollte aber nun behoben sein.

      @lordbrs
      Ich kann dir gerne helfen, allerdings brauche ich ein paar Infos, z.B. wie der Fehler heißt und wo er auftritt
      Es könnte auch sein, dass die neue Version (1.2.7) dein Problem löst.
      ufo ich danke dir vielmals, ich werde mir mal die neue Version laden, bin mir aber nicht sicher ob ich die einbinden kann.
      Meine derzeitige Problematik bestaht ganz wo anders^^ Ich will/wollte/habe mir einen völlig neuen Launcher gebastelt und komme da mit den VB Befehlen nocht ganz zurecht, ich guck mir zig TUTs von Youtube an aber irgendwie will das nicht so^^
      Wenn du mir wirklich helfen willst dann bitte ich dich mich in Skype zu adden, den ich darf hier ja keine Links hochladen.
      Danke dir und LG
      Natürlich darfst du hier etwas hochladen. Ich habe persönlich nicht das Teil heruntergeladen, aber ich bin davon ausgegangen, dass du eine exe mitgeliefert hast. Falls das nicht so war, sorry. Es widerspricht dem Sinn eines Forums, wenn jemand persönliche Hilfe über Skype bekommt. Du kannst deine Fragen direkt hier stellen, also im Forum, aber bitte poste deinen Quellcode und poste nicht einfach einen Link zu deinem Projekt. Schon alleine, weil es auf einem anderen Hoster war, würde ich es nicht herunterladen.
      Mein lieber Myrax.....soweit ich weiss ist der Quellcode ja die VB Form Anwendung oder? Verzeih wenn dem nicht so ist und käre mich bitte auf was dann der Quellcode ist!?
      Ich weiss nicht was das Problem ist und ich weiss auch nicht wie ich es ändern kann. Ich weiss nur das mein Launcher zwar richtig entpackt aber immer auf die Zipper.exe verweist da diese einen Fehler haben sollte.
      Leider habe ich mit dem Projekt schon zig mal begonnen das immer mehr Fehler dazu kommen^^
      Ich werde die Codes in der Form Anwendung kopieren und hier nochmal einfügen, vielleicht führt dies zu einem Ziel.
      LG
      Spoiler anzeigen

      Option Explicit On
      Imports System.Security.Cryptography
      Imports System.Text
      Imports System.Net
      Imports System.IO
      Imports Zimpler
      Imports System.Threading

      Public Class Form1

      Private downloading As Boolean = False
      Private tmpfile As String = My.Computer.FileSystem.GetTempFileName
      Private stp As Stopwatch



      Private WithEvents wc As New Net.WebClient With {.Proxy = Nothing}
      Private WithEvents httpclient As WebClient
      Private WeiterGehts As Boolean = False
      Private ms As Integer

      Public DL As Int16 = 0
      Public ZL As Int16 = 0
      Public entpackt As Int16 = 1

      Dim Pfad As String = Nothing
      Dim Pfad1 As String = Nothing
      Dim Pfad2 As String = Nothing
      Dim VersionAlt As Integer = Nothing
      Dim VersionNeu As Integer = Nothing
      Dim test As Int16 = 0
      Dim test1 As Int16 = 0
      Dim fertig As Int16 = 0
      Dim Patch As Int16 = 0
      Dim Music As Int16 = 0
      Dim picnumber As Long = "0"
      Dim Video As String = ""
      Dim sw As New Stopwatch
      Dim zm As Integer = 0
      ' Dim speed As String


      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Dim client As New Net.WebClient
      Video = client.DownloadString("http://25.106.218.125:81/Patch/video.txt")
      Me.FlashPlayer2.PlayMovie("http://www.youtube.com/v/" & Video)

      'PictureBox1_MouseLeave(sender, e)

      stp = Stopwatch.StartNew ' stoppuhr für dl geschwindigkeit

      Pfad = Application.StartupPath & "\Update.zip"
      Pfad1 = Application.StartupPath
      Pfad2 = Application.StartupPath & "\Version.txt"

      Textboxenlesen()
      VersionEinlesen()

      If VersionAlt >= VersionNeu Then GoTo Weiter
      Download()
      weiter:

      End Sub

      Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

      '
      ' Music Ausschalten
      '
      ' Pfad2 = Application.StartupPath & "\Music.txt"
      ' My.Computer.FileSystem.WriteAllText(Pfad2, 0, False)
      '
      ' Pfad2 = Application.StartupPath & "\Patch.txt"
      ' My.Computer.FileSystem.WriteAllText(Pfad2, 1, False)
      '
      ' For Each Process In System.Diagnostics.Process.GetProcessesByName("SiestaMusic")
      ' Process.Kill()
      ' Next
      End

      End Sub

      Public Function VersionEinlesen()

      '
      ' Versionsnummer vom Server holen
      '
      Dim client As New Net.WebClient
      VersionNeu = client.DownloadString("http://25.106.218.125:81/Patch/version.txt")
      Label4.Text = VersionNeu

      '
      ' Versionsnummer vom Game holen
      '
      Pfad2 = Application.StartupPath & "\Version.txt"
      VersionAlt = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Version.txt")
      Label1.Text = VersionAlt

      End Function

      Public Function Textboxenlesen()

      PictureBox4.LoadAsync("http://25.106.218.125:81/Patch/news1.jpg")

      '
      ' Server on ???
      '
      Dim client As New Net.WebClient
      Dim inhalt0 As String = client.DownloadString("http://25.106.218.125:81/test.txt")
      If inhalt0 = 0 Then
      Label9.ForeColor = Color.Red
      Label9.Text = "Offline"
      End If

      If inhalt0 = 1 Then
      Label9.ForeColor = Color.DarkGreen
      Label9.Text = "Online"
      End If

      End Function

      Public Function Download()

      Try
      httpclient = New WebClient
      Dim URL As String = "http://25.106.218.125:81/Patch/Updates/Update" & VersionAlt + 1 & ".zip"
      Label6.Text = "Update" & VersionAlt + 1 & ".Zip"
      Application.DoEvents()
      httpclient.DownloadFileAsync(New Uri(URL), Pfad)
      Me.ProgressBar1.Value = 0
      Catch ex As Exception
      MsgBox("Fehler:" & vbNewLine & ex.ToString, MsgBoxStyle.Critical, "Es ist ein Fehler aufgetreten")
      End
      End Try

      End Function

      Private Sub httpclient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles httpclient.DownloadFileCompleted

      Pfad = Application.StartupPath & "/Zipper.exe"
      Shell(Pfad)
      End

      End Sub

      Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
      Me.ProgressBar1.Value = e.ProgressPercentage
      Dim totalbytes As Double = e.TotalBytesToReceive / 1024
      Dim bytes As Double = e.BytesReceived / 1024

      bytes = Format(bytes, "##########,0")
      totalbytes = Format(totalbytes, "##########,0")
      Me.Label5.Text = bytes & " KB von " & totalbytes & " KB"

      Dim speed = e.BytesReceived \ (stp.ElapsedMilliseconds + 1) ' Byte/Millisekunde
      speed = speed * 1000 ' byte/Sekunde
      speed = speed >> 10 ' kbyte / sekunde

      'Label10.Invoke(Sub() Label10.Text = speed.ToString)
      Label10.Text = speed & " Kb/Sec"







      End Sub

      Public Function laden()

      ' My.Computer.Audio.Play(My.Resources.Click, AudioPlayMode.Background)
      Dim tempPassToken As String() = GetMD5Hash(TextBox2.Text).Split("-")

      Dim passMD5 As String = ""

      For i = 0 To tempPassToken.Length - 1
      passMD5 = passMD5 & tempPassToken(i)
      Next

      Dim wc As WebClient = New WebClient()

      Dim Login As String() = wc.DownloadString("http://25.106.218.125:81/login/Login.php?Username=" & TextBox1.Text & "&Password=" & passMD5.ToLower()).Split("#")
      wc.Dispose()

      If Login(0) = "OK" Then
      MsgBox("Willkommen in Last Horen!")

      Process.Start("Last Horen.exe", "-osk_server 127.0.0.1 -osk_token " & Login(1) & " -osk_store google.de")

      Me.Close()
      Else
      MsgBox("Falscher Benutzername oder Passwort, bitte versuchen Sie es erneut!")
      End If
      End Function


      Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
      laden()
      End Sub

      Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHover
      PictureBox1.Image = My.Resources.ButtonLogin_Weiss
      PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
      End Sub

      Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
      PictureBox1.Image = My.Resources.ButtonLogin_Grün
      PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
      End Sub


      Private Sub PictureBox2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseHover
      PictureBox2.Image = My.Resources.ButtonForum_Weiss
      PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
      End Sub

      Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave
      PictureBox2.Image = My.Resources.ButtonForum_Grün
      PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
      End Sub


      Private Sub PictureBox3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseHover
      PictureBox3.Image = My.Resources.ButtonRegister_Weiss
      PictureBox3.SizeMode = PictureBoxSizeMode.Zoom
      End Sub

      Private Sub PictureBox3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseLeave
      PictureBox3.Image = My.Resources.ButtonRegister_Grün
      PictureBox3.SizeMode = PictureBoxSizeMode.Zoom
      End Sub


      Public Shared Function GetMD5Hash(ByVal TextToHash As String) As String
      If TextToHash = "" Or TextToHash.Length = 0 Then
      Return String.Empty
      End If

      Dim md5 As MD5 = New MD5CryptoServiceProvider()
      Dim toHash As Byte() = Encoding.Default.GetBytes(TextToHash)
      Dim result As Byte() = md5.ComputeHash(toHash)

      Return System.BitConverter.ToString(result)
      End Function

      Public Sub Wartezeit(ByVal Sekunden As Integer)
      ms = Sekunden * 1000
      WeiterGehts = False
      Dim T As Thread = New Thread(AddressOf Warten)
      T.Start()
      Do
      Application.DoEvents()
      Loop Until WeiterGehts = True
      End Sub

      Private Sub Warten()
      Thread.Sleep(ms)
      WeiterGehts = True
      End Sub

      Private Sub PictureBox2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

      Process.Start("http://siestaonline.aktiv-forum.com")

      End Sub

      Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
      Process.Start("http://25.106.218.125:81/register.php?id=reg")
      End Sub

      Protected Overrides Sub Finalize()
      MyBase.Finalize()
      End Sub

      Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
      If e.KeyCode = Keys.Enter Then
      laden()
      End If
      End Sub

      Private Sub FlashPlayer2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlashPlayer2.Load

      End Sub
      End Class
      So da bin ich wieder. Ich habe es nun mittels diverser Tuts geschafft das ich mir mit VB einige Programme (exen) mit Shell("Pfad") öffnen kann. Mein Vorhaben ging dabei leider nicht ganz auf den.........ich wollte eine meine Exe im Spiele Ordner öffnen welcher aber im Xampp\htdocs\Client liegt. Warum kann ich jede exe mittels diesen Befehles öffnen nur nicht die die im Xampp also via IP ausgewählt wurde?
      Eigentlich dachte ich mir es wäre doch sinnvoll wenn wir (kleine Gruppe) nicht den Clienten des Spieles laden und ewig umherpatchen müssten sondern einfach via eines VB Projektes die Exe dort starten könnten, ich kann dann in Ruhe immer wenn ich neue Files dafür habe diese einfügen und keiner muss mehr patchen?

      Warum funktioniert das nicht? Danke für Antworten und LG :)
      So, nun hab ich wieder von neu begonnen und bekomme aber immer noch Fehler.........
      Hier die Fehler:
      Spoiler anzeigen

      Warnung 1 Der in Imports "Zimpler" angegebene Namespace oder Typ enthält keine öffentlichen Member oder kann nicht gefunden werden. Stellen Sie sicher, dass der Namespace oder der Typ definiert ist und mindestens einen öffentlichen Member enthält und dass der importierte Elementname keine weiteren Aliase enthält. C:\Users\***\Desktop\Patcher 4 All\Patcher 4 All\Patcher 4 All\Form1.vb 6 9 Patcher 4 All

      Fehler 2 "FlashPlayer2" ist kein Member von "Patcher_4_All.Form1". C:\Users\***\Desktop\Patcher 4 All\Patcher 4 All\Patcher 4 All\Form1.vb 54 9 Patcher 4 All

      Warnung 3 Von der Funktion "VersionEinlesen" wird nicht in allen Codepfaden ein Wert zurückgegeben. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten. C:\***\Bruno\Desktop\Patcher 4 All\Patcher 4 All\Patcher 4 All\Form1.vb 104 5 Patcher 4 All

      Warnung 4 Von der Funktion "Textboxenlesen" wird nicht in allen Codepfaden ein Wert zurückgegeben. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten. C:\***\Bruno\Desktop\Patcher 4 All\Patcher 4 All\Patcher 4 All\Form1.vb 124 5 Patcher 4 All

      Warnung 5 Von der Funktion "Download" wird nicht in allen Codepfaden ein Wert zurückgegeben. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten. C:\Users\***\Desktop\Patcher 4 All\Patcher 4 All\Patcher 4 All\Form1.vb 140 5 Patcher 4 All

      Warnung 6 Von der Funktion "laden" wird nicht in allen Codepfaden ein Wert zurückgegeben. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten. C:\Users\***\Desktop\Patcher 4 All\Patcher 4 All\Patcher 4 All\Form1.vb 193 5 Patcher 4 All

      Fehler 7 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\***\Desktop\Patcher 4 All\Patcher 4 All\Patcher 4 All\Form1.vb 300 103 Patcher 4 All


      Und hier der Quellcode:

      Spoiler anzeigen

      Option Explicit On
      Imports System.Security.Cryptography
      Imports System.Text
      Imports System.Net
      Imports System.IO
      Imports Zimpler
      Imports System.Threading

      Public Class Form1
      Private downloading As Boolean = False
      Private tmpfile As String = My.Computer.FileSystem.GetTempFileName
      Private stp As Stopwatch



      Private WithEvents wc As New Net.WebClient With {.Proxy = Nothing}
      Private WithEvents httpclient As WebClient
      Private WeiterGehts As Boolean = False
      Private ms As Integer

      Public DL As Int16 = 0
      Public ZL As Int16 = 0
      Public entpackt As Int16 = 1

      Dim Pfad As String = Nothing
      Dim Pfad1 As String = Nothing
      Dim Pfad2 As String = Nothing
      Dim VersionAlt As Integer = Nothing
      Dim VersionNeu As Integer = Nothing
      Dim test As Int16 = 0
      Dim test1 As Int16 = 0
      Dim fertig As Int16 = 0
      Dim Patch As Int16 = 0
      Dim Music As Int16 = 0
      Dim picnumber As Long = "0"
      Dim Video As String = ""
      Dim sw As New Stopwatch
      Dim zm As Integer = 0
      ' Dim speed As String

      Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown

      If (e.Button = Windows.Forms.MouseButtons.Left) Then
      Me.Capture = False
      Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))

      Else : End If
      End Sub

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Dim client As New Net.WebClient
      Video = client.DownloadString("http://***/Patch/video.txt")
      Me.FlashPlayer2.PlayMovie("" & Video)

      'PictureBox1_MouseLeave(sender, e)

      stp = Stopwatch.StartNew ' stoppuhr für dl geschwindigkeit

      Pfad = Application.StartupPath & "\Update.zip"
      Pfad1 = Application.StartupPath
      Pfad2 = Application.StartupPath & "\Version.txt"

      Textboxenlesen()
      VersionEinlesen()

      If VersionAlt >= VersionNeu Then GoTo Weiter
      Download()
      weiter:
      End Sub
      Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

      '
      ' Music Ausschalten
      '
      ' Pfad2 = Application.StartupPath & "\Music.txt"
      ' My.Computer.FileSystem.WriteAllText(Pfad2, 0, False)
      '
      ' Pfad2 = Application.StartupPath & "\Patch.txt"
      ' My.Computer.FileSystem.WriteAllText(Pfad2, 1, False)
      '
      ' For Each Process In System.Diagnostics.Process.GetProcessesByName("SiestaMusic")
      ' Process.Kill()
      ' Next
      End

      End Sub
      Public Function VersionEinlesen()

      '
      ' Versionsnummer vom Server holen
      '
      Dim client As New Net.WebClient
      VersionNeu = client.DownloadString("http://***/Patch/version.txt")
      Label3.Text = VersionNeu

      '
      ' Versionsnummer vom Game holen
      '
      Pfad2 = Application.StartupPath & "\Version.txt"
      VersionAlt = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Version.txt")
      Label1.Text = VersionAlt

      End Function
      Public Function Textboxenlesen()

      PBNews.LoadAsync("http://***/Patch/news.jpg")

      '
      ' Server on ???
      '
      Dim client As New Net.WebClient
      Dim inhalt0 As String = client.DownloadString("http://***/test.txt")
      If inhalt0 = 0 Then
      LabelServerstatus.ForeColor = Color.Red
      LabelServerstatus.Text = "Offline"
      End If

      If inhalt0 = 1 Then
      LabelServerstatus.ForeColor = Color.DarkGreen
      LabelServerstatus.Text = "Online"
      End If

      End Function

      Public Function Download()

      Try
      httpclient = New WebClient
      Dim URL As String = "http://***/Patch/Updates/Update" & VersionAlt + 1 & ".zip"
      Label2.Text = "Update" & VersionAlt + 1 & ".Zip"
      Application.DoEvents()
      httpclient.DownloadFileAsync(New Uri(URL), Pfad)
      Me.ProgressBar1.Value = 0
      Catch ex As Exception
      MsgBox("Fehler:" & vbNewLine & ex.ToString, MsgBoxStyle.Critical, "Es ist ein Fehler aufgetreten")
      End
      End Try

      End Function

      Private Sub httpclient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles httpclient.DownloadFileCompleted

      Pfad = Application.StartupPath & "/Zipper.exe"
      Shell(Pfad)
      End

      End Sub

      Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
      Me.ProgressBar1.Value = e.ProgressPercentage
      Dim totalbytes As Double = e.TotalBytesToReceive / 1024
      Dim bytes As Double = e.BytesReceived / 1024

      bytes = Format(bytes, "##########,0")
      totalbytes = Format(totalbytes, "##########,0")
      Me.Label5.Text = bytes & " KB von " & totalbytes & " KB"

      Dim speed = e.BytesReceived \ (stp.ElapsedMilliseconds + 1) ' Byte/Millisekunde
      speed = speed * 1000 ' byte/Sekunde
      speed = speed >> 10 ' kbyte / sekunde

      'Label10.Invoke(Sub() Label10.Text = speed.ToString)
      Label10.Text = speed & " Kb/Sec"

      End Sub

      Public Function laden()

      ' My.Computer.Audio.Play(My.Resources.Click, AudioPlayMode.Background)
      Dim tempPassToken As String() = GetMD5Hash(TBPasswort.Text).Split("-")

      Dim passMD5 As String = ""

      For i = 0 To tempPassToken.Length - 1
      passMD5 = passMD5 & tempPassToken(i)
      Next

      Dim wc As WebClient = New WebClient()

      Dim Login As String() = wc.DownloadString("http://***/login/Login.php?Username=" & TBUser.Text & "&Password=" & passMD5.ToLower()).Split("#")
      wc.Dispose()

      If Login(0) = "OK" Then
      MsgBox("Willkommen in Last Horen!")

      Process.Start("Last Horen.exe", "-osk_server *** -osk_token " & Login(1) & " -osk_store google.de")

      Me.Close()
      Else
      MsgBox("Falscher Benutzername oder Passwort, bitte versuchen Sie es erneut!")
      End If
      End Function

      Private Sub PBHP_MouseEnter(sender As Object, e As EventArgs) Handles PBHP.MouseEnter
      PBHP.BackgroundImage = My.Resources.Homepage2
      End Sub

      Private Sub PBHP_MouseLeave(sender As Object, e As EventArgs) Handles PBHP.MouseLeave
      PBHP.BackgroundImage = Nothing
      End Sub

      Private Sub PBForum_MouseEnter(sender As Object, e As EventArgs) Handles PBForum.MouseEnter
      PBForum.BackgroundImage = My.Resources.Forum2
      End Sub

      Private Sub PBForum_MouseLeave(sender As Object, e As EventArgs) Handles PBForum.MouseLeave
      PBForum.BackgroundImage = Nothing
      End Sub

      Private Sub PBRegister_MouseEnter(sender As Object, e As EventArgs) Handles PBRegister.MouseEnter
      PBRegister.BackgroundImage = My.Resources.Register2
      End Sub

      Private Sub PBRegister_MouseLeave(sender As Object, e As EventArgs) Handles PBRegister.MouseLeave
      PBRegister.BackgroundImage = Nothing
      End Sub

      Private Sub PBClient_MouseEnter(sender As Object, e As EventArgs) Handles PBClient.MouseEnter
      PBClient.BackgroundImage = My.Resources.Client2
      End Sub

      Private Sub PBClient_MouseLeave(sender As Object, e As EventArgs) Handles PBClient.MouseLeave
      PBClient.BackgroundImage = Nothing
      End Sub

      Private Sub PBVote_MouseEnter(sender As Object, e As EventArgs) Handles PBVote.MouseEnter
      PBVote.BackgroundImage = My.Resources.Vote_4_us2
      End Sub

      Private Sub PBVote_MouseLeave(sender As Object, e As EventArgs) Handles PBVote.MouseLeave
      PBVote.BackgroundImage = Nothing
      End Sub

      Private Sub PBMini_MouseEnter(sender As Object, e As EventArgs) Handles PBMini.MouseEnter
      PBMini.BackgroundImage = My.Resources.Minimieren2
      End Sub

      Private Sub PBMini_MouseLeave(sender As Object, e As EventArgs) Handles PBMini.MouseLeave
      PBMini.BackgroundImage = Nothing
      End Sub

      Private Sub PBClose_MouseEnter(sender As Object, e As EventArgs) Handles PBClose.MouseEnter
      PBClose.BackgroundImage = My.Resources.Schliessen2
      End Sub

      Private Sub PBClose_MouseLeave(sender As Object, e As EventArgs) Handles PBClose.MouseLeave
      PBClose.BackgroundImage = Nothing
      End Sub

      Private Sub PBMini_Click(sender As Object, e As EventArgs) Handles PBMini.Click
      Me.WindowState = FormWindowState.Minimized
      End Sub

      Private Sub PBClose_Click(sender As Object, e As EventArgs) Handles PBClose.Click
      Application.Exit()
      End Sub

      Public Shared Function GetMD5Hash(ByVal TextToHash As String) As String
      If TextToHash = "" Or TextToHash.Length = 0 Then
      Return String.Empty
      End If

      Dim md5 As MD5 = New MD5CryptoServiceProvider()
      Dim toHash As Byte() = Encoding.Default.GetBytes(TextToHash)
      Dim result As Byte() = md5.ComputeHash(toHash)

      Return System.BitConverter.ToString(result)
      End Function

      Public Sub Wartezeit(ByVal Sekunden As Integer)
      ms = Sekunden * 1000
      WeiterGehts = False
      Dim T As Thread = New Thread(AddressOf Warten)
      T.Start()
      Do
      Application.DoEvents()
      Loop Until WeiterGehts = True
      End Sub

      Private Sub Warten()
      Thread.Sleep(ms)
      WeiterGehts = True
      End Sub

      Private Sub PBRegister_Click(sender As Object, e As EventArgs) Handles PBRegister.Click
      Process.Start("http://***/register.php?id=reg")
      End Sub

      Protected Overrides Sub Finalize()
      MyBase.Finalize()
      End Sub

      Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
      If e.KeyCode = Keys.Enter Then
      laden()
      End If
      End Sub

      Private Sub FlashPlayer2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlashPlayer2.Load

      End Sub

      End Class


      Ich hoffe es kennt sich wirklich wer aus^^
      Ich weiss nicht wie ich den Flash Player in die Anwendung bekomme, ebenso Zipper.exe und Zimpler.dll
      Ausser Flash player hab ich die anderen Sachen in die Resourcen eingefügt, geht aber dennoch nicht!

      Ich erbitte um HILFE! Danke ?(
      @VBNEWBIE1987 ja, nicht nur Zimpler kann zippen und ja es gibt auch das "tar.gz Archiv" :rolleyes:
      Zimpler kann auch Tar: man muss allerdings noch selbst mit GZipStream komprimieren, dann hat man aber auch tar.gz :D

      Was genau willst du uns mit deinem Post mitteilen?
      BTW: Vielleicht könntest du ja noch TAR.GZ einbauen, also das ganze mit dem komprimieren so das der (in dem Fall Faule) Entwickler das nicht machen muss ;) ^^
      Software being "Done" is like lawn being "Mowed". (Jim Benson)
      Ich sehe da auch keinen Grund für 2.0. XP selbst schafft schon 4.0 und dessen Support ist ausgelaufen -> .NET 4.0 sollte jeder haben.
      #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 :!:
      Hey :)
      wollte nur mal bescheid geben, wenn man ein etwas größeres Verzeichnis Zippen oder ein großen Zip entpacken will (5gb+) kommt eine Overflow Exception.
      Ich denke einfach ein zu kleiner Daten Typ wurde ausgewählt ist mir auch passiert^^ :D

      MFG
      SamLeeTV