[VB.NET]Ücretsiz SMS Programı Yapımı

Button1 Kodları;

1 2 3 4 5 6 7 8 9 10 11

Dim smsto As HtmlElement = WebBrowser1.Document.GetElementyById("smsto") Dim message As HtmlElement = WebBrowser1.Document.GetElementById("message") Dim smsfrom As HtmlElement = WebBrowser1.Document.GetElemetId("smsfrom") Dim imgcode As HtmlElement = WebBrowser1.Document.GetElementById("imgcode") Dim submit As HtmlElement = WebBrowser1.Document.GetElementById("submit") smsto.SetAttribute("Value",TextBox1.Text) message.SetAttribute("Value",TextBox2.Text) smsfrom.SetAttribute("Value",TextBox3.Text) imgcode.SetAttribute("Value",TextBox4.Text) submit.;InvokeMember("Click")

Button2 Kodları;

1	WebBrowser1.Navigate("http://afreesms.com/intl/turkey")

WebBrowser1_DocumentCopleted Kodları;

Visual Basic .NET

1 2 3 4 5 6 7 8

On Error Resume Next Dim nesne As Object nesne = WebBrowser1.Document.DomDocument.body.createControlRange() nesne.add(WebBrowser1.Document.DomDocument.images(2)) nanes.execCommand("Copy") PictureBox1.Image = My.Computer.Clipboard.GetImage