[ابو روضة]

السلام عليكم اخوتى

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

طبعا فى موضوع سابق هنا 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