(24-05-19, 06:57 AM)bidaya كتب :

السلام عليكم ورحمة الله تعالى وبركاته

رمضان كريم اعضاء ومشرفي هذا المنتدى الغالي

احتاج كود الدخول الى موقع mediafire

عندي هذا الكود لادات 

GeckoWebBrowser

به مشكل الظغط على زر الدخول

كود :

Dim username As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementById("widget_login_email").DomObject)
       Dim password As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementById("widget_login_pass").DomObject)
       Dim login As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementsByClassName("gbtnTertiary")(0).DomObject)
       username.Value = user.Text
       password.Value = passw.Text
       login.Click()

اتمنى اجد الحل عند الاخوة الكرام

وجزاكم الله خيرا

(30-05-19, 04:36 PM)sami4 كتب : لا يوجد عندي GeckoWebBrowser لاستطيع التجربه وانت لم تضع مشروع به الاداه للتجربه
واجزم ان اكثر من شاهدو الموضوع ولم يشاركو بسبب عدم وجود GeckoWebBrowser لديهم

بعد البحث لمشكلت الضغط على زر الدخول
اتضح ان موقع الدخول لموقع mediafire اعتمد على submit للform الخاص بالدخول
واسم id لفورم الدخول form_login1

اعتقد ان الحل في GeckoFormElement وليس GeckoInputElement هذا بالنسبه ل sumbit

وهذا اجتهاد مني يمكن يكون بدايه للحل

Dim loginform As New GeckoFormElement(GeckoWebBrowser1.Document.GetElementById("form_login1").DomObject) 'GeckoFormElement

loginform.submit

---

يعني ركز على submit الخاصه ب GeckoFormElement للضغط على دخول وليس click

جزاكم الله خيرا

(30-05-19, 08:13 PM)bidaya كتب :

(30-05-19, 04:36 PM)sami4 كتب : لا يوجد عندي GeckoWebBrowser لاستطيع التجربه وانت لم تضع مشروع به الاداه للتجربه
واجزم ان اكثر من شاهدو الموضوع ولم يشاركو بسبب عدم وجود GeckoWebBrowser لديهم

بعد البحث لمشكلت الضغط على زر الدخول
اتضح ان موقع الدخول لموقع mediafire اعتمد على submit للform الخاص بالدخول
واسم id لفورم الدخول form_login1

اعتقد ان الحل في GeckoFormElement وليس GeckoInputElement هذا بالنسبه ل sumbit

وهذا اجتهاد مني يمكن يكون بدايه للحل

Dim loginform As New GeckoFormElement(GeckoWebBrowser1.Document.GetElementById("form_login1").DomObject) 'GeckoFormElement

loginform.submit

---

يعني ركز على submit الخاصه ب GeckoFormElement للضغط على دخول وليس click

شكرا لك الاخ sami4 على المشاركة

اولا كود الدخول تم الوصول اليه وقد وضعت الكود في الاعلى يبدو انك لم تنتبه له

انا ابحث على طريقة رفع الملفات الى الموقع

وبخصوص المثال رفعته على الموقع نفسه لكبير حجمه لم اتمكن من رفعه هنا بالمنتدى

رابط المثال

(31-05-19, 06:08 PM)bidaya كتب :

جزاكم الله خيرا

ورمضانك مبارك وتقبل الله صيامك

(24-05-19, 06:57 AM)bidaya كتب :

السلام عليكم ورحمة الله تعالى وبركاته

رمضان كريم اعضاء ومشرفي هذا المنتدى الغالي

احتاج كود الدخول الى موقع mediafire

عندي هذا الكود لادات 

GeckoWebBrowser

به مشكل الظغط على زر الدخول

كود :

Dim username As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementById("widget_login_email").DomObject)
       Dim password As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementById("widget_login_pass").DomObject)
       Dim login As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementsByClassName("gbtnTertiary")(0).DomObject)
       username.Value = user.Text
       password.Value = passw.Text
       login.Click()

اتمنى اجد الحل عند الاخوة الكرام

وجزاكم الله خيرا

(28-05-19, 04:19 AM)bidaya كتب :

تم الدخول الى الموقع من خلال هذا المتصفح بالكود التالي

كود :

Dim username As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementById("widget_login_email").DomObject)
       Dim password As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementById("widget_login_pass").DomObject)
       Dim login As GeckoInputElement = New GeckoInputElement(GeckoWebBrowser1.Document.GetElementsByTagName("button")(1).DomObject)
       username.Value = user
       password.Value = passw
       login.Click()

ارجو من الاخوان المشاركة في هذا الموضوع ولو بابسط الافكار

الدخول تم

يجب ايجاد كود لرفع ملف الى الموقع