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

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

مشكلة سحب رابط من html - dasktop - 27-06-19

مرحبا


لدي مشكلة عندما اسحب رابط يحمل id من صفحة html

يكون الرابط بين وسمين  <per></per>

لايستجيب البرنامج

وعندما يكون كلمة بين وسمين يستجيب البرنامج



علماً الكود المستخدم في جلب الرابط ووضعه في textbox



كود :
For Each ele As HtmlElement In  WebBrowser1.Document.GetElementsByTagName("per")  
           TextBox1.Text += vbNewLine + ele.InnerText  
       Next


RE: مشكلة سحب رابط من html - ابو روضة - 27-06-19

ممكن رابط الموقع اخى لاحاول معه

RE: مشكلة سحب رابط من html - سامي محمد - 27-06-19

أستخدم Regex فهي تمكنك من الوصول لاي نص

RE: مشكلة سحب رابط من html - dasktop - 27-06-19

هاذا هو الرابط
http://dasktop.co.nf/upload

وفي صفحة html انا عملتها وفيها رابط تحميل تحديث البرنامج

كل شي نجح ماعدا الكود لم يجلب الرابط

واذا غيرت الرابط وكتبت بداله كلمة upload ينجح ويجلبها ل text والرابط لا


ماهي المشكله

RE: مشكلة سحب رابط من html - سامي محمد - 27-06-19

استخدم هذا الكود
 
كود :
TextBox1.Text = System.Text.RegularExpressions.Regex.Match(WebBrowser1.DocumentText, "<per>(.+)</per>").Groups(1).Value


RE: مشكلة سحب رابط من html - سعود - 27-06-19

(27-06-19, 06:28 PM)سامي محمد كتب : استخدم هذا الكود
 
كود :
TextBox1.Text = System.Text.RegularExpressions.Regex.Match(WebBrowser1.DocumentText, "<per>(.+)</per>").Groups(1).Value

نسخت الرابط ووضعته في دالة
PHP كود :
Private Function It(ByVal html As String) As String
        Return System.Text.RegularExpressions.Regex.Match(html, "<per>(.+)</per>").Groups(1).Value
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using wc As New Net.WebClient
            wc.Encoding = System.Text.Encoding.UTF8
            TextBox2.Text = It(wc.DownloadString(TextBox1.Text))
        End Using
    End Sub 


RE: مشكلة سحب رابط من html - dasktop - 28-06-19

لكم جزيل الشكر سامي وسعود

وتم حل المشكلة باالكود التالي

TextBox1.Text = System.Text.RegularExpressions.Regex.Match(WebBrowser1.DocumentText, "<per>(.+)</per>").Groups(1).Value

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

RE: مشكلة سحب رابط من html - سعود - 28-06-19

العفو اخي الكريم.
اداة الويب براوزر لا تستخدمها الا في حال ان الموقع يمنع الروبوتات واستخدام الـwebclient  تعتبر روبوت(حسب فهمي الخاص لها)

RE: مشكلة سحب رابط من html - dasktop - 28-06-19

(28-06-19, 02:30 AM)سعود كتب : العفو اخي الكريم.
اداة الويب براوزر لا تستخدمها الا في حال ان الموقع يمنع الروبوتات واستخدام الـwebclient  تعتبر روبوت(حسب فهمي الخاص لها)

اخي سعود كيف نعرف عدد اللذين حملو البرنامج على اجهزتهم

انا افكر ان اضيف للمشروع كود ارسال اسم الكمبيوتر الى الايميل

لمعرفة عدد الذين يستخدمون البرنامج


ونجحت هذه الطريقة معي


ولاكن هل يوجد طريقة اسهل من ذالك ولايوجد فيها ايميل

RE: مشكلة سحب رابط من html - سعود - 28-06-19

الطرق متعددة ولكن لكل شخص طريقته المناسبة له.
الاخ Elgokr ( ان لم اخطيء باسمه) له شرح للفكرة  الاساسية.
بالنسبة لي تستخدم ملف نصي قابل للقراءة والكتابة عند بعد وعند التشغيل لاول مرة يرسل اي شيء فريد في الجهاز (هذا لمعرفة عدد المستخدمين) اما فقط عدد الاستخدام فاسهل عند كل تشغيل تقوم بنفس الاجراء لكن من دون ارسال معلومات معينة.