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

Bu Dersimiz'de Sizlere Ücretsiz SMS Gönderme Programı Yapmayı Gösterim Umarım Yararlı Olmuştur,Site Üzerinden olması Nedeniyle Kodlar Çalışmayabilir.

Button1 Kodları:
Dim smsto As HtmlElement = WebBrowser1.Document.GetElementById("smsto")
Dim message As HtmlElement = WebBrowser1.Document.GetElementById("message")
Dim smsfrom As HtmlElement = WebBrowser1.Document.GetElementById("smsfrom")
Dim imgcode As HtmlElement = WebBrowser1.Document.GetElementById("captcha")
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ı:
WebBrowser1.Navigate("http://www.afreesms.com/intl/turkey")

WebBrowser1_DocumentComplete Kodları:
On Error Resume Next

Dim Nesne As Object

nesne = WebBrowser1.Document.DomDocument.body.createControlRange()
nesne.add(WebBrowser1.Document.DomDocument.İmages(3))
nesne.execCommand("Copy")
PictureBox1.Image = My.Computer.Clipboard.GetImage

Paylas :

Tweet

✚

Benzer Yazılar