Visual Basic Forum

cReative.pRoject · Tutorial Leser Anmeldedatum: 14.05.2008 Beiträge: 48

hey leute ich möchte einmal fragen wie man eine datei von einem website downloaden kann

zb ein bild *hust* exe

wäre sehr dringend da ich das prog heute fertig haben will !
_________________

tr4st · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 486

Ich habe dir eine kleine Funktion geschrieben.
Visual Basic: [code]Private Function FileDownload(ByVal url As String) As Boolean

Try

Dim wr As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
Dim ws As HttpWebResponse = CType(wr.GetResponse(), HttpWebResponse)
Dim str As Stream = ws.GetResponseStream()
Dim inBuf(100000) As Byte
Dim bytesToRead As Integer = CInt(inBuf.Length)
Dim bytesRead As Integer = 0

While bytesToRead > 0
Dim n As Integer = str.Read(inBuf, bytesRead, bytesToRead)
If n = 0 Then
Exit While
End If
bytesRead += n
bytesToRead -= n
End While

Dim fstr As New FileStream("C:test.jpg", FileMode.OpenOrCreate, FileAccess.ReadWrite)
fstr.Write(inBuf, 0, bytesRead)
str.Close()
fstr.Close()

Return True

Catch ex As Exception

MessageBox.Show(ex.Message)
Return False

End Try

End Function[/code]

cReative.pRoject · Tutorial Leser Anmeldedatum: 14.05.2008 Beiträge: 48

FileDownload(bblalabla.com /counter.txt)

aber es funzt nich er zeigt mir

Fehler 1 Der Name "drogenprojektbrg7" wurde nicht deklariert. C:UserscReative.ExploiDocumentsProgenWindowsApplication2WindowsApplication2Form1.vb 139 22 WindowsApplication2
Fehler 2 Der Name "counter" wurde nicht deklariert. C:UserscReative.ExploiDocumentsProgenWindowsApplication2WindowsApplication2Form1.vb 139 56 WindowsApplication2