[ابو روضة]

(16-08-19, 09:35 PM)bidaya كتب :

(16-08-19, 08:26 PM)ابو روضة كتب :

ثوانى هاعمل لك مثال بالسيلينيام لكن سيتم فتج كروم وسيعمل هو من تلقاء نفسة

فهل هذا مناسب لك ؟

وكيف لا يناسبني وانت تساعدني اخي

 سنستفيد جميعا من هته المشاركة

اتفضل أخى ولا تنسى يجب أن يكون كروم متنصب على جهازك.

up.org

[bidaya]

(16-08-19, 09:38 PM)ابو روضة كتب :

(16-08-19, 09:35 PM)bidaya كتب :

(16-08-19, 08:26 PM)ابو روضة كتب :

ثوانى هاعمل لك مثال بالسيلينيام لكن سيتم فتج كروم وسيعمل هو من تلقاء نفسة

فهل هذا مناسب لك ؟

وكيف لا يناسبني وانت تساعدني اخي

 سنستفيد جميعا من هته المشاركة

اتفضل أخى ولا تنسى يجب أن يكون كروم متنصب على جهازك.

up.org

طريقة جد جميلة

لو تسمح اخي الكريم (ان لم يكن لك مانع طبعا) ان تشرح لي الكود

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

الله يبارك فيك اخي ابو روضة

---

فيه ملاحظة اخرى اخي ان التحميل لا يتم في الحساب

كيف يمكن التحميل داخل الحساب

[ابو روضة]

PHP كود :

الدخول للموقع
 dr.Navigate.GoToUrl("https://www.file-up.org/?op=upload_form")
انتظر 100 ثانية لكن بمجرد أن ترى أى عنصر والقيمه الى تبعه قم بالتنفيذ مباشرة

            dr.Manage().Timeouts().ImplicitWait = TimeSpan.FromSeconds(100)
افتح المتصفح بالكامل
            dr.Manage().Window.Maximize()
 اذا رأيت هذا الاى دى ارسل له ما بالتكست بوكس         
  Dim dsd As IWebElement = dr.FindElement(By.Id("file_0"))
            dsd.SendKeys(TextBox1.Text)

           اذا رأيت هذا الباص فأضغط عليه
            Dim ds As IWebElement = dr.FindElement(By.XPath("//*[@id='upload_controls']/input[1]"))

            ds.Click()
اذا رأيت كذا فأرسله الى كذا وهكذا.....
            Dim s As IWebElement = dr.FindElement(By.Name("file_name"))
           
 TextBox2.Text = s.GetAttribute("href")

أغلق المتصفح بعد تنفيذ كل ما سبق
            dr.Quit() 


إقتباس :

فيه ملاحظة اخرى اخي ان التحميل لا يتم في الحساب

كيف يمكن التحميل داخل الحساب

تحتاج لعمل تسجيل دخول قبل عمل أى شيئ لو أحببت فأنا فى الخدمة

[bidaya]

(17-08-19, 03:00 AM)ابو روضة كتب :

PHP كود :

الدخول للموقع
 dr.Navigate.GoToUrl("https://www.file-up.org/?op=upload_form")
انتظر 100 ثانية لكن بمجرد أن ترى أى عنصر والقيمه الى تبعه قم بالتنفيذ مباشرة

            dr.Manage().Timeouts().ImplicitWait = TimeSpan.FromSeconds(100)
افتح المتصفح بالكامل
            dr.Manage().Window.Maximize()
 اذا رأيت هذا الاى دى ارسل له ما بالتكست بوكس         
  Dim dsd As IWebElement = dr.FindElement(By.Id("file_0"))
            dsd.SendKeys(TextBox1.Text)

           اذا رأيت هذا الباص فأضغط عليه
            Dim ds As IWebElement = dr.FindElement(By.XPath("//*[@id='upload_controls']/input[1]"))

            ds.Click()
اذا رأيت كذا فأرسله الى كذا وهكذا.....
            Dim s As IWebElement = dr.FindElement(By.Name("file_name"))
           
 TextBox2.Text = s.GetAttribute("href")

أغلق المتصفح بعد تنفيذ كل ما سبق
            dr.Quit() 


إقتباس :

فيه ملاحظة اخرى اخي ان التحميل لا يتم في الحساب

كيف يمكن التحميل داخل الحساب

تحتاج لعمل تسجيل دخول قبل عمل أى شيئ لو أحببت فأنا فى الخدمة

يمكن تظيف تسجيل الدخول

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

[ابو روضة]

(17-08-19, 03:03 AM)bidaya كتب :

(17-08-19, 03:00 AM)ابو روضة كتب :

PHP كود :

الدخول للموقع
 dr.Navigate.GoToUrl("https://www.file-up.org/?op=upload_form")
انتظر 100 ثانية لكن بمجرد أن ترى أى عنصر والقيمه الى تبعه قم بالتنفيذ مباشرة

            dr.Manage().Timeouts().ImplicitWait = TimeSpan.FromSeconds(100)
افتح المتصفح بالكامل
            dr.Manage().Window.Maximize()
 اذا رأيت هذا الاى دى ارسل له ما بالتكست بوكس         
  Dim dsd As IWebElement = dr.FindElement(By.Id("file_0"))
            dsd.SendKeys(TextBox1.Text)

           اذا رأيت هذا الباص فأضغط عليه
            Dim ds As IWebElement = dr.FindElement(By.XPath("//*[@id='upload_controls']/input[1]"))

            ds.Click()
اذا رأيت كذا فأرسله الى كذا وهكذا.....
            Dim s As IWebElement = dr.FindElement(By.Name("file_name"))
           
 TextBox2.Text = s.GetAttribute("href")

أغلق المتصفح بعد تنفيذ كل ما سبق
            dr.Quit() 


إقتباس :

فيه ملاحظة اخرى اخي ان التحميل لا يتم في الحساب

كيف يمكن التحميل داخل الحساب

تحتاج لعمل تسجيل دخول قبل عمل أى شيئ لو أحببت فأنا فى الخدمة

يمكن تظيف تسجيل الدخول

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

اتفضل

PHP كود :

dr.Navigate.GoToUrl("https://www.file-up.org/login.html")
            dr.Manage().Timeouts().ImplicitWait = TimeSpan.FromSeconds(100)
            Dim ee As IWebElement = dr.FindElement(By.Name("login"))
            ee.SendKeys(TextBox3.Text)
            Dim aa As IWebElement = dr.FindElement(By.Name("password"))
            aa.SendKeys(TextBox4.Text & OpenQA.Selenium.Keys.Enter)



            dr.Navigate.GoToUrl("https://www.file-up.org/?op=upload_form")

            dr.Manage().Window.Maximize()
            Dim dsd As IWebElement = dr.FindElement(By.Id("file_0"))
            dsd.SendKeys(TextBox1.Text)
            'Await Task.Delay(4000)
            Dim ds As IWebElement = dr.FindElement(By.XPath("//*[@id='upload_controls']/input[1]"))
            ds.Click()
            Dim s As IWebElement = dr.FindElement(By.Name("file_name"))
            TextBox2.Text = s.GetAttribute("href")
            dr.Quit() 


[bidaya]

(17-08-19, 03:12 AM)ابو روضة كتب : اتفضل

PHP كود :

dr.Navigate.GoToUrl("https://www.file-up.org/login.html")
            dr.Manage().Timeouts().ImplicitWait = TimeSpan.FromSeconds(100)
            Dim ee As IWebElement = dr.FindElement(By.Name("login"))
            ee.SendKeys(TextBox3.Text)
            Dim aa As IWebElement = dr.FindElement(By.Name("password"))
            aa.SendKeys(TextBox4.Text & OpenQA.Selenium.Keys.Enter)



            dr.Navigate.GoToUrl("https://www.file-up.org/?op=upload_form")

            dr.Manage().Window.Maximize()
            Dim dsd As IWebElement = dr.FindElement(By.Id("file_0"))
            dsd.SendKeys(TextBox1.Text)
            'Await Task.Delay(4000)
            Dim ds As IWebElement = dr.FindElement(By.XPath("//*[@id='upload_controls']/input[1]"))
            ds.Click()
            Dim s As IWebElement = dr.FindElement(By.Name("file_name"))
            TextBox2.Text = s.GetAttribute("href")
            dr.Quit() 


فعلا شيء جميل

لقد استفدة كثيرا من مشاركتك العطرة اخي ابو روضة

جعلها الله لك في ميزان الحسنات

[ابو روضة]

إقتباس :

فعلا شيء جميل

لقد استفدة كثيرا من مشاركتك العطرة اخي ابو روضة

جعلها الله لك في ميزان الحسنات

ربنا يكرمك أخى ويبارك بعمرك