Siteye üye oldum yeni kullanıcılara yararımın geçmesi için böyle bir program anlatımı yapıyorum.Program başlıktan anlayabileceğiniz gibi Türkiye içi bedava sms atmaya yönelik bir program.Herhangi sorun teşkil eden,edecek bir şey yok yasal bir uygulama bildiğim kadarıyla.Zaten anlatacağım gibi website ile program arasında bağlantı kuracağız.Uzatmadan başlayalım.
Boş bir form açıyoruz arkadaşlar ve vereceğim toolbox araçlarını ekleyin formumuza.
Text1 - numara girilecek
Text2 - mesaj girilecek
Text3 - güvenlik kodu girilecek
Picture1 > name özelliği güvenlikkodu - güvenlik kodu gözükecek
Timer1 - güvenlikkodunu yenileyecek
Check1 - I accept all bölümünü işaretletmek için
Command1 - Gönder
Webbrowser > name özelliği tarayici ( CTRL + T Microsoft Internet Controls )
Nesnelerimiz böyledir.Yapamayan arkadaşlar konunun altında proje linkini paylaşacağım.
Kolaylık olsun diye direkt kodları paylaşıyorum.Form alanını temizleyip kodları yapıştırınız.
Private Sub Check1_Click()
Tarayici.Document.All("agreed").Click
End Sub
Private Sub Command1_Click()
Tarayici.Document.All("to").Value = Text1.Text ' kime gideceği
Tarayici.Document.All("msg").Value = Text2.Text 'mesajımız
Tarayici.Document.All("recaptcha_response_field").Value = Text3.Text ' güvenlik kodu aktarımı
Tarayici.Document.All("send").Click
End Sub
Private Sub Form_Load()
Tarayici.Navigate ("http://freesmscell.net/send-free-sms-to-turkey/") ' siteye aktarıyoruz
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Dim Nesne As Object
Set Nesne = Tarayici.Document.body.createControlRange()
Nesne.Add Tarayici.Document.Images(1)
Nesne.execCommand "Copy"
guvenlikkodu.Picture = Clipboard.GetData ''sayfadaki 2. resim yani güvenlik kodunu guvenlikkodu adlı picture'a aktarım
End Sub
#edit resimde command2_click kodu vardı, onun sonradan gereksiz oldugunu anlayıp kaldırdım daha basitleştirdim.
Örnek proje :
Proje içinde exe mevcuttur.Sorunsuz çalışmaktadır.
Anlatim : Programımızdaki kodları incelerseniz webbrowserdan birşeyler çekip bir şeyler gönderdiğini görebilirsiniz.Aynen öyle çalışıyor programımız freesms gönderilen bir siteden veri çekiyoruz ve veri gönderiyoruz.Kodlar geliştirilip daha geniş bir program yapılabilir.Kodlar hakkında sorularınız için ö.m atınız.
Herhangi bir sorunuz olduğunda özel mesaj olarak bana ulaşabilirsiniz.Elimden geldiğince yardımcı olmaya çalışacağim.
iyi programlamalar programlamadostlarim :)
Projeyi İndirmek İçin Tıkla
Not : Anlatım,resimler, kodlar,proje veya herhangi bir şey alıntı değildir :)
