[عبدالرحمن المكاوي]

جارررررررررررررررررري الرفع علي موقع رفع لانه حجمه كبير 30 ميجا

---

اتفضل ادي المشروع http://www.mediafire.com/download/1fqldb...t_Geko.rar

[عبدالرحمن المكاوي]

اخوانييييييييييييييييي اين انتم

[ramygamalvb]

اخى لو الموضوع خاص بحسابات bein sport او برامج الخاص بالتفعيل

فانتظر سوف اطرح موضوع خاص بهذا الشأن

[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

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

[عبدالرحمن المكاوي]

(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

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

يوجد مشكلة لكن قبل هذه المشكلة صفحة تسجيل الدخول لم تفتح 

هل يمكن ان يكون المشكل من هنا 

[LoveVb]

لست متاكد لاني اول استخدام لمتصفح GeckoWebBrowser ويظهر رسائل تحذير كثيره
لكن هذه بعض الملاحضات
اذا كنت لا تستطيع ان ترى الصفحة بسبب الخطا قم بازالة الاكواد وضعها في زر
وعند اكتمال الصفحة شاهد هل الصفحة على تسجيل الدخول ام لا
وتاكد بان الid صحيحه

[عبدالرحمن المكاوي]

حذفت هذه الاشياء ومازالت وعندما اضغط علي الزر لايحدث شئ 'h.InnerHtml = UserName
'h.InnerHtml = Password 'h.Click()

[الوادي]

أنا مثل 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 


[عبدالرحمن المكاوي]

لا يتوافق مع جوكو وبالاخص .InvokeMember("click") هل يوجد كود Auto Login

[الوادي]

وجدت أحدهم وضع حل مسألة Invoke جربه قد ينجح
http://www.codeproject.com/Questions/393...oke-member

PHP كود :

Me.GeckoWebBrowser1.DomDocument.GetElementById("ladda").Click()