منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نسخ نص من المتصفح - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نسخ نص من المتصفح (/showthread.php?tid=33714)



نسخ نص من المتصفح - aldery - 08-03-20

السلام عليكم , كيفكم إن شاء الله تكونو بخير 

أخواني أريد نسخ نص من textbox من موقع على الانترنيت 

هذا النص من المكان الذي اريد نسخ النص منه 

كود :
<input readonly="readonly" class="all_boxes" onclick="this.select();" type="text" value="https://d.top4top.io/p_1527co0si1.png">


اريد عند الضغط على زر نسخ أن يقوم بتحديد النص الموجود في المكان المحدد ومن ثم ينسخ النص

وشكراً لكم


RE: نسخ نص من المتصفح - ابو روضة - 08-03-20

يعنى مقصدك تنسخ رابط الصورة



RE: نسخ نص من المتصفح - aldery - 08-03-20

(08-03-20, 08:16 AM)ابو روضة كتب :
يعنى مقصدك تنسخ رابط الصورة

نعم اخي نسخ الرابط


RE: نسخ نص من المتصفح - ابو روضة - 08-03-20

اتفضل أخى بعد ما ترفع الصورة ضع زر لينسخ لك الرابط المباشر للصورة

كود :
 Dim input As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
       For Each item As HtmlElement In input
           If item.GetAttribute("value").Contains("downloadf-") AndAlso (Not item.GetAttribute("value").Contains("[url=")) Then
               TextBox1.Text = (item.GetAttribute("value"))
           End If
       Next item



RE: نسخ نص من المتصفح - aldery - 08-03-20

(08-03-20, 12:32 PM)ابو روضة كتب :
اتفضل أخى بعد ما ترفع الصورة ضع زر لينسخ لك الرابط المباشر للصورة

كود :
 Dim input As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
       For Each item As HtmlElement In input
           If item.GetAttribute("value").Contains("downloadf-") AndAlso (Not item.GetAttribute("value").Contains("[url=")) Then
               TextBox1.Text = (item.GetAttribute("value"))
           End If
       Next item

زادك الله فضل , ولكن أخي الكود لم يقم بنسخ اتوقع السبب يرجع لعدم تحديد اسم مكان الرابط ؟


RE: نسخ نص من المتصفح - ابو روضة - 08-03-20

(08-03-20, 12:48 PM)aldery كتب : زادك الله فضل , ولكن أخي الكود لم يقم بنسخ اتوقع السبب يرجع لعدم تحديد اسم مكان الرابط ؟

حضرتك بترفع الصورة من أين ؟ من داخل البرنامج ؟ لو من الويب براوزر فهذا هو الكود الصحيح



RE: نسخ نص من المتصفح - aldery - 08-03-20

(08-03-20, 12:56 PM)ابو روضة كتب :
(08-03-20, 12:48 PM)aldery كتب : زادك الله فضل , ولكن أخي الكود لم يقم بنسخ اتوقع السبب يرجع لعدم تحديد اسم مكان الرابط ؟

حضرتك بترفع الصورة من أين ؟ من داخل البرنامج ؟ لو من الويب براوزر فهذا هو الكود الصحيح

ارفع من ويب براوزر بهذا الطريقة




RE: نسخ نص من المتصفح - ابو روضة - 08-03-20

اتفضل حضرتك مرفق سورس لرفع اى صورة


RE: نسخ نص من المتصفح - aldery - 08-03-20

(08-03-20, 01:17 PM)ابو روضة كتب : اتفضل حضرتك مرفق سورس لرفع اى صورة

جزاك الله خيراً , شكراً لك  Heart