(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

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

(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

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

(01-12-16, 04:30 PM)عبدالرحمن المكاوي كتب : iهذه الطريقة لا تنطبق مع Geckowebbrower

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

(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 
وايضا توجد طريقة باستخدام الرجكس (التعابير القياسية )

للاسف لا أجيد التعامل مع الريجكس

(02-12-16, 08:05 PM)شمس الدين 03 كتب : ممكن الكود   للسي شارب