السلام عليكم , كيفكم إن شاء الله تكونو بخير
أخواني أريد نسخ نص من textbox من موقع على الانترنيت
هذا النص من المكان الذي اريد نسخ النص منه
كود :
<input readonly="readonly" class="all_boxes" onclick="this.select();" type="text" value="https://d.top4top.io/p_1527co0si1.png">
اريد عند الضغط على زر نسخ أن يقوم بتحديد النص الموجود في المكان المحدد ومن ثم ينسخ النص
وشكراً لكم
يعنى مقصدك تنسخ رابط الصورة
اتفضل أخى بعد ما ترفع الصورة ضع زر لينسخ لك الرابط المباشر للصورة
كود :
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
(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
زادك الله فضل , ولكن أخي الكود لم يقم بنسخ اتوقع السبب يرجع لعدم تحديد اسم مكان الرابط ؟
(08-03-20, 12:48 PM)aldery كتب : [ -> ]زادك الله فضل , ولكن أخي الكود لم يقم بنسخ اتوقع السبب يرجع لعدم تحديد اسم مكان الرابط ؟
حضرتك بترفع الصورة من أين ؟ من داخل البرنامج ؟ لو من الويب براوزر فهذا هو الكود الصحيح
(08-03-20, 12:56 PM)ابو روضة كتب : [ -> ] (08-03-20, 12:48 PM)aldery كتب : [ -> ]زادك الله فضل , ولكن أخي الكود لم يقم بنسخ اتوقع السبب يرجع لعدم تحديد اسم مكان الرابط ؟
حضرتك بترفع الصورة من أين ؟ من داخل البرنامج ؟ لو من الويب براوزر فهذا هو الكود الصحيح
ارفع من ويب براوزر بهذا الطريقة
اتفضل حضرتك مرفق سورس لرفع اى صورة
(08-03-20, 01:17 PM)ابو روضة كتب : [ -> ]اتفضل حضرتك مرفق سورس لرفع اى صورة
جزاك الله خيراً , شكراً لك
