السلام عليكم ورحمة الله تعالى وبركاته
رمضان كريم اعضاء ومشرفي هذا المنتدى الغالي
احتاج كود الدخول الى موقع 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()
اتمنى اجد الحل عند الاخوة الكرام
وجزاكم الله خيرا
تم الدخول الى الموقع من خلال هذا المتصفح بالكود التالي
كود :
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()
ارجو من الاخوان المشاركة في هذا الموضوع ولو بابسط الافكار
الدخول تم
يجب ايجاد كود لرفع ملف الى الموقع
غريبة الم يشاركنا احد في الفكرة
(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()
اتمنى اجد الحل عند الاخوة الكرام
وجزاكم الله خيرا
لا يوجد عندي GeckoWebBrowser لاستطيع التجربه وانت لم تضع مشروع به الاداه للتجربه
واجزم ان اكثر من شاهدو الموضوع ولم يشاركو بسبب عدم وجود GeckoWebBrowser لديهم
بعد البحث لمشكلت الضغط على زر الدخول
اتضح ان موقع الدخول لموقع
mediafire اعتمد على submit للform الخاص بالدخول
واسم id لفورم الدخول form_login1
اعتقد ان الحل في Gecko
FormElement وليس Gecko
InputElement هذا بالنسبه ل sumbit
وهذا اجتهاد مني يمكن يكون بدايه للحل
Dim loginform As New Gecko
FormElement(GeckoWebBrowser1.Document.GetElementById("
form_login1").DomObject) 'Gecko
FormElement
loginform.
submit
يعني ركز على
submit الخاصه ب Gecko
FormElement للضغط على دخول وليس 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
شكرا لك الاخ sami4 على المشاركة
اولا كود الدخول تم الوصول اليه وقد وضعت الكود في الاعلى يبدو انك لم تنتبه له
انا ابحث على طريقة رفع الملفات الى الموقع
وبخصوص المثال رفعته على الموقع نفسه لكبير حجمه لم اتمكن من رفعه هنا بالمنتدى
(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 كتب : [ -> ] 
جزاكم الله خيرا
عني انا لم استطع تشغيل المثال لان الفيجوال عندي 2010 ولا يتعامل مع NuGet رغم محاولاتي
والتمس العذر لبقيت الاعضاء
لو كان موقع mediafire يتعامل مع ftp فسيكون الامر سهل
الرجاء التاكد من الموقع فليس لدي حساب فيه
عني انا لم استطع تشغيل المثال لان الفيجوال عندي 2010 ولا يتعامل مع NuGet رغم محاولاتي
والتمس العذر لبقيت الاعضاء
لو كان موقع mediafire يتعامل مع ftp فسيكون الامر سهل
الرجاء التاكد من الموقع فليس لدي حساب فيه
الموقع لا يتعامل مع ftp
لوكان يتعامل ماكنت طرحت الموضوع
شكرا لك اخي الكريم
ورمضانك مبارك وتقبل الله صيامك
(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()
ارجو من الاخوان المشاركة في هذا الموضوع ولو بابسط الافكار
الدخول تم
يجب ايجاد كود لرفع ملف الى الموقع
اتضح بعد البحث ان موقع mediafire له sdk ولكن بلغات ليس من ضمنها vb.net
ولكن من حسن الحظ ان من ضمن اللغات c# وهي الاقرب
رابط المطورين
https://www.mediafire.com/developers
تحتاج لانشاء حساب مطور - يختلف عن الحساب العادي - تحصل منه على appid
صفحه بدايه تسجيل حساب مطور
https://www.mediafire.com/developers/getting_started/getting_started
ثم تذهب للموقع
GitHub وتقوم بتنزيل sdk خاص ب c#
https://github.com/MediaFire/mediafire-csharp-open-sdk
وهذا رابط تنزيل الملف مباشره
https://codeload.github.com/MediaFire/me...zip/master
يحتوي الملف على مشروع مثال بل c#