مساعدة في تعديل كود - نسخة قابلة للطباعة

مساعدة في تعديل كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

مساعدة في تعديل كود - mohamed11223 - 30-07-19

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

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 ثم يقوم بالضغط عليها
احتاج ان اضيف فاصل زمني بين كل ضغطة والاخري وشكرا

RE: مساعدة في تعديل كود - haytham.arafat - 30-07-19

PHP كود :

System.Threading.Thread.Sleep(100) 

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

RE: مساعدة في تعديل كود - mohamed11223 - 30-07-19

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

RE: مساعدة في تعديل كود - mohamed11223 - 30-07-19

للاسف لم يعمل

RE: مساعدة في تعديل كود - bakriano30@yahoo.com - 30-07-19

(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

RE: مساعدة في تعديل كود - mohamed11223 - 30-07-19

(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

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

RE: مساعدة في تعديل كود - ابراهيم ايبو - 30-07-19

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

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

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

RE: مساعدة في تعديل كود - mohamed11223 - 30-07-19

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

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

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

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 في صفحة الويب المفتوحة في الويب براوزر ويقوم بالضغط عليه وهناك اكثر من زر يحمل نفس الكلاس اريد عمل فاصل زمني بين كل ضغطة والاخري

RE: مساعدة في تعديل كود - ابراهيم ايبو - 30-07-19

اخي تفضل الكود خاصتك مضاف اليه تأخير 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

RE: مساعدة في تعديل كود - mohamed11223 - 30-07-19

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