Public Sub Test()
        Try
            Dim text As String = Conversions.ToString(1)
            Dim a As Integer = 0
            Do
                Me.drv1.FindElement(By.XPath("//*[@id=""ng-app""]/body/div[6]/div[2]/div/div/div[3]/div[2]/div[2]/div/div[" + Text + "]/div[1]/a")).Click()
                Dim text2 As String = ""
                If text2 = Nothing Then
                    Dim flag As Boolean = Operators.CompareString(text2, "", False) = 0
                    If flag Then
                        Me.drv1.FindElement(By.XPath("//*[@id=""ng-app""]/body/div[7]/div[2]/div/div/div[1]/div[1]/div[1]/a")).Click()
                    Else
                        text2 = Me.drv1.FindElement(By.CssSelector("span[ng-bind=""'@' + user.username""]")).Text
                        Dim italk_RichTextBox As iTalk_RichTextBox = Me.ITalk_RichTextBox1
                        italk_RichTextBox.Text = italk_RichTextBox.Text + text2 + vbCrLf
                        Me.drv1.FindElement(By.XPath("//*[@id=""ng-app""]/body/div[7]/div[2]/div/div/div[1]/div[1]/div[1]/a")).Click()
                    End If
                End If
                text = Conversions.ToString(Conversions.ToDouble(text) + 1.0)

                a = a + 1
            Loop While (a < 200)
        Catch ex As Exception
            MessageBox.Show("a7a b2a")
        End Try
    End Sub