تقييم الموضوع :
  • 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
شكرا لك
وفقك الله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] كيف افتح صفحت انترنت بضغطة زر في فيجول net تركي احمد 4 356 15-08-23, 05:19 PM
آخر رد: تركي احمد
  [سؤال] كيف استطيع ان اعمل مثل هذه التبويبات في الواجهة كما في المرفق ادناه aYHAMMMS 0 293 14-07-23, 10:21 AM
آخر رد: aYHAMMMS
  [VB.NET] مشكلة عدم الوصول Registry النظام MOHAMMED ALZWI 2 412 15-06-23, 09:01 PM
آخر رد: MOHAMMED ALZWI
  لا استطيع الحصول على الرقم التسلسلي للقرص C ابو محمد محمد محمد 6 736 27-04-23, 01:49 PM
آخر رد: ابو محمد محمد محمد
  كيفية الوصول الى القرص الصلب في الجهاز الخادم ابو محمد محمد محمد 0 399 20-04-23, 03:41 AM
آخر رد: ابو محمد محمد محمد
  [VB.NET] مشكلة في الوصول لــ Registry النظام MOHAMMED ALZWI 1 300 26-03-23, 12:26 PM
آخر رد: sanyor77
  [سؤال] محتاج بعد انهاء المشروع اقوم بتحويله لملف تنفيذي يصعب الوصول للكود والفورم mony.tornado 6 642 08-12-22, 09:22 AM
آخر رد: مصمم هاوي
  استفسار عن فكرة عمل برنامج نظام صندوق مالي مصغر بشكل مبسط nowiglah 9 1,587 12-08-22, 05:57 AM
آخر رد: Taha Okla
  لايمكن للعملية الوصول للملف لأنه قيد الإستخدام بعملية أخرى جيولوجي مبتدئ 7 841 07-08-22, 06:31 AM
آخر رد: جيولوجي مبتدئ
  هل استطيع اضافة عدد 2 من السوتش في شبكة واحدة بسام محمدغانم 2 806 03-06-22, 04:49 PM
آخر رد: بسام محمدغانم

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


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