Development of SMS Group Software

Sometimes because the company should send text messages to membership group, because they have not been developed, I bought the Erlang leg software SMS group software (800 yuan), found that when the number of people (last thousand), the speed will be very slow, and in each other When the number is wrong, the dialog is often popped and the transmission process is aborted. It is not high if the consumer management software integration is not high, and the user is exported, and then the SMS software is imported. Incommunications, which triggered my idea of ​​developing SMS grouping software. I checked it on the 9CBS forum and found that many of the nets on the Internet have already published the source code. The first is the post of Wuzhiwen (silkworm cocoon). Http://community.9cbs.net/expert/topic/3212/3212036.xml?temp =.4985315 This free control, did not tried, don't know how: http://www.refound.net/download/ Soft.asp? id = 26woodlet post: http://community.9cbs.net/expert/topic/3512/3512498.xml? Temp = 2.967471e-02 I believe these posts, you already know How to make a complete SMS grouping software. Here, some of my experience is here: 1, the interval time of sending: Woodlet is to read the COM port to add retry, 50ms read once, but I found in the actual test, this method is still There is a problem, and it will fail with a number of numbers. My understanding is that there will be a feedback message after each sending, this feedback takes time. If you do not interrupt it, you will send a failure. Therefore, after sending the last number, thread rest 5000 milliseconds: for Each R AS DataRow In Dt.Rows MobileNumber = R ("Mobile")

OrigsendState = GetText (R ("SendState"))

If OrigsendState = "" Oralse OrigsendState = "Failed" Then 'did not send and failed, only send if Mobilenumber.Length = 11 and mobileenumber.startswith ("13") THEN' is the mobile phone number to send Showmsg (Mobileenumber, ME .Statusbarpanel2) sendState = xsms.send (Me.txtCenterNumber.Text, R ("Mobile"), me.txtsmsmscontent.text) showresault (sendstate, statusbarpanel2) Else 'invalid number does not send SMS sendState = "invalid" end if

'Update Transmit State R ("SendState") = sendState R.Endedit ()

Me.showsendtotal ()

'When not the last record, it is not an invalid number, and then Sleep 5 seconds. If cm.position "invalid" THREADING.THREAD.SLEP (SLEEPTIME.VALUE) END IF END IF 'Move Record Position CM.Position = 1 Dg.Select (cm.position) Next2, read mobile phone brand, model, SMS center number question: I often have problems that can not get mobile phone brands, models, and cannot read SMS center numbers. My handle is, rush mobile phone brand, model, when I can't read it When the SMS center number is not allowed to be set, the user is not allowed to send SMS: DIM OpenMSG as string = xsms.connect (me.cbconnectport.text, cint (me.cbconnectbaudrate.text) if openmsg = "" "THEN ME .Statusbarpanel1.text = xsms.getMobileInfo

If me.statusbarpanel1.text = "Unknown mobile phone unknown model" Then me.lblconnectState.text = "No mobile phone and model" end if me.lblconnectState.text = string.format ("with {0} Tongxun success!", Me.cbconnectport.text) Me.txtCenterNumber.Text = xsms.getsmsMsCenterNumber

If Me.TxtCenterNumber.Text.indexof ("8613") = -1 Then Me.tsend.enabled = false else me.tsend.enabled = true end if else me.lblconnectState.text = OpenMSG me.tsend.enabled = false end IF3, AT command:

Serial number

AT command

Comment

Possible other command format

1

AT

Online command

2

AT CGMI

Take the phone model

3

AT CGSN

Get mobile phone IMEI

4

AT CMGF

Set your phone to PDU format

5

AT CMGR

Read a message

6

AT CMGL

List all the information interior

Seduce

AT CMGS

Send a short message

8

AT CMGD

Delete a short message interior

9

AT CSCA

Set short message service center number

10

AT CSQ

Take the phone signal strength

May have some mobile phone without this command

11

AT CBC

Obtain mobile phone battery

AT ^ SBC (Siemens mobile phone)

12

AT CNMI

Set mobile phone message notification

Mobile phone possible error prompt

Serial number

Error prompt format

Comment

1

CME Error

Mobile phone setting command error, indicating parameter error 2

CMS Error

Mobile phone short message command error, indicating the parameter error

3

Error

Mobile phone command syntax error, indicating that there is no such command