22-06-13, 01:38 PM
هتجيب اداه WebBrowser
وتربطها مع التكست بوكس بحيث ان رابط الاداه تأخدة من التكست بوكس رقم 3
والكود هيكون كدا ,,
WebBrowser1.Navigate (Text3.Text)
اما بالنسبة للباص والاميل بالاول راح تخلي اداه الوب بروز تدخل علي صفحة الفيس بوك
وعند الضغط علي زر تسجيل الدخول تنتقل قيمة التكست بوكس 1 إلي مكان الاميل في صفحة الفيس بوك
وقيمة التكست بوكس 2 إلي مكان الاميل في صفحة الفيس بوك
والكود هيكون كدا ,,
WebBrowser1.Document.All("email").Value = Text1.Text
WebBrowser1.Document.All("pass").Value = Text2.Text
وبضيف اداه البروجرس بار عشان تبين ان البرنامج يعمل للمستخدم ويقوم بإجراء الخدمة
وتربطه بالوب براوزر والكود هيكون كدا
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
اتمني ان يكون هذا هو ما تقصدة ,,
واذا تبغي مثال آوك ما في مشاكل
وتربطها مع التكست بوكس بحيث ان رابط الاداه تأخدة من التكست بوكس رقم 3
والكود هيكون كدا ,,
WebBrowser1.Navigate (Text3.Text)
اما بالنسبة للباص والاميل بالاول راح تخلي اداه الوب بروز تدخل علي صفحة الفيس بوك
وعند الضغط علي زر تسجيل الدخول تنتقل قيمة التكست بوكس 1 إلي مكان الاميل في صفحة الفيس بوك
وقيمة التكست بوكس 2 إلي مكان الاميل في صفحة الفيس بوك
والكود هيكون كدا ,,
WebBrowser1.Document.All("email").Value = Text1.Text
WebBrowser1.Document.All("pass").Value = Text2.Text
وبضيف اداه البروجرس بار عشان تبين ان البرنامج يعمل للمستخدم ويقوم بإجراء الخدمة
وتربطه بالوب براوزر والكود هيكون كدا
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
اتمني ان يكون هذا هو ما تقصدة ,,
واذا تبغي مثال آوك ما في مشاكل