[TuT] Client Autopatcher Na Nasz Serwer !

[ThePrzemo7]

Tak jak w temacie .

Potrzebny nam będzie Visual Basic 2008 Express Edition .

Download :

http://microsoft.com

lub

Klick

Skan :

Nie daje bo to strona Microsoftu(Każdy wie chyba co to microsoft)

 

Teraz otwieramy go i klikamy :

File>New Project(CTRL+N)>Windows Forms Aplications>OK

Teraz mamy tam okno rozszerzamy jak chcemy .

Teraz po prawej mamy "Propeties" tam musimy wszystko ustalić .

Szukamy tam "Text" i obok wpisujemy to co u góry będzie pisało np. Patcher Nazwa_SerweraMT2

Teraz szukamy "BackgroundImage" i obok wybieramy ten przycisk z ...

Wybieramy local reseource i klikamy import.

Tu musimy wybrać skin patchera możemy wybrać standardowy z metka PL który znajduje się w folderze patchskin > main.bmp lub jedyny jaki znalazłem na MPC to PatchSkin by krzysztofa .

Link :

http://www.mpcforum.pl/topic/259165-dl-nowy-skin-do-autopatchera/

Skan

W temacie

Gdy wybierzemy musimy okno ustawić według rozmiarów skinu .

Teraz na górze mamy toolbox .

Wybieramy i szukamy button przeciągamy button tam gdzie chcemy mieć Start Gry i robimy jeszcze kilka buttonów np. Wyjście itp.

Teraz klikamy na jakiegoś buttona i w Propeties szukamy FlatStyle wybieramy : Flat . Kasujemy Text . Potem BackgroundImage i robimy tak jak ze skinem tylko że wybieramy przycisk który jest w patchskin>nazwajakiegośprzycisku.bmp

Robimy tak z każdym . Teraz w toolbox wybieramy Timer i przeciągamy go na okno patchera . Teraz TextBox i przeciągamy go tam gdzie chcemy aby pisało np. Wczytuje Pliki . Teraz wybieramy ProgressBar i przeciągamy go tam gdzie chcemy aby ładowało się .Teraz w toolbox wybieramy WebBrowser i przeciągamy go na to czarne okienko . W URL w Propeties podajemy naszą stronkę . Teraz klikamy 2x na okno . Otwiera nam się coś w stylu notepada . Zastępujemy tamten kod tym :

 

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

 

Możemy dodać oprócz locale_pl inne pliki np. root tylko trzeba to zrobić na podstawie locale_pl .

Teraz tworzymy plik Patch.txt

i wpisujemy yam pliki które ma pobrać .

Zostało nam tylko zuploadować pliki na naszą stronke .

Klikamy File>Save All

Teraz na tym pasku u góry klikamy taki znaczek "play" i otwiera nam się nasz patcher .

Ale to nie koniec.

Zostało nam skompilować plik .

Klikamy > Build>Build Windows Aplication1

Teraz przechodzimy

\Moje dokumenty\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\obj\Release\NazwaPatchera.

Patcher nie ma ikonki .

Jak zmienić ?

W propeties w icon wybieramy ikonke .ico

Koniec

Proszę o zdjęcie 10%

[3rr0xxxxxD]

jestem ciekaf czy to dziala ; )+

[Pegas©]

Było:

http://www.mpcforum.pl/topic/194895-tutautopatcher-do-swojego-serwera-metin2-dokladny-poradnik-dla-poczatkujacych/

I jeszcze jeden gdzieś

[ThePrzemo7]

Było:

http://www.mpcforum.pl/topic/194895-tutautopatcher-do-swojego-serwera-metin2-dokladny-poradnik-dla-poczatkujacych/

I jeszcze jeden gdzieś

To sorry

Do zamknięcia

[Pegas©]

I poza tym wiedziałeś o tym ,że jest taki i skopiowałeś Kod

[ThePrzemo7]

I poza tym wiedziałeś o tym ,że jest taki i skopiowałeś Kod

Robiłem na podstawie tego :

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

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

[Pegas©]

Ale kod skopiowany!!!!!!I nie powiedziałeś skąd go masz

[™Rampager]

A czy to wazne skad ma?

[G33K]

Było.

Close