ارسال sms با edge modem

[klinton]

سلام
من یه مودم edge dlink dwm 156 دارم.وقتی میخوام بهش وصل بشم (با kylix) پورتش رو نمیشناسه به نظرتون مشکل از چیه؟ سیستم من : win 7 64 bit

[micro24]

با سلام

احتمال زیاد پورت را دارید اشتباه وارد می نمائید از توی Device Manager پورت Gsm Modem تان را چک کنید ببینید
چی است من با این کامپونت تا حالا کار نکردم ولی با کامپوننت های دیگر که کار کردم معمولاً به این صورت ایت که شماره پورت راباید بدهیم پس از Device Manager چک کنید که صحیح وارد می نمائید یا خیر.

[klinton]

پورت رو com13,com14 انتخاب کردم درست شد.ضمنا کامپوننت mcore استفاده کردم فعلا فرمت دستورات ussd (شارژ سیم واستعلام موجودی) رو نمیدونم ممنون میشم کمک کنید

[klinton]

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 گرفتم ولی جواب نداد فک کنم میفرسته و تو دریافتش مشکل باشه