View Full Version : ارسال sms با edge modem
klinton
دوشنبه 01 اسفند 1390, 14:09 عصر
سلام
من یه مودم edge dlink dwm 156 دارم.وقتی میخوام بهش وصل بشم (با kylix) پورتش رو نمیشناسه به نظرتون مشکل از چیه؟ سیستم من : win 7 64 bit
micro24
دوشنبه 01 اسفند 1390, 15:19 عصر
با سلام
احتمال زیاد پورت را دارید اشتباه وارد می نمائید از توی Device Manager پورت Gsm Modem تان را چک کنید ببینید
چی است من با این کامپونت تا حالا کار نکردم ولی با کامپوننت های دیگر که کار کردم معمولاً به این صورت ایت که شماره پورت راباید بدهیم پس از Device Manager چک کنید که صحیح وارد می نمائید یا خیر.
klinton
دوشنبه 01 اسفند 1390, 19:38 عصر
پورت رو com13,com14 انتخاب کردم درست شد.ضمنا کامپوننت mcore استفاده کردم فعلا فرمت دستورات ussd (شارژ سیم واستعلام موجودی) رو نمیدونم ممنون میشم کمک کنید
klinton
دوشنبه 01 اسفند 1390, 21:38 عصر
Public WithEvents objSMS As New mCore.SMS
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
SetCommParameters()
objSMS.NewUSSDIndication =
True
objSMS.SendUSSD(
"*140*1#")
Catch ex As mCore.GeneralException
MsgBox(ex.Message)
End Try
End Sub
Private Sub objSMS_NewUSSDReceived(ByVal sender As Object, ByVal e As mCore.NewUSSDReceivedEventArgs) Handles objSMS.NewUSSDReceived
MsgBox(e.Message + e.Status.ToString)
End Sub
Public Sub SetCommParameters()
Try
objSMS.Port =
"COM14"
objSMS.BaudRate = mCore.BaudRate.BaudRate_115200
objSMS.DataBits = mCore.DataBits.Eight
objSMS.StopBits = mCore.StopBits.One
objSMS.Parity = mCore.Parity.None
objSMS.FlowControl = mCore.FlowControl.RTS_CTS
Catch ex As mCore.GeneralException
MsgBox(ex.Message)
Catch ex As Exception
End Try
End Sub
این کدی بود که از سایت mcore گرفتم ولی جواب نداد فک کنم میفرسته و تو دریافتش مشکل باشه
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.