[ icobh @ 10.04.2004. 19:47 ] @
Ljudi ovo bi trebao biti kod za skidanje sa određene stranice fajl. Kod je napisan u vb.net a meni treba u VB.Pa bih molio nekog da to prevede ili ako neko zna takav primjer za VB.Evo koda: Code: vbc /r:System.Net.dll /r:System.IO.dll webretrieve.vb Source Code Imports System.IO Imports System.Net Imports System.Text Class WebRetrieve Public Shared Sub Main() Dim wr As HttpWebRequest = CType(WebRequestFactory.Create("http://maps.weather.com/ web/radar/us_orl_ultraradar_large_usen.jpg"), 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("weather.jpg", FileMode.OpenOrCreate, FileAccess.Write) fstr.Write(inBuf, 0, bytesRead) str.Close() fstr.Close() End Sub 'Main End Class 'WebRetrieve |