bu program çalışıyor mu
çalışıyorsa nasıl
çalışmıyorsa nasıl çalışır hale getirebiliriz
teşekkürler
downloadznow.com/download/smslibx-sms-activex
@benbendedeilem
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
'Change this with the Baud rate of your modem (The one you use with Hyper Terminal)
MSComm1.Settings = "9600,n,8,1"
' Change this with the port your Modem is attached
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
'This line can be removed if your modem will always be in Text Mode...
MSComm1.Output = "AT+CMGF=1" & vbCrLf
Sleep 500
'Replace this with your mobile Phone's No.
MSComm1.Output = "AT+CMGS=+91232538538" & vbCrLf
Sleep 1000
MSComm1.Output = "Hello This is my test message"
Sleep 2000
If InStr(MSComm1.Input, "OK") Then
MsgBox "Message Send"
Else
MsgBox "Message Not Send"
End If
End Sub
Alıntı:Aveamesaj basit ve kullanışlı bir toplu SMS gönderim aracıdır. Alıcı ya da grupları seçtikten sonra iletinizi yazıp gönder tuşuna basarak işlemizi kolayca gerçekleştirirsiniz. Adres defteri ve gruplar oluşturabilir, kişiselleştirilmiş toplu SMS gönderebilirsiniz.
Ayrıca Microsoft® Excel yazılımı aracılığı ile kayıtlı numaralarınıza SMS gönderebilir ve Microsoft® Excel gönderilen SMS’lerle ilgili raporlar almanız da mümkün.