barbodsoft.com
دوشنبه 28 فروردین 1391, 14:50 عصر
سلام دوستان
وقتی من با کامپوننت mcore.net اس ام اس می دم زیر همه ای مسیج ها نوشته powerd by logixmobile .
فکر می کنم بخاطر اینه که کامپوننت من تریال هست.
حالا
1- اگه بخوام دیگه اینو ننویسه چکار می تونم بکنم.
2- آیا این متن هم جزوء هزینه اس ام اس محاصبه می شه یا نه؟
3- اگه نمی شه چکار کنم با متن مورد نظر من جایگزین بشه؟
کدی که استفاده کردم در زیر هست
Imports mCore
Public Class Form1
WithEvents ObjSms As New mCore.SMS
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ObjSms.License.Company = "Barbod soft"
ObjSms.License.LicenseType = "PRO-DISTRIBUTION"
ObjSms.License.Key = "AE1K-X12R-GHEK-JEWS"
ObjSms.Port = "COM11"
ObjSms.Encoding = mCore.SMS.EnumEncoding.Unicode_16Bit
ObjSms.NewMessageIndication = True
ObjSms.DeliveryReport = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ObjSms.Connect = True Then
ObjSms.SendSMS("09119094229", "سلام اینجا آمل هست")
Else
MsgBox("مودم متصل نیست")
End If
End Sub
Private Sub ObjSms_NewMessageReceived(ByVal sender As Object, ByVal e As mCore.NewMessageReceivedEventArgs) Handles ObjSms.NewMessageReceived
MsgBox(e.Phone)
MsgBox(e.TextMessage)
MsgBox(e.TimeStampRFC)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
End Class
وقتی من با کامپوننت mcore.net اس ام اس می دم زیر همه ای مسیج ها نوشته powerd by logixmobile .
فکر می کنم بخاطر اینه که کامپوننت من تریال هست.
حالا
1- اگه بخوام دیگه اینو ننویسه چکار می تونم بکنم.
2- آیا این متن هم جزوء هزینه اس ام اس محاصبه می شه یا نه؟
3- اگه نمی شه چکار کنم با متن مورد نظر من جایگزین بشه؟
کدی که استفاده کردم در زیر هست
Imports mCore
Public Class Form1
WithEvents ObjSms As New mCore.SMS
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ObjSms.License.Company = "Barbod soft"
ObjSms.License.LicenseType = "PRO-DISTRIBUTION"
ObjSms.License.Key = "AE1K-X12R-GHEK-JEWS"
ObjSms.Port = "COM11"
ObjSms.Encoding = mCore.SMS.EnumEncoding.Unicode_16Bit
ObjSms.NewMessageIndication = True
ObjSms.DeliveryReport = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ObjSms.Connect = True Then
ObjSms.SendSMS("09119094229", "سلام اینجا آمل هست")
Else
MsgBox("مودم متصل نیست")
End If
End Sub
Private Sub ObjSms_NewMessageReceived(ByVal sender As Object, ByVal e As mCore.NewMessageReceivedEventArgs) Handles ObjSms.NewMessageReceived
MsgBox(e.Phone)
MsgBox(e.TextMessage)
MsgBox(e.TimeStampRFC)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
End Class