meysam_meysam74
دوشنبه 12 مهر 1389, 15:41 عصر
سلام دوستا من از کد زیر برای ارسال اس ام اس فارسی یا انگلیسی استفاده میکنم ولی مشکل ازنجاست که اس ام اس های طولانی رو نمیتونم بفرستم ممکنه یه نفر دقیق و واضع بگه که من چه جوری میتونم اس ام اس طولانی بنویسم متغیر StrSEnd متغیری هست که متن و مشخصات شماره گیرنده و غیره توش قرار داره
Dim pdulength As String
pdulength = CStr((Len(StrSEnd) - 2) / 2)
MSComm1.Output = "at+cmgs=" & pdulength + vbCr
timedPause 1
MSComm1.Output = Mid(StrSEnd, 1, Len(StrSEnd) / 2) + Chr$(26)
Dim pdulength As String
pdulength = CStr((Len(StrSEnd) - 2) / 2)
MSComm1.Output = "at+cmgs=" & pdulength + vbCr
timedPause 1
MSComm1.Output = Mid(StrSEnd, 1, Len(StrSEnd) / 2) + Chr$(26)