С помощью телефона на компьютере принимать и отправлять sms сообщения

Необходимо с одного компа отправлять sms , а на другом принять. GSM модемы есть, нету опыта в этом вопросе. Может кто-нибудь писал подобный сервис. Какой протокол используется для отправки sms ?
 
 
Я знаю только 1 вариант - парсить страницу какого-то сайта, доставать капчу и посылать нужные параметры на сайт. Сначала надо сделать get, потом пост со всеми пар-рами из get и плюс то, что вводится.
 
Нашёл попроще способ, но ещё не работает пока, помогите что не так шлю в модем ?
 
void 
__fastcall TForm1::Button4Click(TObject *Sender){
//Инициализоровал модем, дальше иду
//Шлю команду ATZ, хотя не совсем уверен нужна ли она
WriteFile(hCOM,"ATZ\xD\xA",5,&nwrite,NULL);
lpNumberOfBytesWrite=0;
while (lpNumberOfBytesWrite==0)ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;
while (lpNumberOfBytesWrite!=0)  
{   
ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);   
Sleep(500);   
Application->ProcessMessages();   
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;  }//Перевожу модем в режим передачи текстовых sms 
0-PDU mode 1-text modeWriteFile(hCOM,"AT+CMGF=1\xD\xA",11,&nwrite,NULL);
lpNumberOfBytesWrite=0;
while (lpNumberOfBytesWrite==0)ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;
while (lpNumberOfBytesWrite!=0)  
{   
ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);   
Sleep(500);   
Application->ProcessMessages();   
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;  
}//Тут ввожу номер центра отправки sms оператора 
//На этой посылке программа виснет//
WriteFile(hCOM,"AT+CSCA=+79222909090\xD\xA",22,&nwrite,NULL);
WriteFile(hCOM,"AT+CSCA=89222909090\xD\xA",21,&nwrite,NULL);
lpNumberOfBytesWrite=0;
while (lpNumberOfBytesWrite==0)ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;
while (lpNumberOfBytesWrite!=0)  
{   
ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);   
Sleep(500);   
Application->ProcessMessages();   
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;  }
//Номер на который отправляю
WriteFile(hCOM,"AT+CSCA=+79221234567\xD",21,&nwrite,NULL);
lpNumberOfBytesWrite=0;
while (lpNumberOfBytesWrite==0)
ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;
while (lpNumberOfBytesWrite!=0)  
{   
ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);   
Sleep(500);   
Application->ProcessMessages();   
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;  }
BYTE a=0x31;WriteFile(hCOM,&a,1,&nwrite,NULL);
lpNumberOfBytesWrite=0;
while (lpNumberOfBytesWrite==0)
ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;
while (lpNumberOfBytesWrite!=0)  
{   
ReadFile(hCOM,&fromstanok,1,&lpNumberOfBytesWrite,&hhh);   
Sleep(500);   
Application->ProcessMessages();   
Memo1->Lines->Text=Memo1->Lines->Text+(
char)fromstanok;  
}
}
 
1. модем в сети? (пин код на корточку введен?) и какой тип модема?
 
как минимум 1 раз нужно дать модему
at+cpin=xxxx - пин код карточки
at+clck="SC",0,7401 - запретить требовать пинкод
at+cfun=1,1 - рестарт модема, хотя можно и просто выключить и включить
 
Модем в сети, пин кода нет, модем - FALCOM мы юзаем его для опроса пром. счётчиков.
 
Цитата
 
WriteFile(hCOM,"AT+CSCA=89222909090\xD\xA",21,&nwrite,NULL);
 
согласно GSM 04.11 RP длина строки номера смс центра не более 20 знаков.
 
и судя по доке должно быть
 
"AT+CSCA=\"89222909090\"\xD\xA"
 
т.е. номер должен быть в кабычках....
 
Точно, сейчас потестирую.