تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب صورة موجودة في موقع
#1
السلام عليكم اخوتي
اريد كود يجلب الصورة الموجودة في  هذا الموقع
https://rblx-tools.org/shirt/copy?id=2448956875
الرد }}}
تم الشكر بواسطة:
#2
وعليك السلام ورحمة الله

   

اخي رابط الصورة التي ارفقتها مشفر كـ Base64 ولكي تستطيع اظهارها في عنصر تحكم PictureBox بدون ان تقوم بتحميلها 
فيجب عليك اولا ان تقوم يتحويل رابط  الصورة (ليس الرابط الذي ارفقته) الى ساسلة بايتات ولكي تقوم بهذا قم بفتح الرابط الذي يحتوي على الصورة 
ثم اضغط كليك يمين على الصورة واختر نسخ عنوان الصورة او Copy Image Address 

الان قم باستيراد فضاء الاسماء التالي

كود :
Imports System.IO


الان انسخ الكود التالي والصقه في محرر كودك 
كود :
Public Shared Function BytesFromBase64ImageString(imageData As String) As Byte()
        Dim trunc = imageData.Split(","c)(1)
        Dim padded = trunc.PadRight(trunc.Length + (4 - trunc.Length Mod 4) Mod 4, "="c)
        Return Convert.FromBase64String(padded)
    End Function

الان انسخ الكود التالي وضعه في الحدث الذي تستخدمه لعرض الصورة
كود :
Dim b() As Byte = BytesFromBase64ImageString("الصق رابط الصورة المشفر هنا")
        Dim img = Image.FromStream(New MemoryStream(b))
        PictureBox1.Image = img

الرد }}}
#3
(04-03-22, 03:50 PM)معاند الحظ كتب : وعليك السلام ورحمة الله



اخي رابط الصورة التي ارفقتها مشفر كـ Base64 ولكي تستطيع اظهارها في عنصر تحكم PictureBox بدون ان تقوم بتحميلها 
فيجب عليك اولا ان تقوم يتحويل رابط  الصورة (ليس الرابط الذي ارفقته) الى ساسلة بايتات ولكي تقوم بهذا قم بفتح الرابط الذي يحتوي على الصورة 
ثم اضغط كليك يمين على الصورة واختر نسخ عنوان الصورة او Copy Image Address 

الان قم باستيراد فضاء الاسماء التالي

كود :
Imports System.IO


الان انسخ الكود التالي والصقه في محرر كودك 
كود :
Public Shared Function BytesFromBase64ImageString(imageData As String) As Byte()
        Dim trunc = imageData.Split(","c)(1)
        Dim padded = trunc.PadRight(trunc.Length + (4 - trunc.Length Mod 4) Mod 4, "="c)
        Return Convert.FromBase64String(padded)
    End Function

الان انسخ الكود التالي وضعه في الحدث الذي تستخدمه لعرض الصورة
كود :
Dim b() As Byte = BytesFromBase64ImageString("الصق رابط الصورة المشفر هنا")
        Dim img = Image.FromStream(New MemoryStream(b))
        PictureBox1.Image = img

شكرا لك اخي الكريم ولكن هل من الممكن انه يتم جلب رابط الصورة تلقائيا بدون تدخل مني
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#4
(04-03-22, 05:39 PM)sascoxat كتب :
(04-03-22, 03:50 PM)معاند الحظ كتب : وعليك السلام ورحمة الله



اخي رابط الصورة التي ارفقتها مشفر كـ Base64 ولكي تستطيع اظهارها في عنصر تحكم PictureBox بدون ان تقوم بتحميلها 
فيجب عليك اولا ان تقوم يتحويل رابط  الصورة (ليس الرابط الذي ارفقته) الى ساسلة بايتات ولكي تقوم بهذا قم بفتح الرابط الذي يحتوي على الصورة 
ثم اضغط كليك يمين على الصورة واختر نسخ عنوان الصورة او Copy Image Address 

الان قم باستيراد فضاء الاسماء التالي

كود :
Imports System.IO


الان انسخ الكود التالي والصقه في محرر كودك 
كود :
Public Shared Function BytesFromBase64ImageString(imageData As String) As Byte()
        Dim trunc = imageData.Split(","c)(1)
        Dim padded = trunc.PadRight(trunc.Length + (4 - trunc.Length Mod 4) Mod 4, "="c)
        Return Convert.FromBase64String(padded)
    End Function

الان انسخ الكود التالي وضعه في الحدث الذي تستخدمه لعرض الصورة
كود :
Dim b() As Byte = BytesFromBase64ImageString("الصق رابط الصورة المشفر هنا")
        Dim img = Image.FromStream(New MemoryStream(b))
        PictureBox1.Image = img

شكرا لك اخي الكريم ولكن هل من الممكن انه يتم جلب رابط الصورة تلقائيا بدون تدخل مني

تفضل فقط ضع webbrowser وحط الكود التالي في اي مكان انت عاوزه فورم لود او اي بوتن
كود :
       If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
           If WebBrowser1.Url.ToString = ("https://rblx-tools.org/shirt/copy?id=2448956875) Then
               Dim ImgTags As HtmlElementCollection = WebBrowser1.Document.Body.GetElementsByTagName("img")

               For Each element As HtmlElement In ImgTags
                   Dim ImgUri As String = element.GetAttribute("src")
                   textbox1.Text = ImgUri
               Next
           End If

   End Sub
الكود ده هيجلبلك النص في textbox تقدر تستخدمه كما تشاء
الرد }}}
تم الشكر بواسطة: warso


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  اختبار الفاتورة في موقع يطلع خطأ thepast 0 208 21-12-23, 12:06 PM
آخر رد: thepast
  تحديد موقع ملف user.config واعدة توجيهه لموقع آخر Mohammed Nafa 3 439 07-11-23, 10:12 PM
آخر رد: Mohammed Nafa
  [كود] كود لعمل نسخة احتياطية من Sql Server DB موجودة على شبكة داخلية dr.programming 0 258 28-09-23, 05:29 PM
آخر رد: dr.programming
  ما هو أفضل موقع موثوق فيه ترشحونه لربط قاعدة البيانات عليه أونلاين hazim1 1 373 16-09-23, 10:32 AM
آخر رد: Amir_Alzubidy
  تنزيل ملف من موقع علي الانترنت ؟ Abdh111 12 1,282 04-05-23, 07:22 PM
آخر رد: ramy alfoly
  د عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW HASNI14 8 883 02-02-23, 06:51 PM
آخر رد: trakktour
  وضع صورة كخلفية للبروقرس بار لكن!! سعود 1 572 27-08-22, 03:46 PM
آخر رد: DR.YASER
  البحث عن صورة kebboud 5 996 23-08-22, 02:20 AM
آخر رد: Taha Okla
  كيفية اضافة صورة كخلفية في الكريستال ريبورت atefkhalf2004 1 692 22-07-22, 05:06 PM
آخر رد: أبو خالد الشكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم