با سلام خدمت مهندسان عزیز
من برنامه ارسال اس ام اس رو به زبان بسکام نوشتم و اعتبار سیم کارت هم پس از ارسال کم می شد ولی هیچگونه پیامی به شماره مورد نظر ارسال نمی شه .
چکار کنم از دست این sim900 ? ¿ ¿ ?
Sendsms: ot = "Hello World" Waitms 100 Print "AT+CMGS=" ; Chr(34) ; "+98912xxxxxxx" ; Chr(34) Waitms 200 Print Ot ; Chr(26) Print Chr(26); Wait 1 Print Chr(13) Lcdat 2 , 1 , " " Lcdat 2 , 1 , "Sending Complete" , 1 Wait 3 Lcdat 2 , 1 , " " Return
Dim Ot As String * 160
دیدگاه