04/23/2011, 12:29
|
#1
|
elite*gold: 0
Join Date: Apr 2010
Posts: 152
Received Thanks: 194
|
[FRAGE] Brauche hilfe beim Patcher in v basic
das ist der source ich möchte das er checkt ob die daten da sind und sie ersetzt aus einer liste die auf dem ftp ist kann mir vill einer helfen
Quote:
Imports System.IO
Public Class Form1
Dim Files() As String = New String() {"BGM.epk", "BGM.eix", "Effect.eix", "Effect.epk", "ETC.epk", "Etc.eix", "guild.eix", "guild.epk", "icon.eix"}
Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
End
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Shell("config.bin")
End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
Process.Start("http://www.anmelden.de/")
End Sub
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
Process.Start("http://www.forum.de")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Name = "copyright by lahmy"
ProgressBar1.Maximum = Files.Length
For i = 0 To Files.Length - 1
Label1.Text = "Patche: " + Files(i)
ProgressBar1.Increment(1)
File.Copy("Pfad wo die Dateien sind" + Files(i), "C:\Program Files\Metin\" + Files(i), True)
WebBrowser1.Navigate("http://www.google.de/")
Next
End Sub
End Class
|
|
|
|