+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=16571)
RE: عمل تسيجل دخول تلقائي لايميل معين - عبدالرحمن المكاوي - 25-07-16
جارررررررررررررررررري الرفع علي موقع رفع لانه حجمه كبير 30 ميجا
اتفضل ادي المشروع http://www.mediafire.com/download/1fqldb3xpy53qd9/Test_Geko.rar
RE: عمل تسيجل دخول تلقائي لايميل معين - عبدالرحمن المكاوي - 26-07-16
اخوانييييييييييييييييي اين انتم
RE: عمل تسيجل دخول تلقائي لايميل معين - ramygamalvb - 26-07-16
اخى لو الموضوع خاص بحسابات bein sport او برامج الخاص بالتفعيل
فانتظر سوف اطرح موضوع خاص بهذا الشأن
RE: عمل تسيجل دخول تلقائي لايميل معين - LoveVb - 26-07-16
تفضل لم استطع الرد امس
طريقة معرفة id العنصر على الصفحة
Listen عنصر
ضع هذه الكود عند بدء الفورم ضع هذا
GeckoWebBrowser1.Navigate("رابط الموقع")
وهذه ضعها في مكان عام ليس في اي حدث
Dim FirstTime As Boolean = True
Dim h As Gecko.GeckoHtmlElement
بالنسبة للاكواد الخاصة بموضوعك ستكون
إقتباس : Private Sub GeckoWebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As Gecko.Events.GeckoDocumentCompletedEventArgs) Handles GeckoWebBrowser1.DocumentCompletedسينفذ هذه الاكواد اول مره فقط
If FirstTime = True Then
Dim UserName As String = New Net.WebClient().DownloadString("رابط الخاص ب الايميل فقط")
Dim Password As Integer = CInt(New Net.WebClient().DownloadString("رابط الخاص ب الباسورد"))
h = GeckoWebBrowser1.Document.GetElementById("Id") ' عنصر ادخال الايميل
h.InnerHtml = UserName
h = GeckoWebBrowser1.Document.GetElementById("Id") 'عنصر ادخال الباسورد
h.InnerHtml = Password
h = GeckoWebBrowser1.Document.GetElementById("Id") ' عنصر زر تسجيل دخول
h.Click()
FirstTime = False
End If
End Sub
عند تسجيل الدخول للموقع وقام بحفظ الصفحة راح يحدث خطا لان العناصر ليست موجودة
واعتقد راح يحولك للصفحة الرئيسية
لذلك يجب ان تتاكد من الرابط اذا كان خاص بتسجيل الدخول
اي استفسار في الخدمة
RE: عمل تسيجل دخول تلقائي لايميل معين - عبدالرحمن المكاوي - 26-07-16
(26-07-16, 12:39 PM)ramygamalvb كتب : اخى لو الموضوع خاص بحسابات bein sport او برامج الخاص بالتفعيل
فانتظر سوف اطرح موضوع خاص بهذا الشأن
متي اخي
(26-07-16, 01:19 PM)LoveVb كتب : تفضل لم استطع الرد امس
طريقة معرفة id العنصر على الصفحة
Listen عنصر
ضع هذه الكود عند بدء الفورم ضع هذا
GeckoWebBrowser1.Navigate("رابط الموقع")
وهذه ضعها في مكان عام ليس في اي حدث
Dim FirstTime As Boolean = True
Dim h As Gecko.GeckoHtmlElement
بالنسبة للاكواد الخاصة بموضوعك ستكون
إقتباس : Private Sub GeckoWebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As Gecko.Events.GeckoDocumentCompletedEventArgs) Handles GeckoWebBrowser1.DocumentCompletedسينفذ هذه الاكواد اول مره فقط
If FirstTime = True Then
Dim UserName As String = New Net.WebClient().DownloadString("رابط الخاص ب الايميل فقط")
Dim Password As Integer = CInt(New Net.WebClient().DownloadString("رابط الخاص ب الباسورد"))
h = GeckoWebBrowser1.Document.GetElementById("Id") ' عنصر ادخال الايميل
h.InnerHtml = UserName
h = GeckoWebBrowser1.Document.GetElementById("Id") 'عنصر ادخال الباسورد
h.InnerHtml = Password
h = GeckoWebBrowser1.Document.GetElementById("Id") ' عنصر زر تسجيل دخول
h.Click()
FirstTime = False
End If
End Sub
عند تسجيل الدخول للموقع وقام بحفظ الصفحة راح يحدث خطا لان العناصر ليست موجودة
واعتقد راح يحولك للصفحة الرئيسية
لذلك يجب ان تتاكد من الرابط اذا كان خاص بتسجيل الدخول
اي استفسار في الخدمة
يوجد مشكلة لكن قبل هذه المشكلة صفحة تسجيل الدخول لم تفتح
هل يمكن ان يكون المشكل من هنا
RE: عمل تسيجل دخول تلقائي لايميل معين - LoveVb - 26-07-16
لست متاكد لاني اول استخدام لمتصفح GeckoWebBrowser ويظهر رسائل تحذير كثيره
لكن هذه بعض الملاحضات
اذا كنت لا تستطيع ان ترى الصفحة بسبب الخطا قم بازالة الاكواد وضعها في زر
وعند اكتمال الصفحة شاهد هل الصفحة على تسجيل الدخول ام لا
وتاكد بان الid صحيحه
RE: عمل تسيجل دخول تلقائي لايميل معين - عبدالرحمن المكاوي - 27-07-16
حذفت هذه الاشياء ومازالت وعندما اضغط علي الزر لايحدث شئ 'h.InnerHtml = UserName
'h.InnerHtml = Password 'h.Click()
RE: عمل تسيجل دخول تلقائي لايميل معين - الوادي - 27-07-16
أنا مثل LoveVb لم استخدم GeckoWebBrowser حتى المرفق اللي أنت أرفقته فيه حذفه الأنتي فايروس
هذا طريقة تعمل على WebBrowser لا أدري هل تصلح للعمل على Gecko
اعمل مشروع وضع فقط أداة WebBrowser وهذا الكود مع تعديل الايميل والباسوورد وجرب
PHP كود :
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.WebBrowser1.Navigate("https://connect.bein.net/ar/login-ar/")
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.WebBrowser1.Document.GetElementById("input-email").InnerText = "xxxxxxxx@xxxxx.com"
Me.WebBrowser1.Document.GetElementById("input-password").InnerText = "pass123"
Me.WebBrowser1.Document.GetElementById("ladda").InvokeMember("click")
End Sub
End Class
RE: عمل تسيجل دخول تلقائي لايميل معين - عبدالرحمن المكاوي - 27-07-16
لا يتوافق مع جوكو وبالاخص .InvokeMember("click") هل يوجد كود Auto Login
RE: عمل تسيجل دخول تلقائي لايميل معين - الوادي - 27-07-16
وجدت أحدهم وضع حل مسألة Invoke جربه قد ينجح
http://www.codeproject.com/Questions/393760/geckowebbrowser-and-invoke-member
PHP كود :
Me.GeckoWebBrowser1.DomDocument.GetElementById("ladda").Click()