تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف استطيع الوصول لمستعرض انترنت واستخدام صندوق نص بداخله
#1
السلام عليكم عندي صفحة ويب كمايلي:

اريد برنامج لادخال نص في مربع النص الاول ومربع النص الثاني واجراء حدث النقر على الزر
ولكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
هل من مجيب ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#3
Thumbs Up 
السلام عليكم ..
هذا هو أول تعليق لي في هذا المنتدي وإن شاء الله لن يكون الاخير ..


إتبع الخطوات التاليه وستنجح معك باذن الله ..
أولا يجب الدخول الي الصفحه المراد إدخال البيانات اليها من أي متصفح ويفضل firefox
ثم الضغط right click علي العنصر المراد إدخال البيانات إليه
ثم الضغط علي Inspect Element
ثم الحصول علي ID الخاص بكل عنصر من العناصر المراد التعامل معها كما في الصوره رقم 1 في المرفقات

- بعدها انتقل الي مشروعك وقم بإضافة إداه WebBrowser جديده

الأكواد :

-في الحدث Form_Load ضع الكود التالي

كود :
webbrowser1.navigate("رابط الصفحه")

- في الحدث Webbrowser1_DocumentCompleted

كود :
        dim T1 as string = "ID مربع النص 1"
        dim T2 as string = "ID مربع النص 2"
        dim B1 as string = "ID Button1"
          Try
           Webbrowser1.Document.GetElementById(T1).SetAttribute("value", "النص المراد إدخاله")
           Webbrowser1.Document.GetElementById(T2).SetAttribute("value", "النص المراد إدخاله")
           Dim page As HtmlElementCollection = Webbrowser1.Document.All
           For Each webpageelement In page
               If webpageelement.getAttribute("name") = B1 Then
                   webpageelement.invokeMember("click")
                   Exit For
               End If
           Next
       Catch ex As Exception
           msgbox("خطأ في إرسال البيانات للصفحة" & vbnewline & ex.tostring)
       End Try

جرب الكود أخي الفاضل وسيعمل معك بنجاح ان شاء الله
ولا تنساني بدعوه خالصه من القلب


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة: CLARO
#4
(23-11-16, 12:37 PM)bahgat okasha كتب : السلام عليكم ..
هذا هو أول تعليق لي في هذا المنتدي وإن شاء الله لن يكون الاخير ..


إتبع الخطوات التاليه وستنجح معك باذن الله ..
أولا يجب الدخول الي الصفحه المراد إدخال البيانات اليها من أي متصفح ويفضل firefox
ثم الضغط right click علي العنصر المراد إدخال البيانات إليه
ثم الضغط علي Inspect Element
ثم الحصول علي ID الخاص بكل عنصر من العناصر المراد التعامل معها كما في الصوره رقم 1 في المرفقات

- بعدها انتقل الي مشروعك وقم بإضافة إداه WebBrowser جديده

الأكواد :

-في الحدث Form_Load ضع الكود التالي

كود :
webbrowser1.navigate("رابط الصفحه")

- في الحدث Webbrowser1_DocumentCompleted

كود :
        dim T1 as string = "ID مربع النص 1"
        dim T2 as string = "ID مربع النص 2"
        dim B1 as string = "ID Button1"
          Try
           Webbrowser1.Document.GetElementById(T1).SetAttribute("value", "النص المراد إدخاله")
           Webbrowser1.Document.GetElementById(T2).SetAttribute("value", "النص المراد إدخاله")
           Dim page As HtmlElementCollection = Webbrowser1.Document.All
           For Each webpageelement In page
               If webpageelement.getAttribute("name") = B1 Then
                   webpageelement.invokeMember("click")
                   Exit For
               End If
           Next
       Catch ex As Exception
           msgbox("خطأ في إرسال البيانات للصفحة" & vbnewline & ex.tostring)
       End Try

جرب الكود أخي الفاضل وسيعمل معك بنجاح ان شاء الله
ولا تنساني بدعوه خالصه من القلب

بارك الله فيك هذي الطرقية باستخدام الـHtmlElement  Angel
وايضا توجد طريقة باستخدام الرجكس (التعابير القياسية )
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#5
(23-11-16, 12:37 PM)bahgat okasha كتب : السلام عليكم ..
هذا هو أول تعليق لي في هذا المنتدي وإن شاء الله لن يكون الاخير ..


إتبع الخطوات التاليه وستنجح معك باذن الله ..
أولا يجب الدخول الي الصفحه المراد إدخال البيانات اليها من أي متصفح ويفضل firefox
ثم الضغط right click علي العنصر المراد إدخال البيانات إليه
ثم الضغط علي Inspect Element
ثم الحصول علي ID الخاص بكل عنصر من العناصر المراد التعامل معها كما في الصوره رقم 1 في المرفقات

- بعدها انتقل الي مشروعك وقم بإضافة إداه WebBrowser جديده

الأكواد :

-في الحدث Form_Load ضع الكود التالي

كود :
webbrowser1.navigate("رابط الصفحه")

- في الحدث Webbrowser1_DocumentCompleted

كود :
        dim T1 as string = "ID مربع النص 1"
        dim T2 as string = "ID مربع النص 2"
        dim B1 as string = "ID Button1"
          Try
           Webbrowser1.Document.GetElementById(T1).SetAttribute("value", "النص المراد إدخاله")
           Webbrowser1.Document.GetElementById(T2).SetAttribute("value", "النص المراد إدخاله")
           Dim page As HtmlElementCollection = Webbrowser1.Document.All
           For Each webpageelement In page
               If webpageelement.getAttribute("name") = B1 Then
                   webpageelement.invokeMember("click")
                   Exit For
               End If
           Next
       Catch ex As Exception
           msgbox("خطأ في إرسال البيانات للصفحة" & vbnewline & ex.tostring)
       End Try

جرب الكود أخي الفاضل وسيعمل معك بنجاح ان شاء الله
ولا تنساني بدعوه خالصه من القلب
iهذه الطريقة لا تنطبق مع Geckowebbrower
الرد }}}}
تم الشكر بواسطة: CLARO
#6
(01-12-16, 04:30 PM)عبدالرحمن المكاوي كتب : iهذه الطريقة لا تنطبق مع Geckowebbrower

لم أجربها مع Geckowebbrower .. جربها ووافنا بالنتائج أخي الفاضل

(01-12-16, 02:31 PM)CLARO كتب : بارك الله فيك هذي الطرقية باستخدام الـHtmlElement  Angel
وايضا توجد طريقة باستخدام الرجكس (التعابير القياسية )

للاسف لا أجيد التعامل مع الريجكس Blush Blush
الرد }}}}
تم الشكر بواسطة: CLARO
#7
(02-12-16, 06:34 AM)bahgat okasha كتب :
(01-12-16, 04:30 PM)عبدالرحمن المكاوي كتب : iهذه الطريقة لا تنطبق مع Geckowebbrower

لم أجربها مع Geckowebbrower .. جربها ووافنا بالنتائج أخي الفاضل

(01-12-16, 02:31 PM)CLARO كتب : بارك الله فيك هذي الطرقية باستخدام الـHtmlElement  Angel
وايضا توجد طريقة باستخدام الرجكس (التعابير القياسية )

للاسف لا أجيد التعامل مع الريجكس Blush Blush
كود :
Webbrowser1.Document.All هذا الكود لا ينطبق علي gecko
الرد }}}}
تم الشكر بواسطة:
#8
ممكن الكود للسي شارب
الرد }}}}
تم الشكر بواسطة: CLARO
#9
(02-12-16, 08:05 PM)شمس الدين 03 كتب : ممكن الكود   للسي شارب

تقدر تسئل المحترفين عن استخدام الhtmlelement في قسم اسئلة السي شارب 
او اسئلهم عن الرجكس
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#10
شكرا لك
وفقك الله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] هل يمكن الاستغناء عن التايمر واستخدام شئ بديل يكون افضل ؟ !! الماجيك مسعد 7 102 أمس, 06:58 AM
آخر رد: silverlight
  طريقة ادخال ارقام في صندوق نص hatem555 3 435 27-10-16, 03:37 PM
آخر رد: rafaag777
  [سؤال] لا استطيع استورد المرجع System.IO.Compression.FileSystem medoddd 2 92 10-09-16, 12:28 AM
آخر رد: medoddd
  [سؤال] السلام عليكم هل استطيع الحصول على كود في الفيجول بيزك 6 استطيع كتابة الحل المركب للمع hafezshaban 0 95 13-07-16, 02:21 AM
آخر رد: hafezshaban
  رفض الوصول KSAm3lm 7 219 17-05-16, 07:25 PM
آخر رد: bidaya
  [VB.NET] كيف استطيع تكرار الجدول في جميع الصفحات falbarqi 0 132 21-04-16, 02:32 AM
آخر رد: falbarqi
  [VB.NET] ظهرت لي رسالة خطأ لا استطيع تفسيرها hamada salah90 2 153 05-04-16, 02:21 AM
آخر رد: hassan
  كيف استطيع حفظ تاريخ فقط من DateTimePicker1 بالداتا جيردفيو رهف العريفي 1 157 01-03-16, 10:26 AM
آخر رد: moftah70
  اريد وضع صندوق الاعجاب فى البرنامج mohamedalmorshdy 5 720 03-06-15, 10:43 PM
آخر رد: mohamedalmorshdy
Brick سؤال عن أداة غير موجودة في صندوق الادوات Fantastico 3 624 01-06-15, 03:07 PM
آخر رد: Fantastico

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


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