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

يوجد مشكلة في الثلاث اكواد Me.GeckoWebBrowser1.Document.GetElementById("input-email").InnerText = "xxxxxxxx@xxxxx.com"
Me.GeckoWebBrowser1.Document.GetElementById("input-password").InnerText = "pass123"
Me.GeckoWebBrowser1.DomDocument.GetElementById("ladda").Click()

[الوادي]

لاحظت أجوبتي ليست عن تجربة لأن ماعندي متصفح GeckoWebBrowser

PHP كود :

Me.GeckoWebBrowser1.Document.GetElementById("input-email").SetAttribute("value", "xxxxxxxx@xxxxx.com")
Me.GeckoWebBrowser1.Document.GetElementById("input-password").SetAttribute("value", "pass123")
Me.GeckoWebBrowser1.Document.GetElementById("ladda").Click() 


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

ها هو اخي متصفح جوكو مرفق مع ابلكيش حمله وشوفه بنفسك http://www.mediafire.com/download/1fqldb...t+Geko.rar

[الوادي]

عبدالرحمن

أنزلت المرفق وقام بحذفه الأنتي فايروس (الملفين الأولين تخص ملفات Gecko)

[mostfa1995]

اتفضل هو ده الكود الخاص بالجيكو

GeckoWebBrowser1.Navigate("javascript:void( document.getElementById( 'ladda' ).click() ) ")

[LoveVb]

كود :

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GeckoWebBrowser1.Navigate("https://connect.bein.net/ar/login-ar/")
    End Sub
    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("input-email") ' عنصر ادخال الايميل
            h.SetAttribute("value", "lovevb")
            h = GeckoWebBrowser1.Document.GetElementById("input-password") 'عنصر ادخال الباسورد
            h.SetAttribute("value", "00000000")
            h = GeckoWebBrowser1.Document.GetElementById("ladda") ' عنصر زر تسجيل دخول
            h.Click()
            FirstTime = False
        End If
    End Sub

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

(29-07-16, 08:45 AM)LoveVb كتب :

كود :

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GeckoWebBrowser1.Navigate("https://connect.bein.net/ar/login-ar/")
    End Sub
    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("input-email") ' عنصر ادخال الايميل
            h.SetAttribute("value", "lovevb")
            h = GeckoWebBrowser1.Document.GetElementById("input-password") 'عنصر ادخال الباسورد
            h.SetAttribute("value", "00000000")
            h = GeckoWebBrowser1.Document.GetElementById("ladda") ' عنصر زر تسجيل دخول
            h.Click()
            FirstTime = False
        End If
    End Sub

الكود شغال والبرنامج اشتغل لكن للاسف لا يجلب بيانات داخل الحقول

[LoveVb]

نسيت اعدل الكود قم باستبدال "lovevb" ب useranem
ايضا "0000000000" ب password

[Samir Ibrahim]

هل الموقع عندك شغال ؟
يعني اذا عملت http:\\www.your_site.com\email1.txt
سوف تعمل على المتصفح؟

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

يقول ليه : لم يتم تعيين مرجع كائن لمثيل كائن. علي سطر h.SetAttribute("value", "email") وذلك بعد الضغط علي بوتن