|
SMS atma programı
Aug 04,2008 00:00
by
canawar
1_ Forma 1 adet Microsoft İnternet Controls(shdocvw.dll), 2 adet label, 2 adet text kutusu, 1 adet command button, 1 adet timer ekleyin. _Açıklama_ : text1'e gidecek telefon numarası yazılacak, text2'ye gidecek mesaj ve bir boşluk bırakılarak bulunduğunuz il yazılacak.(tabikisizin bulunduğunuzil) Private Sub Command1_Click() Command1.Enabled = False WebBrowser1.SetFocus SendKeys "{tab}" SendKeys Text1.Text SendKeys "{tab}" SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Chr(8) SendKeys Text2.Text SendKeys "{tab}" SendKeys "{enter}" End Sub Private Sub Form_Load() Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2 command1.caption="Gönder" label1.caption="Gidecek Telefon Numarası" label2.caption="Mesajı Yazdıktan Sonra Bir Boşluk Bırakarak Bulunduğunuz İli Yazın" Timer1.interval=5000 WebBrowser1.Navigate "http://www.metyus.com/sms/sms.asp" End Sub Private Sub Timer1_Timer() If WebBrowser1.********URL = "http://www.metyus.com/sms/sms.asp" Then Else WebBrowser1.Navigate "http://www.metyus.com/sms/sms.asp" Command1.Enabled = True MsgBox ("Mesajınız Gönderildi 10 ila 15 dakika içerisinde yerine ulaşıcaktır") Form_Load End If End Sub |