Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dowork()
    End Sub

    Sub dowork()
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("type").Contains("text") Then
                    elem.SetAttribute("value", TextBox1.Text)
                End If
            Next
        Catch ex As Exception
        End Try
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("type").Contains("password") Then
                    elem.SetAttribute("value", TextBox2.Text)
                End If
            Next
        Catch ex As Exception
        End Try
        Threading.Thread.Sleep(50)
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("type").Contains("submit") Then
                    elem.InvokeMember("click")
                End If
            Next
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tweetdatshit()
    End Sub

    Sub tweetdatshit()
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("textarea")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("classname").Contains("twitter-anywhere-tweet-box-editor") Then
                    elem.SetAttribute("value", TextBox3.Text)
                End If
            Next
        Catch ex As Exception
        End Try
        Threading.Thread.Sleep(50)
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("classname").Contains("tweet-button button") Then
                    elem.InvokeMember("click")
                End If
            Next
        Catch ex As Exception
        End Try
    End Sub
End Class