SMS atma programı

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