Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jul 10th, 2012  |  syntax: None  |  size: 2.96 KB  |  hits: 14  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Public Class Patcher
  2.  
  3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.  
  5.     End Sub
  6.  
  7.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  8.         Button1.Enabled = False
  9.         TextBox1.Text = "Proszę czekać..."
  10.         TextBox1.Text = "Patchowanie rozpoczyna się...."
  11.         ProgressBar1.Value = "1"
  12.         Timer1.Start()
  13.     End Sub
  14.  
  15.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  16.         Close()
  17.     End Sub
  18.  
  19.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  20.         Shell("config.exe", AppWinStyle.NormalNoFocus)
  21.     End Sub
  22.  
  23.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  24.         ProgressBar1.Value = "2"
  25.         TextBox1.Text = "Patch.txt Jest Badany"
  26.         If My.Computer.FileSystem.FileExists("patch.txt") Then
  27.             My.Computer.FileSystem.DeleteFile("patch.txt")
  28.             TextBox1.Text = "Patch.txt został usunięty"
  29.         End If
  30.         My.Computer.Network.DownloadFile("http://www.naszastrona.pl/patch/patch.txt", "patch.txt")
  31.         TextBox1.Text = "Zostały pobrane nowe pliki patch.txt"
  32.         ProgressBar1.Value = "3"
  33.  
  34.         'Locale_pl.eix
  35.  
  36.         TextBox1.Text = "locale_pl jest badany"
  37.         If My.Computer.FileSystem.FileExists("pack/locale_pl.eix") Then
  38.             My.Computer.FileSystem.DeleteFile("pack/locale_pl.eix")
  39.             TextBox1.Text = "Locale_PL zostało usunięte..."
  40.         End If
  41.         My.Computer.Network.DownloadFile("http://www.naszastrona.pl/patch/locale_pl.eix", "pack/locale_pl.eix")
  42.         TextBox1.Text = "Nowy plik locale_pl został pobrany..."
  43.         ProgressBar1.Value = "4"
  44.  
  45.         'locale_pl.epk
  46.  
  47.         TextBox1.Text = "locale_pl.epk jest badany."
  48.         If My.Computer.FileSystem.FileExists("pack/locale_pl.epk") Then
  49.             My.Computer.FileSystem.DeleteFile("pack/locale_pl.epk")
  50.             TextBox1.Text = "Locale_pl zostało usunięte..."
  51.         End If
  52.         ProgressBar1.Value = "5"
  53.         My.Computer.Network.DownloadFile("http://www.naszastrona.pl/patch/locale_pl.epk", "pack/locale_pl.epk")
  54.         TextBox1.Text = "Nowe locale_pl.epk zostało dodane..."
  55.  
  56.         TextBox1.Text = "Patchowanie skończyło się pomyślnie"
  57.         ProgressBar1.Value = "100"
  58.  
  59.         If My.Computer.FileSystem.FileExists("start.exe") Then
  60.             TextBox1.Text = "Włączam metina..."
  61.             Button1.Enabled = True
  62.             If TextBox1.Text = "Włączam metina..." Then
  63.                 Shell("start.exe")
  64.                 Me.Close()
  65.             End If
  66.         Else
  67.             TextBox1.Text = "Twój klient jest nieodpowiedni to tej gry!"
  68.             TextBox1.Text = "Pobierz odpowiedniego klienta!"
  69.         End If
  70.         Timer1.Stop()
  71.     End Sub
  72. End Class
create a new version of this paste RAW Paste Data