Public Class Form1 Dim a As Boolean Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = True Try WebBrowser1.Document.GetElementById("url9320175199").SetAttribute("value", TextBox2.Text & ".jimdo.com") WebBrowser1.Document.GetElementById("name9320175199").SetAttribute("value", TextBox2.Text) WebBrowser1.Document.GetElementById("comment").SetAttribute("value", TextBox1.Text) Catch ex As Exception End Try WebBrowser1.Document.GetElementById("submit9320175199").InvokeMember("click") Label3.Text = "Czekaj..." End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load a = False WebBrowser1.Navigate("Link Do Strony Jimdo Do Bloga") End Sub End Class
dilon1