بنام خدا
با سلام
مطالب قابل توجهی به زبان فارسی برای دریافت پیامک وجود ندارد .
بنابراین به فکر ایجاد تاپیک افتادم که با عنایت دوستان مطلب جمع شود .
1- تنظیمات اولیه gsm modem اولین قدم است.تنظیمات cnmi روش کار را کلا عوض میکند
2- اسفاده از بافر چگونه باید باشد ؟ شرائط استفاده از بافر ، شرائط خواندن پیامک با اینتراپت یا at +cmgr=1 را عوض میکند
3- نکته مهم ایجاد تاخیر مناسب بعد از دستورها میباشد . بعد از دستور AT+CMGR=1 هیگونه تاخیری نباید باشد و بعد از AT+CMGD=1 حداقل یک ثانیه و بعد از دستور AT+CMGD=1,4 حداقل 10 ثانیه باید تاخیر باشد
قبل از دستورها نیز باید یک ثانیه تاخیر باشد .
کلا باید مواظب تداخل دستورها با هم بود
4-
اضافه شده در تاریخ :
اضافه شده در تاریخ :
1- اول وآخر پیامک 10 و13 می اید و با دریافت 10و13 اخر خارج میشود
2-اگر خالی باشد داخل قسمت ثبت کاراکترها نمیره و بعد از مدتی از یخ خارج میشه
3- تکست پیامک در اینجا اولش # است که استخراج میشود
4- شماره تلفن نیز استخراج میشود
5- اگر تکست با رمز (#ZLKONG )یکی باشد بقیه کارها انجام میشود
با سلام
مطالب قابل توجهی به زبان فارسی برای دریافت پیامک وجود ندارد .
بنابراین به فکر ایجاد تاپیک افتادم که با عنایت دوستان مطلب جمع شود .
1- تنظیمات اولیه gsm modem اولین قدم است.تنظیمات cnmi روش کار را کلا عوض میکند
2- اسفاده از بافر چگونه باید باشد ؟ شرائط استفاده از بافر ، شرائط خواندن پیامک با اینتراپت یا at +cmgr=1 را عوض میکند
3- نکته مهم ایجاد تاخیر مناسب بعد از دستورها میباشد . بعد از دستور AT+CMGR=1 هیگونه تاخیری نباید باشد و بعد از AT+CMGD=1 حداقل یک ثانیه و بعد از دستور AT+CMGD=1,4 حداقل 10 ثانیه باید تاخیر باشد
قبل از دستورها نیز باید یک ثانیه تاخیر باشد .
کلا باید مواظب تداخل دستورها با هم بود
4-
اضافه شده در تاریخ :
کد:
[left] Print "AT" Waitms 2 Print "AT+CNMI=1,1,0,0,0" Wait 2 Print "AT+CMGF=1" Wait 2 Print "AT+CMGD=1,4" Wait 20 Reset Watchdog Wait 1 Reset Watchdog Print "AT" Wait 1 Reset Watchdog Print "AT+CMGR=1" Do Ahb = Inkey() Incr Ahg4 If Ahg4 > 253 Then Goto Amain3 If Ahb > 0 Then Select Case Ahb Case 13: If Sms <> "" Then Exit Do Case 10: If Sms <> "" Then Exit Do Case Else '------------------------------------------------------------------------------- If Ahb = 35 And Ahf1 = 0 Then Ahf1 = 1 If Ahf1 = 1 Then Sms = Sms + Chr(ahb) 'read text Aha = Aha + 1 Ahg4 = 0 If Aha = 8 Then Ahf1 = 2 End If '------------------------------------------------------------------------------- If Ahb = 43 And Ahf2 = 0 Then Ahf2 = 1 If Ahb = 57 And Ahf2 = 1 Then Ahf2 = 2 If Ahg2 = 12 Then Ahf2 = 3 If Ahf2 = 2 Then Sms1 = Sms1 + Chr(ahb) 'read number Ahg2 = Ahg2 + 1 Ahg4 = 0 End If '------------------------------------------------------------------------------- End Select End If Loop Reset Watchdog Gosub Selectlcd Lcdat 1 , 1 , Sms Lcdat 2 , 1 , Sms1 Wait 1 Gosub Selectrel Reset Watchdog '------------------------------------------------------------------------------- If Sms = "#zlkong" Then Writeeeprom Sms1 , 600 Ahpf = 1 Writeeeprom Ahpf , 90 Waitms 5 'store special num Reset Watchdog Print "AT+CMGS=" ; Chr(34) ; Sms1 ; Chr(34) Reset Watchdog Print "Send password" ; Chr(26) Wait 3 End If[/left]
اضافه شده در تاریخ :
1- اول وآخر پیامک 10 و13 می اید و با دریافت 10و13 اخر خارج میشود
2-اگر خالی باشد داخل قسمت ثبت کاراکترها نمیره و بعد از مدتی از یخ خارج میشه
3- تکست پیامک در اینجا اولش # است که استخراج میشود
4- شماره تلفن نیز استخراج میشود
5- اگر تکست با رمز (#ZLKONG )یکی باشد بقیه کارها انجام میشود
دیدگاه