[MegaTuT] Pobieranie Wielu Plikow Ze Strony WWW

[TheObst]

<- Reklama

Nie Zapomnij Dac Lika!

Witam, jest to moj pierwszy tutorial na tym forum, wiec prosze o wyrozumialosc!

Opisze w nim krok po kroku jak stworzyc program, ktory bedzie nam pobieral wiele plikow ze strony www.

Odrazu mowie ze robie to w Microsoft Visual Studio Express 2012 for Windows Desktop.

Wiec Zaczynajmy!

1. Tworzenie Projektu.

[sCREEN]

• Wybieramy w lewym gornym rogu FILE > New Project...
• Zaznaczamy Windows Forms Aplication.
• W Name: wpisujemy nazwe naszej aplikacji, w moim przypadku Pobieracz.
• Zatwierdzamy OK.

2. Ustawienia Aplikacji.

[sCREEN]

• Kliknij na okienko naszej aplikacji.
• Po prawej stronie ekranu ukarze ci sie Properties naszego Form1.
• Wyszukaj tam kategori Appearance.
• Nastepnie Text i domyslnie jest tam napisane Form1, zmien to na nazwe aplikacji, w moim przypadku Pobieracz.
• Wyszukaj kolejnej kategori Layout.
• A w niej StartPosition i ustaw na CenterScreen.
• W ostatnim juz wierszu o nazwie Size wpisujemy wielkosc naszej aplikacji (szerokosc; wysokosc), polecam 800; 600.

3. Controls.

[sCREEN]

• Po lewej stronie ekranu kliknij na Toolbox.
• Rozwin Common Controls.
• Przeciagnij na nasza forme Button i go sesownie rozmiesc.
• Kliknij dwukrotnie na Button1.
• W Appearance zedytuj Text na przyklad na Kliknij Aby Pobrac!.
• W Appearance Font Zmien na taka jaka ci sie podoba, mozesz rowniez zmienic wielkosc tej czcionki.

4. Dodawanie Kodu.

[sCREEN]

• Kliknij dwukrotnie na nasz przycisk.
• Wyswietli Ci sie cos takiego:

Public Class Form1

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

    End Sub
End Class

• Dopisz tam:

Public Class Form1

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

        Dim sr As New IO.StreamReader("files.txt")
        Dim line As String = sr.ReadLine()

        Dim req As Net.WebRequest
        Dim resp As IO.Stream
        Dim out As IO.BinaryWriter

        Do While line IsNot Nothing
            req = Net.HttpWebRequest.Create("http://ang.obst.pl/files/natives/" & line)
            resp = req.GetResponse().GetResponseStream()

            out = New IO.BinaryWriter(New IO.FileStream("files\" & line, IO.FileMode.OpenOrCreate))

            Dim buf(4096) As Byte
            Dim k As Int32 = resp.Read(buf, 0, 4096)

            Do While k > 0
                out.Write(buf, 0, k)
                k = resp.Read(buf, 0, 4096)
            Loop

            resp.Close()
            out.Close()

            line = sr.ReadLine()
        Loop

    End Sub
End Class

 

files.txt Plik z ktorego czytane sa pliki do pobrania z danej strony.

http://ang.obst.pl/files/natives/ Katalog na stronie, z ktorego beda pobierane okreslone pliki.

files\ Folder, do ktorego beda pobierane pliki.

Plik files.txt:

plik.txt
plik.bat
pralka.zip
tusk.png

 

PS. Te pliki musza byc w katalogu na stronie internetowej!

5. Budowanie Projektu.

[sCREEN]

• Zapisujemy.
• W gornym menu programu wybieramy BUILD.
• Nastepnie Build Solution.
• Dla sprytnych Ctrl + Shift + S i F7.

Aplikacja znajduje sie w C:\Users\Piotr\Documents\Visual Studio 2012\Projects\Pobieracz\Pobieracz\bin\Debug\Pobieracz.exe.

Mam nadzieje ze pomoglem!

Licze na +!

Jesli tuturial wam sie spodobal skomentujcie!

[Gość]

 

Dim wc As New Webclient()
Dim listaPlikow As String() = wc.DownloadString("http://mojastrona.pl/pliki.txt").Split(vbNewLine)
For Each plik As String In listaPlikow
wc.DownloadFile(plik, plik.Substring(plik.LastIndexOf("\") + 1))
Next

 

Można to skrócić do tego.

[TheObst]

wc.DownloadFile(plik, plik.Substring(plik.LastIndexOf("\") + 1))

wyskakuje mi:

An unhandled exception of type 'System.ArgumentException' occurred in mscorlib.dll

 

Additional information: Niedozwolone znaki w ścieżce.

 

[TheObst]

@refresh

[piotrek693206]

Mi nie działa ani to ani to. Pomoże ktoś to naprawić?

Korzystając z kodu Miszcza pokazuje się error :

Proces nie może uzyskać dostępu do pliku „C:\Users\Piotrek\Documents\Visual Studio 2010\Projects\FilesDow\FilesDown\bin\Debug\servers.dat”, ponieważ jest on używany przez inny proces.

[Gość]

Mi nie działa ani to ani to. Pomoże ktoś to naprawić?

Korzystając z kodu Miszcza pokazuje się error :

Proces nie może uzyskać dostępu do pliku „C:\Users\Piotrek\Documents\Visual Studio 2010\Projects\FilesDow\FilesDown\bin\Debug\servers.dat”, ponieważ jest on używany przez inny proces.

Nie można uzyskać dostępu, bo plik jest używany przez inny proces...

[piotrek693206]

Ale ja tego nie używam, ten plik servers.dat jest na hostingu ftp.

[Gość]

Ale ja tego nie używam, ten plik servers.dat jest na hostingu ftp.

Jest używany przez jakikolwiek proces. Anyway pokaż kod.

[piotrek693206]

@Up : http://wklej.to/FiJPu

[Gość]

@Up : http://wklej.to/FiJPu

A nie masz uruchomionej jakiejś gry/programu, który korzysta z tego pliku?

[piotrek693206]

@Up nie.

[piotrek693206]

Pomoże ktoś naprawić ten błąd/problem ?

[TheObst]

@refresh

[TheObst]

Pomoże ktoś naprawić ten błąd/problem ?

 

podaj zawartosc files.txt i w jakim folderze na komputerze maja one byc zapisane

na probe http://wklej.to/hujTB ale podaj to co up ^ a ci napisze dzialajace na bank!

 

PS. tez pisze launcher minecraft ;D http://ang.obst.pl/files/ServerLauncher.exe

http://ang.obst.pl/files/MinecraftLauncher/Launcher.htm

 

inne moje rzeczy:

 

http://ang.obst.pl/files/texturepacks/

 

http://ang.obst.pl/files/

[piotrek693206]

W files jest jeden plik na razie servers.dat.

[TheObst]

a gdzie on ma sie pobrac?

@Refresh
http://ang.obst.pl/files/MinecraftLauncher/Launcher.htm

http://wklej.to/hujTB

[TheObst]

refresh

[Scyzors]

Albo po prostu zobacz w procesach.

[TheObst]

refresh

[TheObst]

refresh

[Adrian327d]

Podał byś źródło ... 

http://forum.ragezone.com/f144/vb-net-downloading-multiple-files-655198/