最初の出力ページに入り、データを抽出して終了し、次の出力に入るためにすべての検索結果に対して for を実行すると、最初の製品の入力が繰り返されるため、次に入力するための for を作成しようとしました同じ出力ではありません。
これは私の試みです:
Try
For Each webElement2 As IWebElement In Me.driv.FindElements(By.XPath("//*[@class='MVVflb-haAclf V0h1Ob-haAclf-d6wfac MVVflb-haAclf-uxVfW-hSRGPd']"))
Dim flag2 As Boolean = Operators.CompareString(Me.ttt.Text, "", False) = 0
If flag2 Then
Me.ttt.Text = webElement2.ToString
Else
Me.ttt.AppendText(Environment.NewLine + webElement2.ToString())
End If
Application.DoEvents()
Next
Catch ex As Exception
End Try
Dim flag3 As Boolean = Me.nnm <= Me.ttt.Lines.GetUpperBound(0)
If flag3 Then
Try
For Each webElement3 As IWebElement In Me.driv.FindElements(By.Id(ttt.Lines(nnm)))
Dim flag4 As Boolean = Operators.CompareString(webElement3.ToString(), Me.ttt.Lines(Me.nnm).ToString(), False) = 0
If flag4 Then
Try
webElement3.Click()
Exit Try
Catch ex3 As Exception
End Try
End If
Next
Catch ex As Exception
End Try
Me.Timer3.Start()