16-03-19, 10:39 PM
السلام عليكم اخوتى
اريد تحويل هذا الكود للسى شارب لو تكرمتم..
طبعا فى موضوع سابق هنا 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