السلام عليكم ورحمة الله وبركاته
احتاج مساعدة في هذا الكود
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 ثم يقوم بالضغط عليها
احتاج ان اضيف فاصل زمني بين كل ضغطة والاخري وشكرا
PHP كود :
System.Threading.Thread.Sleep(100)
غير ال 100 حسب ما تريد
مرحبا اخي شكرا لك ولكن الكود لم يعمل قام بالضغط علي كل الازرار بدون الفاصل زمني
(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
(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
هذا ليس له علاقة بالموضوع اخي
اخي للاسف لا استطيع تنفيذ الفكرة التي في الموضوع
الموضوع لايحتاج الي رفع المشروع
ببساطة المشروع عبارة عن ويب براوزر وبوتن
عن الضغط علي البوتن يتم تنفيذ الكود التالي
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
عند اضافة الكود يظهر العديد من الايرور