[mohamed11223]

السلام عليكم ورحمة الله وبركاته
 احتاج مساعدة في هذا الكود

Dim a = WebBrowser1.Document.all
  For Each x As HtmlElement In a
      If x.GetAttribute("ClassName") = "btn followe" Then
          x.InvokeMember("click")
      End If
  Next

هذا الكود يقوم بالبحث عن الازرار الذي اسم الكلاس الخاصة بها btn followe ثم يقوم بالضغط عليها
احتاج ان اضيف فاصل زمني بين كل ضغطة والاخري وشكرا

[haytham.arafat]

PHP كود :

System.Threading.Thread.Sleep(100) 


غير ال 100 حسب ما تريد

[mohamed11223]

مرحبا اخي شكرا لك ولكن الكود لم يعمل قام بالضغط علي كل الازرار بدون الفاصل زمني

[mohamed11223]

للاسف لم يعمل

[bakriano30@yahoo.com]

(30-07-19, 03:42 PM)mohamed11223 كتب : للاسف لم يعمل

اول شئ ضيف بوتن ليست بوكس و تايمر 
في حدث اللود ضيف ده 
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Try
           Timer1.Interval = 1000
           For i = 1 To 7
               ListBox1.Items.Add(i)
           Next
       Catch ex As Exception

       End Try
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Try
           ListBox1.SelectedIndex += 1
       Catch ex As Exception
           Timer1.Stop()
           MsgBox("Done !!")
       End Try
   End Sub
End Class

[mohamed11223]

(30-07-19, 03:47 PM)bakriano30@yahoo.com كتب :

(30-07-19, 03:42 PM)mohamed11223 كتب : للاسف لم يعمل

اول شئ ضيف بوتن ليست بوكس و تايمر 
في حدث اللود ضيف ده 
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Try
           Timer1.Interval = 1000
           For i = 1 To 7
               ListBox1.Items.Add(i)
           Next
       Catch ex As Exception

       End Try
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Try
           ListBox1.SelectedIndex += 1
       Catch ex As Exception
           Timer1.Stop()
           MsgBox("Done !!")
       End Try
   End Sub
End Class

هذا ليس له علاقة بالموضوع اخي

[ابراهيم ايبو]

السلام عليكم اخي الكريم 

تابع هذا الموضوع  فهو بنفس الفكرة 

http://vb4arb.com/vb/showthread.php?tid=30605

[mohamed11223]

اخي للاسف لا استطيع تنفيذ الفكرة التي في الموضوع

الموضوع لايحتاج الي رفع المشروع
ببساطة المشروع عبارة عن ويب براوزر وبوتن

عن الضغط علي البوتن يتم تنفيذ الكود التالي


Dim a = WebBrowser1.Document.all
For Each x As HtmlElement In a
If x.GetAttribute("ClassName") = "btn followe" Then
x.InvokeMember("click")
End If
Next
وهو ان يقوم بالبحث عن البوتن التي تحمل كلاس بالاسم btn followe في صفحة الويب المفتوحة في الويب براوزر ويقوم بالضغط عليه وهناك اكثر من زر يحمل نفس الكلاس اريد عمل فاصل زمني بين كل ضغطة والاخري

[ابراهيم ايبو]

اخي تفضل الكود خاصتك مضاف اليه تأخير 5 ثانية بين كل ضغطة

كود :

Dim a = WebBrowser1.Document.all
       For Each x As HtmlElement In a
           If x.GetAttribute("ClassName") = "btn followe" Then
               x.InvokeMember("click")
           End If
           ' هنا الفاصل الزمني
           'يعمل مع نت فريم ورك 4.5 فما فوق
           Await(Task.Delay(5000)) ' فاصل 5 ثوان
       Next

[mohamed11223]

عند اضافة الكود يظهر العديد من الايرور