vb.net ototwit atıcı. Yardım..

arkadaşlar vb.net te oto twit atıcı yapmaya çalışıyorum. Fakat bi türlü beceremedim. Her yeri aradım taradım bulamadım. Çözebilecek biri varmı?

Benim denediğim kodlar:

For Each elem As HtmlElement In BrowserTwitter.Document.GetElementsByTagName("tweet-content")
            If elem.GetAttribute("name") = "tweet" Then
                elem.Focus()
                Exit For
            End If
        Next
        BrowserTwitter.Document.GetElementById("tweet-box-home-timeline").SetAttribute("value", "tweet mesajı")

Bunun için apiler var zaten. API kullansan daha kolay yapabilirsin.

hocam API olayı çok karışık geliyor. Bunu bi çözebilsem benim için daha kolay..

su an yapmaya calistiginizda cok amelelik gerektiriyor...

Sub SendTweet()
Dim Data1 As Object, Data2 As Object
For Each Data1 In IExplorer.Document.getElementsByTagName("textarea"): If Data1.ClassName = "tweetbox" Then Data1.Value = txTweet.Text & RandomInteger(0, 9999)
Next
For Each Data2 In IExplorer.Document.getElementsByTagName("input"): If Data2.Value = "Tweet" Then Data2.Click
Next
End Sub

Bunu uyarlayabilirsin kendine göre. Ama mobil site üzerinde çalışır bu kod.

https://mobile.twitter.com/compose/tweet

bu linkten denedim olmadı hocam, öğe denetlemesindede tweetbox a ulaşamadım..

<textarea autocorrect="on" class="tweet-box-textarea userselect" placeholder="Neler oluyor?"></textarea>

Burada hocam,

<a class="tweet-button button disabled" href="#"> Tweet </a>

Buda buton.

hocam her şekilde denedim olmadı.. rica etsem kod olarak atabilirmisiniz?

        WebBrowser1.Document.GetElementsByTagName("textarea").Item(0).SetAttribute("value", "tweet mesajiniz")
        WebBrowser1.Document.GetElementById("commit").InvokeMember("click")

Buyur hocam.