منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تخطي نافذة لموقع file-up.org - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تخطي نافذة لموقع file-up.org (/showthread.php?tid=30896)

الصفحات: 1 2 3


RE: تخطي نافذة لموقع file-up.org - ابو روضة - 16-08-19

(16-08-19, 09:35 PM)bidaya كتب :
(16-08-19, 08:26 PM)ابو روضة كتب :
ثوانى هاعمل لك مثال بالسيلينيام لكن سيتم فتج كروم وسيعمل هو من تلقاء نفسة
فهل هذا مناسب لك ؟

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


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



up.org



RE: تخطي نافذة لموقع file-up.org - bidaya - 17-08-19

(16-08-19, 09:38 PM)ابو روضة كتب :
(16-08-19, 09:35 PM)bidaya كتب :
(16-08-19, 08:26 PM)ابو روضة كتب :
ثوانى هاعمل لك مثال بالسيلينيام لكن سيتم فتج كروم وسيعمل هو من تلقاء نفسة
فهل هذا مناسب لك ؟

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


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




طريقة جد جميلة
لو تسمح اخي الكريم (ان لم يكن لك مانع طبعا) ان تشرح لي الكود
الله يجازيك بخير

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

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



RE: تخطي نافذة لموقع file-up.org - ابو روضة - 17-08-19

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() 
إقتباس :
فيه ملاحظة اخرى اخي ان التحميل لا يتم في الحساب

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

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


RE: تخطي نافذة لموقع file-up.org - bidaya - 17-08-19

(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() 
إقتباس :
فيه ملاحظة اخرى اخي ان التحميل لا يتم في الحساب

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

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

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



RE: تخطي نافذة لموقع file-up.org - ابو روضة - 17-08-19

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



RE: تخطي نافذة لموقع file-up.org - bidaya - 17-08-19

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

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



RE: تخطي نافذة لموقع file-up.org - ابو روضة - 17-08-19

إقتباس :
فعلا شيء جميل

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

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