تقييم الموضوع :
  • 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
وأهمها حالة الأحرف وأقواس المصفوفات[] وأقواس الميثود() والفاصلة المنقوطة;
بالإضافة لمراجعة اسماء الأدوات حرفا وحالة


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سلام سؤال تحويل رابط حاتمي 5 106 16-05-19, 02:29 PM
آخر رد: elgokr
  ماهو الكود الصحيح و العملي لهذا kador 12 369 12-05-19, 05:07 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 85 07-05-19, 06:02 PM
آخر رد: dubai.eig
  [VB.NET] تحويل الكود من اكسس لsql اسامه الهرماوي 6 152 03-05-19, 01:29 AM
آخر رد: saoud2
  اريد كود عرض الصورة من مسار فى اليست او جريد new_programer 13 294 24-04-19, 09:41 PM
آخر رد: elgokr
  تم الحل : تحويل كود لى الدوت نت العيدروس 9 191 24-04-19, 05:08 AM
آخر رد: elgokr
  رسالة خطأ فى الكود احمد خطاب 4 154 19-04-19, 11:56 AM
آخر رد: elgokr
  [VB.NET] اريد دورة تصميم برنامج محاسبي من الصفر مع sql server mohamedhota 3 161 18-04-19, 07:52 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] اريد كود للطباعة لأي نوع من انواع قواعد البيانات tarek 1 89 14-04-19, 02:53 PM
آخر رد: Rabeea Qbaha
  مثال لنفس الكود nourmandour 6 136 13-04-19, 12:18 AM
آخر رد: nourmandour

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


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