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
Programı Bana Atarmısın ?
YanıtlaSilgösterdiğiniz gibi yaptım hiç bir hata yok fakat güvenlik kodu gozkmuyor yardım !!
YanıtlaSilCLisirsa adamsın
YanıtlaSilçalışmıyor ki bu program güncellersen güzel olur
YanıtlaSil