[Problem]Z kodem Visual Basic

[asior887]

Witam.

Mam problem z kodem visual basic w tworzonym przezemnie launcherze do minecraft'a.

Prosiłbym o poprawę błędów, a jeżeli coś więcej potrzeba proszę pisać.

Wyskakują takie błędy:

 

 

O to kod:

Imports System.Net.Sockets
Imports System.Environment
Imports System.Net
Imports Ionic.Zip
Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        txtram.Text = My.Settings.ram
        txtnick.Text = My.Settings.nick
        Dim client As New Net.WebClient
        Dim nowawersja As String = client.DownloadString("http://magmacraft.xaa.pl/launcher/version.txt")
        If nowawersja > My.Settings.ram Then
            If MsgBox("Chcesz pobrać nową wersję?", vbQuestion + vbYesNo, "Wersja") = vbYes Then
                Dim client1 As WebClient = New WebClient
                Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)
                client1.DownloadFileAsync(New Uri("http://magmacraft.xaa.pl/launcher/minecraft.zip"), appData & "/.minecraft.zip")
                Unzip(appData & "/minecraft.zip", appData)
                My.Settings.ram = nowawersja
            Else
                MsgBox("Nowa wersja to" & nowawersja)
            End If
        End If
    End Sub
End Class

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    If CheckBox1.Checked = True Then
        My.Settings.ram = txtram.Text
        My.Settings.nick = txtnick.Text
    End If
    Dim launch As String
    Dim nick As String

    launch = "javaw -Xmx" & txtram.Text & "m -Djava.library.path=%APPDATA%\.minecraft\versions\natives -cp %APPDATA%/.minecraft/libraries/net/sf/jopt-simple/jopt-simple/4.5/jopt-simple-4.5.jar;%APPDATA%/.minecraft/libraries/com/paulscode/codecjorbis/20101023/codecjorbis-20101023.jar;%APPDATA%/.minecraft/libraries/com/paulscode/codecwav/20101023/codecwav-20101023.jar;%APPDATA%/.minecraft/libraries/com/paulscode/libraryjavasound/20101123/libraryjavasound-20101123.jar;%APPDATA%/.minecraft/libraries/com/paulscode/librarylwjglopenal/20100824/librarylwjglopenal-20100824.jar;%APPDATA%/.minecraft/libraries/com/paulscode/soundsystem/20120107/soundsystem-20120107.jar;%APPDATA%/.minecraft/libraries/org/lwjgl/lwjgl/lwjgl/2.9.0/lwjgl-2.9.0.jar;%APPDATA%/.minecraft/libraries/org/lwjgl/lwjgl/lwjgl_util/2.9.0/lwjgl_util-2.9.0.jar;%APPDATA%/.minecraft/libraries/argo/argo/2.25_fixed/argo-2.25_fixed.jar;%APPDATA%/.minecraft/libraries/org/bouncycastle/bcprov-jdk15on/1.47/bcprov-jdk15on-1.47.jar;%APPDATA%/.minecraft/libraries/com/google/guava/guava/14.0/guava-14.0.jar;%APPDATA%/.minecraft/libraries/org/apache/commons/commons-lang3/3.1/commons-lang3-3.1.jar;%APPDATA%/.minecraft/libraries/commons-io/commons-io/2.4/commons-io-2.4.jar;%APPDATA%/.minecraft/libraries/net/java/jinput/jinput/2.0.5/jinput-2.0.5.jar;%APPDATA%/.minecraft/libraries/net/java/jutils/jutils/1.0.0/jutils-1.0.0.jar;%APPDATA%/.minecraft/libraries/com/google/code/gson/gson/2.2.2/gson-2.2.2.jar;%APPDATA%/.minecraft/versions/1.6.4/1.6.4.jar net.minecraft.client.main.Main --session SessionID --version 1.6.4 --gameDir %APPDATA%/.minecraft --assetsDir %APPDATA%/.minecraft/assets "
    nick = "--username=" & txtnick.Text

    If ComboBox1.Text = "1.7.2" Then
        Shell("cmd.exe /c" & launch & nick)
    ElseIf ComboBox1.Text = "1.6.4" Then
        Shell("cmd.exe /c" & launch & nick)
    ElseIf ComboBox1.Text = "1.6.2" Then
        Shell("cmd.exe /c" & launch & nick)
    End If
End Sub

Module SimpleUnzip
    Public Sub Unzip(ByVal ZipToUnpack As String, ByVal DirectoryToExstractTo As String)
        Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)
        Try
            Using zip As ZipFile = ZipFile.Read(ZipToUnpack)
                Dim entry As ZipEntry
                For Each entry In zip
                    entry.Extract(DirectoryToExstractTo, ExtractExistingFileAction.OverwriteSilently)

                    System.Threading.Thread.Sleep(50)
                Next
                MsgBox("Wypakowywanie zakończone!")
            End Using
        Catch ex1 As Exception
            MsgBox("Wyjątek: " & ex1.ToString())
        End Try
    End Sub
End Module

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    If CheckBox1.Checked = True Then
        My.Settings.ram = txtram.Text
        My.Settings.nick = txtnick.Text
    End If
    Dim launch As String
    Dim nick As String


    launch = "javaw -Xmx" & txtram.Text & "m -Djava.library.path=%APPDATA%\.minecraft\versions\natives -cp %APPDATA%/.minecraft/libraries/net/sf/jopt-simple/jopt-simple/4.5/jopt-simple-4.5.jar;%APPDATA%/.minecraft/libraries/com/paulscode/codecjorbis/20101023/codecjorbis-20101023.jar;%APPDATA%/.minecraft/libraries/com/paulscode/codecwav/20101023/codecwav-20101023.jar;%APPDATA%/.minecraft/libraries/com/paulscode/libraryjavasound/20101123/libraryjavasound-20101123.jar;%APPDATA%/.minecraft/libraries/com/paulscode/librarylwjglopenal/20100824/librarylwjglopenal-20100824.jar;%APPDATA%/.minecraft/libraries/com/paulscode/soundsystem/20120107/soundsystem-20120107.jar;%APPDATA%/.minecraft/libraries/org/lwjgl/lwjgl/lwjgl/2.9.0/lwjgl-2.9.0.jar;%APPDATA%/.minecraft/libraries/org/lwjgl/lwjgl/lwjgl_util/2.9.0/lwjgl_util-2.9.0.jar;%APPDATA%/.minecraft/libraries/argo/argo/2.25_fixed/argo-2.25_fixed.jar;%APPDATA%/.minecraft/libraries/org/bouncycastle/bcprov-jdk15on/1.47/bcprov-jdk15on-1.47.jar;%APPDATA%/.minecraft/libraries/com/google/guava/guava/14.0/guava-14.0.jar;%APPDATA%/.minecraft/libraries/org/apache/commons/commons-lang3/3.1/commons-lang3-3.1.jar;%APPDATA%/.minecraft/libraries/commons-io/commons-io/2.4/commons-io-2.4.jar;%APPDATA%/.minecraft/libraries/net/java/jinput/jinput/2.0.5/jinput-2.0.5.jar;%APPDATA%/.minecraft/libraries/net/java/jutils/jutils/1.0.0/jutils-1.0.0.jar;%APPDATA%/.minecraft/libraries/com/google/code/gson/gson/2.2.2/gson-2.2.2.jar;%APPDATA%/.minecraft/versions/1.6.4/1.6.4.jar net.minecraft.client.main.Main --session SessionID --version 1.6.4 --gameDir %APPDATA%/.minecraft --assetsDir %APPDATA%/.minecraft/assets "
    nick = "--username=" & txtnick.Text


    Shell("cmd.exe /c" & launch & nick)
    Me.Close()
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    txtram.Text = My.Settings.ram
    txtnick.Text = My.Settings.nick
    Dim client As New Net.WebClient
    Dim nowawersja As String = client.DownloadString("magmacraft.xaa.pl/launcher/version.txt")
    If nowawersja > My.Settings.wersja Then
        If MsgBox("Chcesz pobrać nową wersję?", vbQuestion + vbYesNo, "Wersja") = vbYes Then
            Dim client1 As WebClient = New WebClient
            Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)
            client1.DownloadFileAsync(New Uri("magmacraft.xaa.pl/launcher/minecraft.zip"), appData & "/minecraft.zip")
            Unzip(appData & "/minecraft.zip", appData)
            My.Settings.wersja = nowawersja
        Else
            MsgBox("Nowa wersja to" & nowawersja)
        End If
    End If
End Sub

PS. Jeżeli zły dział proszę o przeniesienie.

PS2. Jestem początkujący więc proszę o wyrozumiałość.

[SebaTriv]

http://msdn.microsoft.com/en-us/library/5ycdx874.aspx

[asior887]

Dobra, teraz wiem jaki błąd, ale mógłbyś mi ten fragment z edytować dla przykładu?

[asior887]

Pomożesz ?

[asior887]

ref