منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف استطيع الوصول لمستعرض انترنت واستخدام صندوق نص بداخله
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم عندي صفحة ويب كمايلي:

اريد برنامج لادخال نص في مربع النص الاول ومربع النص الثاني واجراء حدث النقر على الزر
ولكم جزيل الشكر
هل من مجيب ؟؟؟
السلام عليكم ..
هذا هو أول تعليق لي في هذا المنتدي وإن شاء الله لن يكون الاخير ..


إتبع الخطوات التاليه وستنجح معك باذن الله ..
أولا يجب الدخول الي الصفحه المراد إدخال البيانات اليها من أي متصفح ويفضل 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

جرب الكود أخي الفاضل وسيعمل معك بنجاح ان شاء الله
ولا تنساني بدعوه خالصه من القلب
(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
وايضا توجد طريقة باستخدام الرجكس (التعابير القياسية )
(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
(01-12-16, 04:30 PM)عبدالرحمن المكاوي كتب : [ -> ]iهذه الطريقة لا تنطبق مع Geckowebbrower

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

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

للاسف لا أجيد التعامل مع الريجكس Blush Blush
(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
ممكن الكود للسي شارب
(02-12-16, 08:05 PM)شمس الدين 03 كتب : [ -> ]ممكن الكود   للسي شارب

تقدر تسئل المحترفين عن استخدام الhtmlelement في قسم اسئلة السي شارب 
او اسئلهم عن الرجكس
شكرا لك
وفقك الله
الصفحات : 1 2