تقييم الموضوع :
  • 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 47 17-03-19, 04:12 AM
آخر رد: asemshahen5
  لو سمحتم اساتذتى ممكن شرح كودات وطريقه عمل سندات القبض والصرف؟ خالد كامل1 0 32 16-03-19, 04:01 PM
آخر رد: خالد كامل1
  اريد انشاء قاعدة بيانات سمير جمال 2 82 14-03-19, 04:29 AM
آخر رد: سمير جمال
  اريد كود التاكد من ان الفورم مفتوحة ام مغلقة سمير جمال 2 112 01-03-19, 07:13 PM
آخر رد: سمير جمال
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 5 172 25-02-19, 10:49 AM
آخر رد: elgokr
  اريد تغير اسماء ازرار MessageBox سمير جمال 1 85 20-02-19, 11:02 PM
آخر رد: asemshahen5
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 144 20-02-19, 05:48 PM
آخر رد: elgokr
  [سؤال] اريد كود يعطل تغير الوقت والتاريخ في النظام اللورد محمود 2 129 17-02-19, 02:11 AM
آخر رد: اللورد محمود
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 241 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  [VB.NET] اريد ربط البرنامج مع xampp 0theghost0 2 152 06-02-19, 09:04 PM
آخر رد: aljzazy

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


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