Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SendTo As HtmlElement =
[email protected]mentById("SendTo")
Dim Msg As HtmlElement =
[email protected]mentById("Msg")
Dim SendFrom As HtmlElement =
[email protected]mentById("SendFrom")
Dim submit As HtmlElement = [email protected]e("submit")
SendTo.SetAttribute("value", TextBox1.Text)
Msg.SetAttribute("value", TextBox2.Text)
SendFrom.SetAttribute("value", TextBox2.Text)
submit.GetType("click")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate("http://www.24sms.net")
End Sub
End Class
