Merhaba arkadaslar programimizin api ile sms gondermesini saglayacagiz,

Burda dikkat edilmesi gereken tek sey mesaj karakter sayimizin 120 yi gecmemesi ve numaramizin basinda 0 (sifir olmamasi orn: 5xxxxxxxxx) yoksa Api bize kapilarini acmayacaktir...
Hazirsak baslayalim
Forma bir adet Microsoft Internet Controls ekleyin
Bir Adet Button iki adette textbox isimleri degistirmemize gerek yok
text1.text ' numara icin
text2.text 'mesaj icerigi

'S-SMS Api Sistemi
'Muhammet SEVIMLI
'http://www.s-sms.com
'[email protected]
'Components Bolumunden Microsoft Internet Controls Kontrolunu Ekleyin
Private Sub send(num As String, msj As String)
mesaj = msj
If Len(num) 10 Then
MsgBox "Numarada Hata Var", , "S-SMS"
Exit Sub
ElseIf Len(mesaj) > 120 Then
mesaj = Left(msj, 120)
End If
WebBrowser1.Navigate ("http://www.s-sms.com/api.asp?num=" & num & "&msj=" & mesaj & "&way=api")
MsgBox "Sms Gonderildi...", , "S-SMS"
End Sub
Private Sub Command1_Click()
'Numaranin Basina 0 koymayin
send text1.text, text2.text
End Sub
Private Sub Form_Load()
WebBrowser1.Visible = False
End Sub


Bu Kadar arkadaslar
__________________