[TuT] Autopatcher Do Swojego Serwera Metin2 - Dokładny Poradnik Dla Początkujących

[ziomekdoprivów]

Witam!

Jak brzmi tytuł tematu załączam poradnik dla osób nie umiejących się posługiwać VB

Starałem się robić poradnik dokładnie, i chyba opisałem troszeczke dokładniej niż mroziak (jeśli 1 raz bawisz się VB to coś dla ciebie)

http://www.youtube.com/watch?v=HiWbQeO0DMI

http://www.youtube.com/watch?v=qPRkjsAMI6U

Specjalne podziękowania dla:

Mroziak

Gdyby nie ten gość teraz tego poradnika by nie było

Jeszcze raz dzięki!!!!

Kod:

 

Public Class Form1

 

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

 

End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.Enabled = False

TextBox1.Text = "Proszę czekać..."

TextBox1.Text = "Patchowanie rozpoczyna się...."

ProgressBar1.Value = "1"

Timer1.Start()

End Sub

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Close()

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Shell("config.exe", AppWinStyle.NormalNoFocus)

End Sub

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Value = "2"

TextBox1.Text = "Patch.txt Jest Badany"

If My.Computer.FileSystem.FileExists("patch.txt") Then

My.Computer.FileSystem.DeleteFile("patch.txt")

TextBox1.Text = "Patch.txt został usunięty"

End If

My.Computer.Network.DownloadFile("http://www.naszastrona.pl/patch/patch.txt", "patch.txt")

TextBox1.Text = "Zostały pobrane nowe pliki patch.txt"

ProgressBar1.Value = "3"

 

'Locale_pl.eix

 

TextBox1.Text = "locale_pl jest badany"

If My.Computer.FileSystem.FileExists("pack/locale_pl.eix") Then

My.Computer.FileSystem.DeleteFile("pack/locale_pl.eix")

TextBox1.Text = "Locale_PL zostało usunięte..."

End If

My.Computer.Network.DownloadFile("http://www.naszastrona.pl/patch/locale_pl.eix", "pack/locale_pl.eix")

TextBox1.Text = "Nowy plik locale_pl został pobrany..."

ProgressBar1.Value = "4"

 

'locale_pl.epk

 

TextBox1.Text = "locale_pl.epk jest badany."

If My.Computer.FileSystem.FileExists("pack/locale_pl.epk") Then

My.Computer.FileSystem.DeleteFile("pack/locale_pl.epk")

TextBox1.Text = "Locale_pl zostało usunięte..."

End If

ProgressBar1.Value = "5"

My.Computer.Network.DownloadFile("http://www.naszastrona.pl/patch/locale_pl.epk", "pack/locale_pl.epk")

TextBox1.Text = "Nowe locale_pl.epk zostało dodane..."

 

TextBox1.Text = "Patchowanie skończyło się pomyślnie"

ProgressBar1.Value = "100"

 

If My.Computer.FileSystem.FileExists("start.exe") Then

TextBox1.Text = "Włączam metina..."

Button1.Enabled = True

If TextBox1.Text = "Włączam metina..." Then

Shell("start.exe")

Me.Close()

End If

Else

TextBox1.Text = "Twój klient jest nieodpowiedni to tej gry!"

TextBox1.Text = "Pobierz odpowiedniego klienta!"

End If

Timer1.Stop()

End Sub

End Class

 

Patch stwórzcie sami ;p

Komentujcie jak mi wyszło

Naprawdę proszę o komenty :P

[ziomekdoprivów]

Powinno działać

[Schittset]

Automatyczna wiadomość.

 

Ten temat został przeniesiony z forum:

"MMORPG -> Metin2 -> Metin 2 - Serwery Prywatne -> Metin2 - Tworzenie serwerów prywatnych -> Metin2 - Edycja klienta"

do:

"MMORPG -> Metin2 -> Metin 2 - Serwery Prywatne -> Metin2 - Tworzenie serwerów prywatnych -> Metin2 - Tutoriale i Download".