[mohamedahmed1]

السلام عليكم ورحمه الله وبركاته

الان انا لو اريد ان اقوم بوضع عدة حسابات  في ليست بوكس بهذه الطريقى

الاميل1:الباسورد1

الاميل2:الباسورد2

الاميل3:الباسورد3

اريد عند ضغط زر التشغيل يتم الذهاب اللي الفيسبوك ويتم تعبئة خانه الباسورد وخانه الاميل من اول سطر في الليست بوكس

ويتم الدخول ثم يتم تنفيذ كود ما 

وبعد ان ينتهي الكود من وظيفته سيتم اغلاق المتصفح واعادة فتحه ونعيد العملية مرة اخري حيث ينتقل الي السطر الثاني في الليست بوكس كيف يمكنني فعل ذلك ؟

*****ملحوظة*****

العقبه اللي اللتي امامي هي كيف اضع الاميل والباسورد للحسابات في الليست بوكس بهذا الشكل

الاميل1:الباسورد1

الاميل2:الباسورد2

الاميل3:الباسورد3

ويتم تعبئة حقل البريد وحقل الباسورد في صفحة دخول الفيسبوك

والعقبه التانية كيف بعد انتهاء الكود يتم الانتقال للسطر التاني للدخول الي الحساب التالي ويتم تنفيذ نفس الكود مرة اخري

[اليوم السابع]

(20-12-19, 01:06 PM)mohamedahmed1 كتب :

السلام عليكم ورحمه الله وبركاته

الان انا لو اريد ان اقوم بوضع عدة حسابات  في ليست بوكس بهذه الطريقى

الاميل1:الباسورد1

الاميل2:الباسورد2

الاميل3:الباسورد3

اريد عند ضغط زر التشغيل يتم الذهاب اللي الفيسبوك ويتم تعبئة خانه الباسورد وخانه الاميل من اول سطر في الليست بوكس

ويتم الدخول ثم يتم تنفيذ كود ما 

وبعد ان ينتهي الكود من وظيفته سيتم اغلاق المتصفح واعادة فتحه ونعيد العملية مرة اخري حيث ينتقل الي السطر الثاني في الليست بوكس كيف يمكنني فعل ذلك ؟

*****ملحوظة*****

العقبه اللي اللتي امامي هي كيف اضع الاميل والباسورد للحسابات في الليست بوكس بهذا الشكل

الاميل1:الباسورد1

الاميل2:الباسورد2

الاميل3:الباسورد3

ويتم تعبئة حقل البريد وحقل الباسورد في صفحة دخول الفيسبوك

والعقبه التانية كيف بعد انتهاء الكود يتم الانتقال للسطر التاني للدخول الي الحساب التالي ويتم تنفيذ نفس الكود مرة اخري

اول شئ بجانب المشروع ضع ملف txt بأسم Email.txt وملف اخر بأسم password.txt
وظيفه ملف Email تضع به الأميل و ملف password تضع به الباسورد 
وضع عدد 2 ليست بوكس علي الفورم 
وعدد 2 زر بوتن 
وعدد 2 تكست بوكس
وعدد 1 تايمر 
وعدد 1 ويب براوزر 

وفي حدث الفورم لود ضع هذا الكود 

كود :

Dim Lines() As String = My.Computer.FileSystem.ReadAllText("Email.txt").Split(vbCrLf)
       ListBox1.Items.AddRange(Lines)
       Dim Lines1() As String = My.Computer.FileSystem.ReadAllText("password.txt").Split(vbCrLf)
       ListBox3.Items.AddRange(Lines1)

وفي حدث الكليك علي الزر 1 ضع هذا الكود 

كود :

Timer1.Start()

وفي حدث التايمر تيك ضع هذا الكود 

كود :

 WebBrowser1.Navigate(" https://mbasic.facebook.com/login/save-password-interstitial/?ref_component=mbasic_footer&ref_page=%2Fwap%2Fhome.php&refid=8&ref=dbl")
Threading.Thread.Sleep(10000)
 WebBrowser1.Navigate("https://mbasic.facebook.com/login/?ref=dbl&fl&refid=8")

Threading.Thread.Sleep(5000)
x = x + 1
If x > ListBox1.Items.Count Then

            Else
                ListBox1.SelectedIndex = x - 1
            End If
ListBox2.SelectedIndex = ListBox1.SelectedIndex
TextBox1.Text = ListBox1.SelectedItem

        TextBox2.Text = ListBox2.SelectedItem

WebBrowser1.Document.GetElementById("m_login_email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("login").InvokeMember("click")

'هنا تضع الكود الخاص بك اللي تريد تنفيذه بعد الدخول

وفي حدث كليك علي زر بوتن 2 ضع به هذا الكود لو حبيت تقفل التايمر 

كود :

Timer1.Stop()

واسفل كلمه Public Class ضع هذا المتغير 

كود :

Private x As Integer

ولكن مع اخذ بعين الاتعبار مع تكرار العمليه الفيس بوك هيطلب منك تحقق انك ليس ريبوت 
وفي النهايه اتمني ماتكنش حاجه مخالفه  

"الحيتان فوق "

[mohamedahmed1]

شكرا علي مجهودك جار التجربة