[problem]pather

[qualit]

Witam

 

Mam problem z patherem

Robie all jak na filmiku

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

Ale gdy wkleje

 

 

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

 

 

Mam pelno ERROR doslownie w kazdej linijce

 

Prosze o pomoc

[Swierko12]

http://www.naszastrona.pl/patch/locale_pl.epk", "pack/locale_pl.epk

 

Tu masz błąd tu powinno być twój hosting gdzie masz pliki

[qualit]

sprawdze i dam edit

 

Zle mnie zrozumiales Bo ja mam odrazu bledy jak tylko to wkleje

 

A u niego na filmiku 0 error

 

z tym juz Ok :P

[qualit]

Nie bede zakladal next tematu wiec pisze tu

 

Pather jako taki zrobilem ale mam nastepny problem

 

NIE POBIERA MI PLIKOW Z (hotfile)

pobier nap locale_pl ale ma ono tylko 18kb

 

JAK WYGENEROWAC TAKIE LINKI JAK ON ??

[Swierko12]

Nie bede zakladal next tematu wiec pisze tu

 

Pather jako taki zrobilem ale mam nastepny problem

 

NIE POBIERA MI PLIKOW Z (hotfile)

pobier nap locale_pl ale ma ono tylko 18kb

 

JAK WYGENEROWAC TAKIE LINKI JAK ON ??

A może załóż sobie konto na jakimś hostingu w FTP zrób sobie folder pliczki wrzuć to co ma pobierać i wklej link np. www.twojastrona.coś tam.pl/pliczki

[qualit]

Hmm a moze wiesz jak zrobic hosting plikow bo same wzucenie ich na ftp nic nie daje (nie da sie pobrac )