هل من الممكن تحميل صورة من موقع في برنامجي

جرب استخدام اداة Microsoft internet transfer control واستخدم الكود التالي

 Dim sURL As String, sTempFile As String

sURL = "http://12345656.com/12345.jpg"
sFile = "c:\xxx.jpg"
   Dim binFile() As Byte
   Inet1.Cancel
   Inet1.Protocol = icHTTP
   Inet1.URL = sURL


   binFile() = Inet1.OpenURL(, icByteArray)

   'here delete the file if exits

   Open sTempFile For Binary Access Write As #1
   Put #1, , binFile()
   Close #1

اقتباس

علم أن الفيجوال بيسك عقيم الى حد ما في التعامل مع الويب ولكن هل من الممكن كود يقوم بتحميل صورة من موقع ما دون ظهور شاشة التحميل ثم عرضها تلقائيا بعد التحميل في برنامجي في image

يا راجل حرام عليك

جرب ايضا اداه انترنت بروسر

وممكن ايضا تحميلها عن طريق socket عادى مثل الوين سوك لى مشاركة فى هذا لا اتذكرها جرب البحث فى هذا المنتدى عنها ( الطريقة هذه تعتمد على بروتوكول Http )

انا متاسف على الاختصار فانا لست فى المنزل