24-10-16, 06:42 PM
الصفحات : 1 2
24-10-16, 06:42 PM
27-10-16, 02:43 PM
هل من مجيب ؟؟؟
23-11-16, 12:37 PM
السلام عليكم ..
هذا هو أول تعليق لي في هذا المنتدي وإن شاء الله لن يكون الاخير ..
إتبع الخطوات التاليه وستنجح معك باذن الله ..
أولا يجب الدخول الي الصفحه المراد إدخال البيانات اليها من أي متصفح ويفضل firefox
ثم الضغط right click علي العنصر المراد إدخال البيانات إليه
ثم الضغط علي Inspect Element
ثم الحصول علي ID الخاص بكل عنصر من العناصر المراد التعامل معها كما في الصوره رقم 1 في المرفقات
- بعدها انتقل الي مشروعك وقم بإضافة إداه WebBrowser جديده
الأكواد :
-في الحدث Form_Load ضع الكود التالي
- في الحدث Webbrowser1_DocumentCompleted
جرب الكود أخي الفاضل وسيعمل معك بنجاح ان شاء الله
ولا تنساني بدعوه خالصه من القلب
هذا هو أول تعليق لي في هذا المنتدي وإن شاء الله لن يكون الاخير ..
إتبع الخطوات التاليه وستنجح معك باذن الله ..
أولا يجب الدخول الي الصفحه المراد إدخال البيانات اليها من أي متصفح ويفضل 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, 02:31 PM
(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
وايضا توجد طريقة باستخدام الرجكس (التعابير القياسية )
01-12-16, 04:30 PM
(23-11-16, 12:37 PM)bahgat okasha كتب : [ -> ]السلام عليكم ..iهذه الطريقة لا تنطبق مع Geckowebbrower
هذا هو أول تعليق لي في هذا المنتدي وإن شاء الله لن يكون الاخير ..
إتبع الخطوات التاليه وستنجح معك باذن الله ..
أولا يجب الدخول الي الصفحه المراد إدخال البيانات اليها من أي متصفح ويفضل 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
جرب الكود أخي الفاضل وسيعمل معك بنجاح ان شاء الله
ولا تنساني بدعوه خالصه من القلب
02-12-16, 06:34 AM
(01-12-16, 04:30 PM)عبدالرحمن المكاوي كتب : [ -> ]iهذه الطريقة لا تنطبق مع Geckowebbrower
لم أجربها مع Geckowebbrower .. جربها ووافنا بالنتائج أخي الفاضل
(01-12-16, 02:31 PM)CLARO كتب : [ -> ]بارك الله فيك هذي الطرقية باستخدام الـHtmlElement
وايضا توجد طريقة باستخدام الرجكس (التعابير القياسية )
للاسف لا أجيد التعامل مع الريجكس
02-12-16, 11:25 AM
(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
وايضا توجد طريقة باستخدام الرجكس (التعابير القياسية )
للاسف لا أجيد التعامل مع الريجكس
كود :
Webbrowser1.Document.All هذا الكود لا ينطبق علي gecko
02-12-16, 08:05 PM
ممكن الكود للسي شارب
04-12-16, 03:40 PM
(02-12-16, 08:05 PM)شمس الدين 03 كتب : [ -> ]ممكن الكود للسي شارب
تقدر تسئل المحترفين عن استخدام الhtmlelement في قسم اسئلة السي شارب
او اسئلهم عن الرجكس
04-12-16, 04:41 PM
شكرا لك
وفقك الله
وفقك الله
الصفحات : 1 2