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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

up.org

إقتباس :

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

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

(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() 


إقتباس :

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

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

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

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

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

(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() 


إقتباس :

فعلا شيء جميل

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

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