Hi,
Ich versuch mich seit einer Zeit an einen Modpack Launcher für Minecraft habe aber momentan ein Problem bei der Update Funktion.
Wenn er ein Update laden soll gibt der die Meldung: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt
Die Update Funktion:
Spoiler anzeigen
Ich hoffe ihr könnt mir helfen.
Mfg hi1lol
Ich versuch mich seit einer Zeit an einen Modpack Launcher für Minecraft habe aber momentan ein Problem bei der Update Funktion.
Wenn er ein Update laden soll gibt der die Meldung: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt
Die Update Funktion:
VB.NET-Quellcode
- Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://mc.epiccraftec.de/Modpack/updateetec.txt")
- Dim respone As System.Net.HttpWebResponse = request.GetResponse()
- Dim sr As System.IO.StreamReader = New System.IO.StreamReader(respone.GetResponseStream())
- Dim se As System.IO.StreamReader = New System.IO.StreamReader(My.Settings.minecraftdir & "\updateetec.txt")
- Dim newestversion As String = sr.ReadToEnd()
- Dim currentversion As String = se.ReadToEnd()
- If newestversion.Contains(currentversion) = False Then
- Dim result As DialogResult
- result = MessageBox.Show("Eine neue Version ist verfügbar!" & vbCrLf & "Jetzt möchtest du jetzt Updaten?", "Neues Update verfügbar", MessageBoxButtons.YesNoCancel)
- If result = DialogResult.Cancel Then
- Return
- ElseIf result = DialogResult.No Then
- ElseIf result = DialogResult.Yes Then
- Dim sURL As String = "http://mc.epiccraftec.de/Modpack/EpicTechEC.zip"
- Dim sLocalFile As String = My.Settings.minecraftdir & "\EpicTechEC.zip"
- download.Enabled = False
- launch.Enabled = False
- mpextract.Enabled = False
- sphaxdl.Enabled = False
- savedir.Enabled = False
- Try
- httpClient.DownloadFileAsync(New Uri(sURL), sLocalFile)
- lblProgress.Visible = True
- ProgressBar1.Visible = True
- Catch ex As Exception
- MsgBox("Fehler!" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
- download.Enabled = True
- launch.Enabled = True
- mpextract.Enabled = True
- sphaxdl.Enabled = True
- savedir.Enabled = True
- End Try
- Return
- End If
- End If
Ich hoffe ihr könnt mir helfen.
Mfg hi1lol