تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد تحويل هذا الكود للسى شارب لو سمحتم
#1
السلام عليكم اخوتى

اريد تحويل هذا الكود للسى شارب لو تكرمتم..


طبعا فى موضوع سابق هنا http://vb4arb.com/vb/showthread.php?tid=26801


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




كود :
Try
           For i As Integer = 0 To DataGridView1.RowCount - 1
               fes.Navigate().GoToUrl(DataGridView1.Rows(i).Cells(0).Value.ToString())
               title = fes.Title
               If CheckBox1.Checked Then

                   'System.Threading.Thread.Sleep(10000)
                   Dim qqq As IWebElement = fes.FindElement(By.Name("view_photo"))
                   qqq.Click()
                   System.Threading.Thread.Sleep(5000)
                   Dim dsd As IWebElement = fes.FindElement(By.XPath("/html/body/div/div/div[2]/div/table/tbody/tr/td/form/div[1]/div/input[1]"))
                   'dsd.Click()
                   System.Threading.Thread.Sleep(2000)
                   dsd.SendKeys(TextBox1.Text)
                   'SendKeys.SendWait("{Enter}")
                   System.Threading.Thread.Sleep(2000)
                   Dim sss As IWebElement = fes.FindElement(By.Name("add_photo_done"))
                   sss.Click()
                   System.Threading.Thread.Sleep(20000)

                   Dim postes As IWebElement = fes.FindElement(By.Id("u_0_0"))
                   Dim postbox As IWebElement = fes.FindElement(By.Name("view_post"))
                   postes.SendKeys(TextBox5.Text)
                   postbox.Click()
                   Await Task.Delay(CInt(Fix(NumericUpDown1.Value)) * 1000)
               Else
                   Dim postes As IWebElement = fes.FindElement(By.Id("u_0_0"))
                   Dim postbox As IWebElement = fes.FindElement(By.Name("view_post"))
                   postes.SendKeys(TextBox5.Text)
                   postbox.Click()
                   Await Task.Delay(CInt(Fix(NumericUpDown1.Value)) * 1000)
               End If

           Next i
       Catch ex As Exception
       End Try
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
التحويل ليس صعبا اذا اتبعت قواعد لغة c
وأهمها حالة الأحرف وأقواس المصفوفات[] وأقواس الميثود() والفاصلة المنقوطة;
بالإضافة لمراجعة اسماء الأدوات حرفا وحالة

      //Try
      try{
          //For i As Integer = 0 To DataGridView1.RowCount - 1
          for(int i=0; i<DataGridView1.RowCount; i++){
              //fes.Navigate().GoToUrl(DataGridView1.Rows(i).Cells(0).Value.ToString())
              fes.Navigate().GoToUrl(DataGridView1.Rows[i].Cells[0].Value.ToString());
              //title = fes.Title
              title = fes.Title;
              //If CheckBox1.Checked Then
              if (CheckBox1.Checked==true) {

                  //'System.Threading.Thread.Sleep(10000)
                  //Dim qqq As IWebElement = fes.FindElement(By.Name("view_photo"))
                  IWebElement qqq = fes.FindElement(By.Name("view_photo"));
                  //qqq.Click()
                  qqq.Click();
                  //System.Threading.Thread.Sleep(5000)
                  System.Threading.Thread.Sleep(5000);
                  //Dim dsd As IWebElement = fes.FindElement(By.XPath("/html/body/div/div/div[2]/div/table/tbody/tr/td/form/div[1]/div/input[1]"))
                  IWebElement dsd = fes.FindElement(By.XPath(@"/html/body/div/div/div[2]/div/table/tbody/tr/td/form/div[1]/div/input[1]"));
                  //'dsd.Click()
                  //System.Threading.Thread.Sleep(2000)
                  System.Threading.Thread.Sleep(2000);
                  //dsd.SendKeys(TextBox1.Text)
                  dsd.SendKeys(TextBox1.Text);
                  //'SendKeys.SendWait("{Enter}")
                  //System.Threading.Thread.Sleep(2000)
                  System.Threading.Thread.Sleep(2000);
                  //Dim sss As IWebElement = fes.FindElement(By.Name("add_photo_done"))
                  IWebElement sss = fes.FindElement(By.Name("add_photo_done"));
                  //sss.Click()
                  sss.Click();
                  //System.Threading.Thread.Sleep(20000)
                  System.Threading.Thread.Sleep(20000);

                  //Dim postes As IWebElement = fes.FindElement(By.Id("u_0_0"))
                  IWebElement postes = fes.FindElement(By.Id("u_0_0"));
                  //Dim postbox As IWebElement = fes.FindElement(By.Name("view_post"))
                  IWebElement postbox = fes.FindElement(By.Name("view_post"));
                  //postes.SendKeys(TextBox5.Text)
                  postes.SendKeys(TextBox5.Text);
                  //postbox.Click()
                  postbox.Click();
                  //Await Task.Delay(CInt(Fix(NumericUpDown1.Value)) * 1000)
                  Await Task.Delay((int)Math.Truncate(NumericUpDown1.Value) * 1000);
              //Else
              } else {
                  //Dim postes As IWebElement = fes.FindElement(By.Id("u_0_0"))
                  IWebElement postes = fes.FindElement(By.Id("u_0_0"));
                  //Dim postbox As IWebElement = fes.FindElement(By.Name("view_post"))
                  IWebElement postbox = fes.FindElement(By.Name("view_post"));
                  //postes.SendKeys(TextBox5.Text)
                  postes.SendKeys(TextBox5.Text);
                  //postbox.Click()
                  postbox.Click();
                  //Await Task.Delay(CInt(Fix(NumericUpDown1.Value)) * 1000)
                  Await Task.Delay((int)Math.Truncate(NumericUpDown1.Value) * 1000)
              //End If
              }

          //Next i
          }

      //Catch ex As Exception
      //End Try
      } catch ( Exception ex){
      }

التحويل يدوي ويحتمل الأخطاء
الرد
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو
#3
(17-03-19, 09:21 AM)5000 كتب : التحويل ليس صعبا اذا اتبعت قواعد لغة c
وأهمها حالة الأحرف وأقواس المصفوفات[] وأقواس الميثود() والفاصلة المنقوطة;
بالإضافة لمراجعة اسماء الأدوات حرفا وحالة


التحويل يدوي ويحتمل الأخطاء


جزاك الله كل الخير أخى فعلا نجحت بعد تعديل بعض المسميات الطفيفة....
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد تعلم الفيجوال اسلام القاضي 1 60 19-09-19, 03:37 PM
آخر رد: Rabeea Qbaha
Exclamation [VB.NET] كود عندما يتم تحميل الصفحة كاملة في WebBrowser يكمل تنفيذ الكود SnTnt 4 153 16-09-19, 01:25 AM
آخر رد: SnTnt
  [Acces2010] اريد مساعدة فى حل هذا الخطأ Mina Botros 10 191 15-09-19, 02:15 AM
آخر رد: Mina Botros
  السلام عليكم موضوع جد يد شرح لبرنامج واتس اب مصمم بالفيجول بيسيك و سي شارب رهف العريفي 16 3,730 14-09-19, 12:26 AM
آخر رد: SnTnt
Exclamation [سؤال] اريد انشاء كريستال ريبورت بدون قاعدة بيانات NewUser 3 141 13-09-19, 02:44 AM
آخر رد: Rabeea Qbaha
  [VB.NET] تنفيذ الكود حينما لا يجد له اسم او Attribute ابو روضة 7 227 10-09-19, 06:08 PM
آخر رد: mohamedahmed1
  اريد كود ضرورى خالد كامل1 4 136 05-09-19, 03:55 PM
آخر رد: خالد كامل1
  اخوانى الكود ينفذ الامر خطا خالد كامل1 6 172 02-09-19, 02:22 AM
آخر رد: AAAAAAAAA
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 194 01-09-19, 03:44 PM
آخر رد: dametucorazon
  [سؤال] اريد طريقة فعالة لحذف Webbrowser cache قبل تحميل صفحة جديدة dametucorazon 2 118 27-08-19, 07:16 PM
آخر رد: dametucorazon

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم