برنامه ارسال اس ام اس از طريق کابل با vb.net

Printable View

18-04-2010, 11:24
fatima2007

برنامه ارسال اس ام اس از طريق کابل با vb.net

سلام دوستان گلم:41:
من يه پرو‍ه سنگين برداشتم که بدجوري توش موندم.راجع به ارسال و دريافت اس ام اس هست از طريق اتصال کابل گوشي که بايد دو حالت text و pdu ‌رو پشتيباني کنه.حالا من نمي دونم از کجا شروع کنم. خيلي هم بل .net اشنا نيستم.نمي دونم بايد از کامپوننت استفاده کنم يا از دستورات at .‌من يه راهنمايي خيلي کامل مي خوام حتي شده حضوري در تهران. اگه کسي بتونه کمکم کنه از خجالتش در ميام حتما. واقعا به کمکتون احتياج دارم.اگه کسي ميتونه مکمک کنه شماره و ايميلش و بذاره تاباهاش تماس بگيرم. مرسي ايميل من: [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
19-04-2010, 08:13
MTPROG

تو لینک زیر یه نمونه کامل همراه با سورس و کامپونینت گذاشتم کارت رو راه می اندازه

[PHP]http://forum.p30world.com/showthread.php?t=400704[/PHP]
19-04-2010, 16:52
fatima2007

اس ام اس

نقل قول:

نوشته شده توسط MTPROG [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تو لینک زیر یه نمونه کامل همراه با سورس و کامپونینت گذاشتم کارت رو راه می اندازه

[PHP]http://forum.p30world.com/showthread.php?t=400704[/PHP]

مرسی دوست عزیز ولی استادگفته نباید از کامپوننت استفاده کنم.باید از at استفاده کنم که بلد نیستم چجوری؟
اگه کمکم کنید ممنون می شم.
20-04-2010, 08:40
MTPROG

برای استفاده از دستورات AT ابتدا باید با دستورات آن آشنا باشید
در زیر لیست دستورات At همراه با توضیج مختصر آورده شده

کد:

ATA Answer Command ATD Dial Command ATH Hang Up Call ATL Monitor Speaker Loudness ATM Monitor Speaker Mode ATO Go On-Line ATP Set Pulse Dial as Default ATT Set Tone Dial as Default AT+CSTA Select Type of Address AT+CRC Cellular Result Codes Data Card Control Commands ATI Identification ATS Select an S-register ATZ Recall Stored Profile AT&F Restore Factory Settings AT&V View Active Configuration AT&W Store Parameters in Given Profile AT&Y Select Set as s Powerup Option AT+CLCK Facility Lock Command AT+COLP Connected Line Identification Presentation AT+GCAP Request Complete Capabilities List AT+GMI Request Manufacturer Identification AT+GMM Request Model Identification AT+GMR Request Revision Identification AT+GSN Request Product Serial Number Identification Phone Control Commands AT+CBC Battery Charge AT+CGMI Request Manufacturer Identification AT+CGMM Request Model Identification AT+CGMR Request Revision Identification AT+CGSN Request Product Serial Number Identification AT+CMEE Report Mobile Equipment Error AT+CPAS Phone Activity Status AT+CPBF Find Phone Book Entries AT+CPBR Read Phone Book Entry AT+CPBS Select Phone Book Memory Storage AT+CPBW Write Phone Book Entry AT+CSCS Select TE Character Set AT+CSQ Signal Quality Computer Data Card Interface Commands ATE Command Echo ATQ Result Code Suppression ATV Define Response Format ATX Response Range Selection AT&C Define DCD Usage AT&D Define DTR Usage AT&K Select Flow Control AT&Q Define Communications Mode Option AT&S Define DSR Option AT+ICF DTE-DCE Character Framing AT+IFC DTE-DCE Local Flow Control AT+IPR Fixed DTE Rate Reporting Options Commands AT+CLIP Calling Line Identification Presentation AT+CR Service Reporting Control AT+DR Data Compression Reporting AT+ILRR DTE-DCE Local Rate Reporting Network Communication Parameter Commands ATB Communications Standard Option AT+CBST Select Bearer Service Type AT+CEER Extended Error Report AT+CRLP Radio Link Protocol AT+DS Data Compression Miscellaneous Commands A/ Re-Execute Command Line AT? Command Help AT*C Start SMS Interpreter AT*T Enter SMS Block Mode Protocol AT*V Activate V.25bis Mode AT*NOKIATEST Test Command AT+CESP Enter SMS Block Mode Protocol SMS Commands SMS Text Mode AT+CSMS Select Message Service AT+CPMS Preferred Message Storage AT+CMGF Message Format AT+CSCA Service Centre Address AT+CSMP Set Text Mode Parameters AT+CSDH Show Text Mode Parameters AT+CSCB Select Cell Broadcast Message Types AT+CSAS Save Settings AT+CRES Restore Settings AT+CNMI New Message Indications to TE AT+CMGL List Messages AT+CMGR Read Message AT+CMGS Send Message AT+CMSS Send Message from Storage AT+CMGW Write Message to Memory AT+CMGD Delete Message SMS PDU Mode AT+CMGL List Messages AT+CMGR Read Message AT+CMGS Send Message AT+CMGW Write Message to Memory
20-04-2010, 08:46
MTPROG

اینم سه مقاله خوب که دستورات AT رو به خوبی توضیح داده (به زبان انگلیسی)

[PHP]http://www.upload.tc/download/26339/messaging.pdf.html[/PHP]

[PHP]http://www.upload.tc/download/26340/gsm-spezifische-at-kommandos-_frame_.rar.html[/PHP]

این یکی ویژه گوشیهای نوکیا است
[PHP]http://www.upload.tc/download/26341/nokia_athelp.pdf.html[/PHP]
20-04-2010, 19:58
fatima2007

من نمی دونم چجوری توی برنامه vb.net از این دستورات استفاده کنم.کمممممممممممممممممممک� � کنید.خواهش می کنم.
22-04-2010, 09:02
MTPROG

برای ارسال sms (یا هر کار دیگری مثل برقراری تماس یا ...) بوسیله شبکه موبایل، از طریق کامپیوتر، میکرو کنترلر یا هر چیز دیگری (چیز دیگری به ذهن من نمی رسه) باید یک سری at command رو به صورت رشته از طریق هر پورتی برای یک مودم gsm ارسال کنی.
at command یک پروتکل ارتباطی بین مودم و سایر دستگاه هاست.
در مورد ارسال sms از طریق دستورات at دو نوع استاندارد وجود داره.
1 - text mode
pdu mode - 2
باز هر کدام از این مود ها واسه خودشون داستانی دارند که با یه سرچ تو google میشه به داستانشون پی برد!

در کل دستورات At رو به یک Serial Port که تو ToolBox برنامه موجوه میدید

حالا یه کلاس برای شما می گذارم که این کار خطیر(!) رو انجام میده. لازم به ذکر است که شما باید یه مودم gsm یا یه موبایلی چیزی داشته باشی که به کامپیوتر وصلش کنی. این کلاس با مود pdu کار می کنه. در مورد مود pdu در همین حد بدون که متن، شماره، تاریخ ارسال و ... رو به نحوی در یک رشته رمز میکنه که در هر بایت، یه بیت فشرده سازی صورت می گیره!
در ضمن این کلاس علاوه بر ارسال پیامک(!) کار های دیگری مثل شماره گیری و ... رو هم انجام میده

کد:

PublicClass AT_Commands Private GSM_Port As IO.Ports.SerialPort PublicSubNew(ByRef comx As IO.Ports.SerialPort) GSM_Port = comx EndSub PublicFunction Send_SMS(ByVal Message AsString, ByVal Tel_No AsString) AsString 'Max Len of Message is 129 Char Dim Msg_Len AsByte = Message.Length Dim Tel_Len AsByte = Tel_No.Length Dim PDU_Msg AsString = "000100" Dim I AsByte Dim J AsByte Dim K1 AsByte Dim K2 AsByte Dim K AsByte If Tel_Len <= 15 Then PDU_Msg += "0" PDU_Msg += Hex(Tel_Len).ToString + "91" For I = 0 To Tel_Len - 2 + (Tel_Len Mod 2) Step 2 J = I + 1 If J >= Tel_Len Then PDU_Msg += "F" Else PDU_Msg += Tel_No(J).ToString EndIf PDU_Msg += Tel_No(I).ToString Next PDU_Msg += "0000" I = 0 J = 1 If Msg_Len <= 15 Then PDU_Msg += "0" PDU_Msg += Hex(Msg_Len).ToString Do K1 = AscW(Message(I)) If J < Msg_Len Then K2 = AscW(Message(J)) K = I Mod 8 K1 = K1 >> K K = 7 - K K2 = K2 << K K1 = K1 + K2 If K1 <= 15 Then PDU_Msg += "0" PDU_Msg += (Hex(K1)).ToString I += 1 J += 1 If K = 1 Then I += 1 J += 1 EndIf LoopUntil I >= Msg_Len Clear_Buffer() GSM_Port.WriteLine("AT+CMGS=" + ((PDU_Msg.Length \ 2) - 1).ToString + Chr(13)) 'Max is 163 Delay(100) GSM_Port.WriteLine(PDU_Msg + Chr(26)) Delay(100) GSM_Port.ReadLine() GSM_Port.ReadLine() GSM_Port.ReadLine() Return (GSM_Port.ReadLine) EndFunction PublicSub Delay(ByRef W AsInteger) 'one tick = 100 nanoseconds so one tick * 10,000,000 = one second Dim Now_Tick As Int64 = DateTime.Now.Ticks Do LoopUntil DateTime.Now.Ticks - Now_Tick >= W EndSub PublicFunction AT_Support() AsBoolean Clear_Buffer() GSM_Port.WriteLine("AT" + Chr(13)) GSM_Port.ReadLine() If GSM_Port.ReadLine = "OK" + Chr(13) ThenReturnTrueElseReturnFalse EndFunction PublicFunction Modem_Company() AsString Clear_Buffer() GSM_Port.WriteLine("AT+CGMI" + Chr(13)) GSM_Port.ReadLine() Return GSM_Port.ReadLine EndFunction PublicFunction Modem_Model() AsString Clear_Buffer() GSM_Port.WriteLine("AT+GMM" + Chr(13)) GSM_Port.ReadLine() Return GSM_Port.ReadLine EndFunction PublicFunction Battery_Charge() AsString Clear_Buffer() GSM_Port.WriteLine("AT+CBC" + Chr(13)) GSM_Port.ReadLine() Return GSM_Port.ReadLine EndFunction PublicFunction Get_DateTime() AsString Clear_Buffer() GSM_Port.WriteLine("AT+CCLK?" + Chr(13)) GSM_Port.ReadLine() Return GSM_Port.ReadLine EndFunction PublicSub Dial(ByRef Phone_Number AsString, ByRef Wait AsByte) 'ATD <Phone_Number>; Clear_Buffer() GSM_Port.WriteLine("ATD" + Phone_Number + ";" + Chr(13)) Delay(Wait * 10000000) GSM_Port.WriteLine("ATH" + Chr(13)) EndSub PublicSub Terminate_Call() Clear_Buffer() GSM_Port.WriteLine("ATH" + Chr(13)) EndSub PublicSub Read_Contacts(ByRef Contacts_List As ArrayList) ' As String Clear_Buffer() Contacts_List = New ArrayList(100) Dim Index AsInteger = 1 Dim Number AsString = Nothing WhileTrue GSM_Port.WriteLine("AT+CPBR=" + Index.ToString + Chr(13)) GSM_Port.ReadLine() Number = GSM_Port.ReadLine If Number = "OK" + Chr(13) ThenExitWhile Contacts_List.Add(Number) GSM_Port.ReadLine() GSM_Port.ReadLine() Index += 1 EndWhile 'Return GSM_Port.ReadLine EndSub PublicSub Dispose() GSM_Port.Close() EndSub PrivateSub Clear_Buffer() GSM_Port.DiscardInBuffer() GSM_Port.DiscardOutBuffer() EndSub PublicSub Read_SMS(ByVal SMS_Index AsInteger, ByRef SMS_No AsString, ByRef SMS_Text AsString, ByRef Status AsString) Dim PDU_Msg AsString = Nothing Clear_Buffer() GSM_Port.WriteLine("AT+CMGR=" + SMS_Index.ToString + Chr(13)) GSM_Port.ReadLine() Dim Stat AsByte = Convert.ToByte(Mid(GSM_Port.ReadLine(), 8, 1)) SelectCase Stat Case 0 : Status = "Received unread message." Case 1 : Status = "Received read message." Case 2 : Status = "Stored unsent message." Case 3 : Status = "Stored sent message." Case 16 : Status = "Template message." EndSelect PDU_Msg = GSM_Port.ReadLine Dim No_Str AsString = Nothing Dim Start_Index AsInteger = PDU_Msg.IndexOf("0C91") + 5 No_Str = Mid(PDU_Msg, Start_Index, 12) SMS_No = Nothing For l AsByte = 0 To 11 Step 2 SMS_No += No_Str(l + 1) SMS_No += No_Str(l) Next Start_Index = PDU_Msg.IndexOf("0000") + 5 PDU_Msg = Mid(PDU_Msg, Start_Index) If (PDU_Msg(0) + PDU_Msg(1)).ToString = "FF" Then PDU_Msg = Mid(PDU_Msg, 5) Else PDU_Msg = Mid(PDU_Msg, 17) EndIf Dim PDU_Len AsByte = PDU_Msg.Length - 1 '??? Dim Hex_List((PDU_Len \ 2) - 1) AsByte Dim Index AsByte = 0 For l AsByte = 0 To PDU_Len - 1 Step 2 Hex_List(Index) = Convert.ToInt32((PDU_Msg(l) + PDU_Msg(l + 1)).ToString, 16) Index += 1 Next Dim K1 AsByte Dim SL AsByte = 1 Dim SR AsByte = 7 Dim TMP AsByte = 0 Dim I AsByte = 0 Dim Message AsString = Nothing Do K1 = Hex_List(I) K1 = K1 << SL Message += Chr((K1 >> 1) + TMP).ToString TMP = Hex_List(I) >> SR I += 1 : SR -= 1 : SL += 1 If SR = 0 And SL = 8 Then Message += Chr(TMP).ToString : TMP = 0 : SR = 7 : SL = 1 LoopUntil I >= Hex_List.Length SMS_Text = Message EndSub EndClass

منبع

کد:

http://barnamenevis.org/forum/showthread.php?t=209817
23-04-2010, 21:39
fatima2007

نقل قول:

نوشته شده توسط MTPROG [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

برای ارسال sms (یا هر کار دیگری مثل برقراری تماس یا ...) بوسیله شبکه موبایل، از طریق کامپیوتر، میکرو کنترلر یا هر چیز دیگری (چیز دیگری به ذهن من نمی رسه) باید یک سری at command رو به صورت رشته از طریق هر پورتی برای یک مودم gsm ارسال کنی.
at command یک پروتکل ارتباطی بین مودم و سایر دستگاه هاست.
در مورد ارسال sms از طریق دستورات at دو نوع استاندارد وجود داره.
1 - text mode
pdu mode - 2
باز هر کدام از این مود ها واسه خودشون داستانی دارند که با یه سرچ تو google میشه به داستانشون پی برد!

در کل دستورات At رو به یک Serial Port که تو ToolBox برنامه موجوه میدید

حالا یه کلاس برای شما می گذارم که این کار خطیر(!) رو انجام میده. لازم به ذکر است که شما باید یه مودم gsm یا یه موبایلی چیزی داشته باشی که به کامپیوتر وصلش کنی. این کلاس با مود pdu کار می کنه. در مورد مود pdu در همین حد بدون که متن، شماره، تاریخ ارسال و ... رو به نحوی در یک رشته رمز میکنه که در هر بایت، یه بیت فشرده سازی صورت می گیره!
در ضمن این کلاس علاوه بر ارسال پیامک(!) کار های دیگری مثل شماره گیری و ... رو هم انجام میده

کد:

PublicClass AT_Commands Private GSM_Port As IO.Ports.SerialPort PublicSubNew(ByRef comx As IO.Ports.SerialPort) GSM_Port = comx EndSub PublicFunction Send_SMS(ByVal Message AsString, ByVal Tel_No AsString) AsString 'Max Len of Message is 129 Char Dim Msg_Len AsByte = Message.Length Dim Tel_Len AsByte = Tel_No.Length Dim PDU_Msg AsString = "000100" Dim I AsByte Dim J AsByte Dim K1 AsByte Dim K2 AsByte Dim K AsByte If Tel_Len <= 15 Then PDU_Msg += "0" PDU_Msg += Hex(Tel_Len).ToString + "91" For I = 0 To Tel_Len - 2 + (Tel_Len Mod 2) Step 2 J = I + 1 If J >= Tel_Len Then PDU_Msg += "F" Else PDU_Msg += Tel_No(J).ToString EndIf PDU_Msg += Tel_No(I).ToString Next PDU_Msg += "0000" I = 0 J = 1 If Msg_Len <= 15 Then PDU_Msg += "0" PDU_Msg += Hex(Msg_Len).ToString Do K1 = AscW(Message(I)) If J < Msg_Len Then K2 = AscW(Message(J)) K = I Mod 8 K1 = K1 >> K K = 7 - K K2 = K2 << K K1 = K1 + K2 If K1 <= 15 Then PDU_Msg += "0" PDU_Msg += (Hex(K1)).ToString I += 1 J += 1 If K = 1 Then I += 1 J += 1 EndIf LoopUntil I >= Msg_Len Clear_Buffer() GSM_Port.WriteLine("AT+CMGS=" + ((PDU_Msg.Length \ 2) - 1).ToString + Chr(13)) 'Max is 163 Delay(100) GSM_Port.WriteLine(PDU_Msg + Chr(26)) Delay(100) GSM_Port.ReadLine() GSM_Port.ReadLine() GSM_Port.ReadLine() Return (GSM_Port.ReadLine) EndFunction PublicSub Delay(ByRef W AsInteger) 'one tick = 100 nanoseconds so one tick * 10,000,000 = one second Dim Now_Tick As Int64 = DateTime.Now.Ticks Do LoopUntil DateTime.Now.Ticks - Now_Tick >= W EndSub PublicFunction AT_Support() AsBoolean Clear_Buffer() GSM_Port.WriteLine("AT" + Chr(13)) GSM_Port.ReadLine() If GSM_Port.ReadLine = "OK" + Chr(13) ThenReturnTrueElseReturnFalse EndFunction PublicFunction Modem_Company() AsString Clear_Buffer() GSM_Port.WriteLine("AT+CGMI" + Chr(13)) GSM_Port.ReadLine() Return GSM_Port.ReadLine EndFunction PublicFunction Modem_Model() AsString Clear_Buffer() GSM_Port.WriteLine("AT+GMM" + Chr(13)) GSM_Port.ReadLine() Return GSM_Port.ReadLine EndFunction PublicFunction Battery_Charge() AsString Clear_Buffer() GSM_Port.WriteLine("AT+CBC" + Chr(13)) GSM_Port.ReadLine() Return GSM_Port.ReadLine EndFunction PublicFunction Get_DateTime() AsString Clear_Buffer() GSM_Port.WriteLine("AT+CCLK?" + Chr(13)) GSM_Port.ReadLine() Return GSM_Port.ReadLine EndFunction PublicSub Dial(ByRef Phone_Number AsString, ByRef Wait AsByte) 'ATD <Phone_Number>; Clear_Buffer() GSM_Port.WriteLine("ATD" + Phone_Number + ";" + Chr(13)) Delay(Wait * 10000000) GSM_Port.WriteLine("ATH" + Chr(13)) EndSub PublicSub Terminate_Call() Clear_Buffer() GSM_Port.WriteLine("ATH" + Chr(13)) EndSub PublicSub Read_Contacts(ByRef Contacts_List As ArrayList) ' As String Clear_Buffer() Contacts_List = New ArrayList(100) Dim Index AsInteger = 1 Dim Number AsString = Nothing WhileTrue GSM_Port.WriteLine("AT+CPBR=" + Index.ToString + Chr(13)) GSM_Port.ReadLine() Number = GSM_Port.ReadLine If Number = "OK" + Chr(13) ThenExitWhile Contacts_List.Add(Number) GSM_Port.ReadLine() GSM_Port.ReadLine() Index += 1 EndWhile 'Return GSM_Port.ReadLine EndSub PublicSub Dispose() GSM_Port.Close() EndSub PrivateSub Clear_Buffer() GSM_Port.DiscardInBuffer() GSM_Port.DiscardOutBuffer() EndSub PublicSub Read_SMS(ByVal SMS_Index AsInteger, ByRef SMS_No AsString, ByRef SMS_Text AsString, ByRef Status AsString) Dim PDU_Msg AsString = Nothing Clear_Buffer() GSM_Port.WriteLine("AT+CMGR=" + SMS_Index.ToString + Chr(13)) GSM_Port.ReadLine() Dim Stat AsByte = Convert.ToByte(Mid(GSM_Port.ReadLine(), 8, 1)) SelectCase Stat Case 0 : Status = "Received unread message." Case 1 : Status = "Received read message." Case 2 : Status = "Stored unsent message." Case 3 : Status = "Stored sent message." Case 16 : Status = "Template message." EndSelect PDU_Msg = GSM_Port.ReadLine Dim No_Str AsString = Nothing Dim Start_Index AsInteger = PDU_Msg.IndexOf("0C91") + 5 No_Str = Mid(PDU_Msg, Start_Index, 12) SMS_No = Nothing For l AsByte = 0 To 11 Step 2 SMS_No += No_Str(l + 1) SMS_No += No_Str(l) Next Start_Index = PDU_Msg.IndexOf("0000") + 5 PDU_Msg = Mid(PDU_Msg, Start_Index) If (PDU_Msg(0) + PDU_Msg(1)).ToString = "FF" Then PDU_Msg = Mid(PDU_Msg, 5) Else PDU_Msg = Mid(PDU_Msg, 17) EndIf Dim PDU_Len AsByte = PDU_Msg.Length - 1 '??? Dim Hex_List((PDU_Len \ 2) - 1) AsByte Dim Index AsByte = 0 For l AsByte = 0 To PDU_Len - 1 Step 2 Hex_List(Index) = Convert.ToInt32((PDU_Msg(l) + PDU_Msg(l + 1)).ToString, 16) Index += 1 Next Dim K1 AsByte Dim SL AsByte = 1 Dim SR AsByte = 7 Dim TMP AsByte = 0 Dim I AsByte = 0 Dim Message AsString = Nothing Do K1 = Hex_List(I) K1 = K1 << SL Message += Chr((K1 >> 1) + TMP).ToString TMP = Hex_List(I) >> SR I += 1 : SR -= 1 : SL += 1 If SR = 0 And SL = 8 Then Message += Chr(TMP).ToString : TMP = 0 : SR = 7 : SL = 1 LoopUntil I >= Hex_List.Length SMS_Text = Message EndSub EndClass

منبع

کد:

http://barnamenevis.org/forum/showthread.php?t=209817

سلام
مرسی این کد خیلی خوبه فقط من چجوری تو برنامه این کلاس ها وتوابع و فراخوانی کنم.اگه اینو هم لطف بفرمایید،ممنون می شم.مرسی
25-04-2010, 11:03
MTPROG

کاری نداره یک متغیر از کلاستون تعریف کنید و بعد اونو فراخونی کنید

مثلا برای ارسال SMS

کد:

Dim Number_Port AsNew IO.Ports.SerialPort Number_Port.PortName = "Com5" Dim Sms AsNew AT_Commands(Number_Port) Sms.Send_SMS("Hello", "09370565645")

البته شما به جای Com5 شماره پروت خودتونو بهش میدید