Hallo User
Ich habe eine Update funktion Programmiert
aber das problem an diesem quwltext ist, dass immer das ganze spiel heruntergeladen wird.
Ich möchte das immer das geänderte, immer hinzugefügt wird und nicht immer das ganze spiel heruntergeladen wird.
Also wenn das spiel angenommen 14 mb hat und ich lade es herunter dauert das. Wenn ich was neues zum spiel
hinzufüge un es hat dann 16 mb sollen die 2 mp hinzugedownloadet werden.
Dim web As New Net.WebClient
Function testinternet()
Dim ping As New Net.NetworkInformation.Ping
Try
ping.Send("google.de")
Return True
Catch ex As Exception
Return True
End Try
End Function
Sub runupdate()
If testinternet() = True Then
Try
Dim version As String = web.DownloadString("http://dl.dropbox.com/u/27722612/XFight/Version.txt")
version = CInt(version)
If Version > CInt(Label11.Text) Then
Try
Try
MkDir("C:\Users\Spiele\Desktop\SaveXfight")
Catch ex As Exception
End Try
Dim path As String = "http://dl.dropbox.com/u/27722612/XFight/XFight.exe"
My.Computer.Network.DownloadFile(path, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "/" & Version & "" & "XFight.exe")
MsgBox("Update wurde Heruntergeladen.", MsgBoxStyle.Information, "info")
End
Catch ex As Exception
End Try
End If
Catch ex As Exception
End Try
End If
THX im voraus :).
Ich habe eine Update funktion Programmiert
aber das problem an diesem quwltext ist, dass immer das ganze spiel heruntergeladen wird.
Ich möchte das immer das geänderte, immer hinzugefügt wird und nicht immer das ganze spiel heruntergeladen wird.
Also wenn das spiel angenommen 14 mb hat und ich lade es herunter dauert das. Wenn ich was neues zum spiel
hinzufüge un es hat dann 16 mb sollen die 2 mp hinzugedownloadet werden.
Dim web As New Net.WebClient
Function testinternet()
Dim ping As New Net.NetworkInformation.Ping
Try
ping.Send("google.de")
Return True
Catch ex As Exception
Return True
End Try
End Function
Sub runupdate()
If testinternet() = True Then
Try
Dim version As String = web.DownloadString("http://dl.dropbox.com/u/27722612/XFight/Version.txt")
version = CInt(version)
If Version > CInt(Label11.Text) Then
Try
Try
MkDir("C:\Users\Spiele\Desktop\SaveXfight")
Catch ex As Exception
End Try
Dim path As String = "http://dl.dropbox.com/u/27722612/XFight/XFight.exe"
My.Computer.Network.DownloadFile(path, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "/" & Version & "" & "XFight.exe")
MsgBox("Update wurde Heruntergeladen.", MsgBoxStyle.Information, "info")
End
Catch ex As Exception
End Try
End If
Catch ex As Exception
End Try
End If
THX im voraus :).