22-06-18, 04:09 AM
السبب الاول بخصوص الزر للكود
ثانياً انت تستخدم ايضاً الوضع ما كتابة النص
ستحتاج الى استخدام الكود بهذه الطريقة
كود :
WebBrowser1.Document.GetElementById("").InvokeMember("click")انت تريد اختبار تنفيذ الكليك ولكن عند التنفيذ
يظهر الخطاء لانه لا يعلم فى اى مكان يتم ذلك
ثانياً انت تستخدم ايضاً الوضع ما كتابة النص
كود :
WebBrowser1.Document.GetElementById("").SetAttribute("value", TextBox1.Text)وستجد ايضاً نفس الخطاء يظهر عند الكتابة ...
لكن المشكلة الاكبر والذى يجب عليك اخذ الاعتبار بها
ان الموضوع الذى تريد استخدامه
يقوم بتغيير الـ ID خاص نص البحث مع كل تحديث
كما ان زر البحث لا يوجد له ID
ستحتاج الى استخدام الكود بهذه الطريقة
كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://www.latlong.net")
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Try
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If element.GetAttribute("classname") = "width70" Then
element.SetAttribute("value", TextBox1.Text)
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
For Each element2 As HtmlElement In WebBrowser1.Document.GetElementsByTagName("button")
If element2.GetAttribute("classname") = "button" Then
element2.InvokeMember("click")
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Classهذه كود الفورم كاملاً
ايضاً لتفادى ذلك يمكنك استخدام مواقع اخرى لجلب الطول والعرض للاحداث
من خلال الروابط التالية ....
لا اعلم اذا كان يوجد احد من الروابط السابقة
لا تعمل على الاداء للمتصفحات القديمة او لا لكن يمكنك التجربة
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية

