Public Sub getviewcount()
        Try
            Dim theelementcollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("strong")
            For Each curElement2 As HtmlElement In theelementcollection
                If curElement2.GetAttribute("innerText").Contains(",") _
                       Then
                    MsgBox("View count: " + curElement2.GetAttribute("innerText"))
                End If
            Next
        Catch
        End Try
    End Sub
    Public Sub getusername()

        Try
            Dim theelementcollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("strong")
            For Each curElement2 As HtmlElement In theelementcollection

                If curElement2.GetAttribute("innerText").Contains("a") Or _
                curElement2.GetAttribute("innerText").Contains("b") Or _
                curElement2.GetAttribute("innerText").Contains("c") Or _
                curElement2.GetAttribute("innerText").Contains("d") Or _
                curElement2.GetAttribute("innerText").Contains("e") Or _
                curElement2.GetAttribute("innerText").Contains("f") Or _
                curElement2.GetAttribute("innerText").Contains("g") Or _
                curElement2.GetAttribute("innerText").Contains("h") Or _
                curElement2.GetAttribute("innerText").Contains("i") Or _
                curElement2.GetAttribute("innerText").Contains("j") Or _
                curElement2.GetAttribute("innerText").Contains("k") Or _
                curElement2.GetAttribute("innerText").Contains("l") Or _
                curElement2.GetAttribute("innerText").Contains("m") Or _
                curElement2.GetAttribute("innerText").Contains("n") Or _
                curElement2.GetAttribute("innerText").Contains("o") Or _
                curElement2.GetAttribute("innerText").Contains("p") Or _
                curElement2.GetAttribute("innerText").Contains("q") Or _
                curElement2.GetAttribute("innerText").Contains("r") Or _
                curElement2.GetAttribute("innerText").Contains("s") Or _
                curElement2.GetAttribute("innerText").Contains("t") Or _
                curElement2.GetAttribute("innerText").Contains("u") Or _
                curElement2.GetAttribute("innerText").Contains("v") Or _
                curElement2.GetAttribute("innerText").Contains("w") Or _
                curElement2.GetAttribute("innerText").Contains("x") Or _
                curElement2.GetAttribute("innerText").Contains("y") Or _
                curElement2.GetAttribute("innerText").Contains("z") _
                                Then
                    MsgBox("Username: " + curElement2.GetAttribute("innerText"))
                    Exit For

                End If
            Next
        Catch ex As Exception
        End Try
    End Sub