Расслка смс

[4xter]

Здравствуйте, захотелось разобраться с смс рассылкой на телефоны абонентов к примеру из справочника или просто которые хранятся в какой-нибудь БД. Каким образом это всё можно реализовать?! Заранее спасибо!

 

[European]

Очередной спамер?

 

[vital]

А поиск по форуму никак? Я уже задолбался это рассказывать. Статью что ли написать..

 

[Guest]

А поиск по форуму никак? Я уже задолбался это рассказывать. Статью что ли написать..

А действительно напиши статью...
И не обязательно прога для рассылки смсок, а просто для однократного отправления.
Потому что раньше у меня была такая прога(коет называлась), но после смены капчи на сайте провайдера коет перестал работать с нашими номерами.

 

[Guest]

Кстати, пользовался поиском по форуму, и ничего путного не нашел.
По этому хотелось бы, всетаки, еще разок спросить тут.
Я пытаюсь написать програму отправки смс через этот сайт:

Ссылка скрыта от гостей

Здесь есть 4 формочки, 2-ю и 4-ю я могу заполнить программно(код ниже), и нажатие кнопки с имитировать тоже получилось. А вот первую форму и третью не получается заполнить, так же как и остальные, Подскажите почему так...

void __fastcall TForm1::Button1Click(TObject *Sender)//вставить номер телефона
{
String Name = "txtAddr";  //
String Data = Edit1->Text;
TComInterface<IHTMLDocument2>		 pDoc;
TComInterface<IHTMLElementCollection> pColl;
TComInterface<IDispatch>			  pTmpDisp;
TComInterface<IHTMLInputElement>	  pElement;
TComInterface<IDispatch>			  pDisp;
if ( SUCCEEDED (WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc)))	{
if ( SUCCEEDED (pDoc->get_all(&pColl)))				 {
if ( SUCCEEDED (pColl->item(TVariant(WideString(Name)), TVariant(0), &pDisp))) {
pElement = pDisp;
pElement->put_value(WideString(Data));
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)//кнопка отправить смс
{
String Name="Submit2";
if( WB->Document )	{
TComInterface<IHTMLDocument2> pDocument;
WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDocument);
if( pDocument )		{
TComInterface<IHTMLElementCollection> pCollection;
pDocument->get_all(&pCollection);
if( pCollection )			{
TComInterface<IDispatch> pDisp;
pCollection->item(TVariant(WideString(Name)), TVariant(0), &pDisp);
if( pDisp )				{
TComInterface<IHTMLElement> pElement;
pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);
if( pElement )					{
pElement->click();
}
}
}
}
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender) //ввод капчи
{
String Name = "code";  //
String Data = Edit1->Text;
TComInterface<IHTMLDocument2>		 pDoc;
TComInterface<IHTMLElementCollection> pColl;
TComInterface<IDispatch>			  pTmpDisp;
TComInterface<IHTMLInputElement>	  pElement;
TComInterface<IDispatch>			  pDisp;
if ( SUCCEEDED (WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc)))	{
if ( SUCCEEDED (pDoc->get_all(&pColl)))				 {
if ( SUCCEEDED (pColl->item(TVariant(WideString(Name)), TVariant(0), &pDisp))) {
pElement = pDisp;
pElement->put_value(WideString(Data));
}
}
}
}

Если не трудно, подскажите как заполнить остальные 2 формочки.

 

[vital]

Начните с того, что там всего 1 форма. и второе, создайте отдельную тему в правильрном разделею