این کد کجاش اشتباست ؟

[iran2008]

سلام
من میخوام یه عکس رو از وب بخونم .
حال کدش ببینید چرا ارور میده برام :

کد VB.NET


Dim n As Byte
n = Inet1.OpenURL(
"http://barnamenevis.org/forum/image.phpu=46030&dateline=1234901804", 1)
FileOpen(1, Environ("Temp") & "\a.jpg", OpenMode.Binary)
FilePut(1, n, )
FileClose(1)
PictureBox1.Image = System.Drawing.Image.FromFile(Environ("Temp") & "\a.jpg")




تو VB6 اینجوریه کد و درسته :

Dim n() As Byte
n() = Inet1.OpenURL("http://barnamenevis.org/forum/image.php?u=46030&dateline=1234901804", 1)
Open Environ("Temp") & "\a.jpg" For Binary As #1
Put #1, , n()
Close #1
Image1.Picture = LoadPicture(Environ("Temp") & "\a.jpg")





من کد درستش رو تو VB.NET میخوام.






لطفا کمکم کنید:تشویق:






مرسی.

[salehbagheri]

احتمالا مشكل از لينكي هست كه در كد اول داديد!

لينك رو اصلاح كنيد!



"http://barnamenevis.org/forum/image.php?u=46030&dateline=1234901804"

[nokhodsiah2001]

سلام

دوست من میشه بگی این Inet1 اینجا چیه ؟

[iran2008]

احتمالا مشكل از لينكي هست كه در كد اول داديد!

لينك رو اصلاح كنيد!



خوب من یه لینک سالم دیگه هم دادم.
اما تو خود کد کلا شک دارم که درست باشه یا نه.

میشه کلا اون کد رو چک کنید و بگید .
مرسی

[iran2008]

سلام

دوست من میشه بگی این Inet1 اینجا چیه ؟



Inet1 همون Microsoft Internet Transfer هست دیگه .

[Mani_rf]

از این کد بجای کد خودت استفاده کن :


My.Computer.Network.DownloadFile("http://www.asandownload.com/images/AsanDownload.gif", Environ("Temp") & "\Test.gif")
PictureBox1.Image = Image.FromFile(Environ("Temp") & "\Test.gif")