+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في تعديل كود (/showthread.php?tid=30611)
الصفحات:
1
2
RE: مساعدة في تعديل كود - ابراهيم ايبو - 30-07-19
اخي بالنسبة الى الكود فهو من عندك وانا لااعرف كيف يعمل
انا فقط قمت بوضع فاصل زمني بين الضغطة والاخرى
شي أخر ذكرته لك في التعليقات لايعمل ال Await(Task.Delay(5000)) الا مع نت فريم ورك 4.5 فما فوق
RE: مساعدة في تعديل كود - SnTnt - 30-07-19
جرب هاذا
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a = WebBrowser1.Document.All
For Each x As HtmlElement In a
If x.GetAttribute("ClassName") = "btn followe" Then
For i = 1 To 100 ' هنا تقدر تغير رقم 100 على حسب تكرار الزر
Threading.Thread.Sleep(3000)
x.InvokeMember("click")
Next
End If
Nextيمكن يعلق البرنامج لاكن هوا يضغط على الزر
تقدر تغير المية 100 بأي رقم
100 = يضغط على الزر 100 مرة الخ ...
انتظر الاجابة ...
RE: مساعدة في تعديل كود - mohamed11223 - 31-07-19
(30-07-19, 10:25 PM)SnTnt كتب : جرب هاذا
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a = WebBrowser1.Document.All
For Each x As HtmlElement In a
If x.GetAttribute("ClassName") = "btn followe" Then
For i = 1 To 100 ' هنا تقدر تغير رقم 100 على حسب تكرار الزر
Threading.Thread.Sleep(3000)
x.InvokeMember("click")
Next
End If
Next
يمكن يعلق البرنامج لاكن هوا يضغط على الزرتقدر تغير المية 100 بأي رقم100 = يضغط على الزر 100 مرة الخ ...
انتظر الاجابة ...
اولا شكرا اخي لاهتمامك بالموضوع
ولكن للاسف لم يعمل ... للاسف قام بالضغط علي جميع الازرار بدون انتظار الفاصل الزمني