الكتابه في الموقع

بانتظاركم !!!!

السلام عليكم

مرفق مثال يجيب على جزء من سؤالك،،،،

هذا كود المثال....

Public Class Form1

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Dim theWElementCollection As HtmlElementCollection = WebBrowser1.Document.All
        For Each curElement As HtmlElement In theWElementCollection
            If curElement.GetAttribute("name").Equals("url") Then
                curElement.InnerText() = ToolStriptxtShortUrl.Text
            End If
            If curElement.GetAttribute("value").Equals("Uncover") Then
                curElement.InvokeMember("click")
            End If
        Next
        System.Threading.Thread.Sleep(500)
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Dim URL As HtmlElementCollection = WebBrowser1.Document.All
        For Each el As HtmlElement In URL
            If el.GetAttribute("id").Equals("orig_url") Then
                txtOriginUrl.Text = el.InnerHtml.Remove(el.InnerHtml.IndexOf("<BR>"))

            End If
        Next

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate(ToolStripTextBox1.Text)
    End Sub

  
End Class

Uncover.rar