منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

---

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

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

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

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

تفضل لم استطع الرد امس
طريقة معرفة 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

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

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

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

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

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

أنا مثل LoveVb لم استخدم GeckoWebBrowser حتى المرفق اللي أنت أرفقته فيه حذفه الأنتي فايروس

هذا طريقة تعمل على WebBrowser لا أدري هل تصلح للعمل على Gecko
اعمل مشروع وضع فقط أداة WebBrowser وهذا الكود مع تعديل الايميل والباسوورد وجرب

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

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