wmaraci reklam

Bedava Sms Gönderme Programı Yapimi VB6 ( Örnek + Proje + Kodlar ve Anlatım )

7 Mesajlar 9.301 Okunma
wmaraci reklam

programlamahocam programlamahocam www.vbasicturkiye.com Kullanıcı
  • Üyelik 14.01.2014
  • Yaş/Cinsiyet 29 / E
  • Meslek Öğrenci
  • Konum İzmir
  • Ad Soyad F** P**
  • Mesajlar 76
  • Beğeniler 6 / 20
  • Ticaret 0, (%0)
Herkese merhaba ,
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 :)
izzetkumru

kişi bu mesajı beğendi.

vbasicturkiye.com | Güncel Visual Basic Blogu
SMM Panel, Sosyalyuvam, Bayilik Paneli, En Uygun Panel, Takipçi Paneli
reklam

Batuhan Batuhan Kendine webmaster Kullanıcı
  • Üyelik 08.05.2011
  • Yaş/Cinsiyet 27 / E
  • Meslek Öğrenci
  • Konum Ankara
  • Ad Soyad B** B**
  • Mesajlar 3455
  • Beğeniler 783 / 1009
  • Ticaret 1, (%100)
Bu hizmet için afreesms.com'u da öneririm. Mesajlara reklam ekleme vs. gibi bir huyu da yok.
programlamahocam

kişi bu mesajı beğendi.

programlamahocam programlamahocam www.vbasicturkiye.com Kullanıcı
  • Üyelik 14.01.2014
  • Yaş/Cinsiyet 29 / E
  • Meslek Öğrenci
  • Konum İzmir
  • Ad Soyad F** P**
  • Mesajlar 76
  • Beğeniler 6 / 20
  • Ticaret 0, (%0)

Batuhan adlı üyeden alıntı

Bu hizmet için afreesms.com'u da öneririm. Mesajlara reklam ekleme vs. gibi bir huyu da yok.



Benim amacım kodlar hakkında fikir vermekti hocam, verdiğim kodların benzeriyle o siteden de sms attırılabilir tabi teşekkürler
Batuhan izzetkumru

kişi bu mesajı beğendi.

vbasicturkiye.com | Güncel Visual Basic Blogu

MtnOzd MtnOzd RIS / PACS Yöneticisi Kullanıcı
  • Üyelik 23.03.2012
  • Yaş/Cinsiyet 34 / E
  • Meslek Ris PACS Admin
  • Konum İstanbul Anadolu
  • Ad Soyad M** Ö**
  • Mesajlar 319
  • Beğeniler 24 / 78
  • Ticaret 19, (%100)
Ellerine sağlık anlatım için ancak zipli dosya'da "Ikarus - Trojan.Win32.Spy" uyarısı veriyor virustotal'de.
 

 

wmaraci

programlamahocam programlamahocam www.vbasicturkiye.com Kullanıcı
  • Üyelik 14.01.2014
  • Yaş/Cinsiyet 29 / E
  • Meslek Öğrenci
  • Konum İzmir
  • Ad Soyad F** P**
  • Mesajlar 76
  • Beğeniler 6 / 20
  • Ticaret 0, (%0)

Batuhan adlı üyeden alıntı

Bu hizmet için afreesms.com'u da öneririm. Mesajlara reklam ekleme vs. gibi bir huyu da yok.


MtnOzd adlı üyeden alıntı

Ellerine sağlık anlatım için ancak zipli dosya'da "Ikarus - Trojan.Win32.Spy" uyarısı veriyor virustotal'de.


Hocam hemen bakıyorum içindeki .exe dosyasına.

Virüstotal :
https://www.virustotal.com/tr/file/c1f80565cf08c1c90aee3185ef33136d063be490bb38c54a306fed859df2d94d/analysis/1389749180/

Sadece Ikarus buluyor.Projenin exeleştirilmiş hali o exe.Anlamadım açıkcası
 

 

vbasicturkiye.com | Güncel Visual Basic Blogu

DNZafer DNZafer WM Aracı Kullanıcı
  • Üyelik 12.01.2014
  • Yaş/Cinsiyet 25 / E
  • Meslek Öğrenci
  • Konum Samsun
  • Ad Soyad Z** K**
  • Mesajlar 29
  • Beğeniler 7 / 2
  • Ticaret 0, (%0)
düzenlendi, silinmeli.
 

 

BerkantKONAC BerkantKONAC opensourceprojects.org Kullanıcı
  • Üyelik 20.07.2011
  • Yaş/Cinsiyet 42 / E
  • Meslek Software
  • Konum İzmir
  • Ad Soyad B** K**
  • Mesajlar 938
  • Beğeniler 209 / 125
  • Ticaret 18, (%100)
Teşekkür ederim, insanların aradığı birşey olduğunu biliyorum :)
 

 

owner of opensourceprojects.org & arduinoproject.net
wmaraci
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al