Расслка смс

Тема в разделе "Borland C++ Builder & Kylix", создана пользователем 4xter, 6 апр 2010.

Статус темы:
Закрыта.
  1. 4xter

    4xter Гость

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

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    Очередной спамер?
     
  3. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.470
    Симпатии:
    27
    А поиск по форуму никак? Я уже задолбался это рассказывать. Статью что ли написать..
     
  4. Гость

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

    Кстати, пользовался поиском по форуму, и ничего путного не нашел.
    По этому хотелось бы, всетаки, еще разок спросить тут.
    Я пытаюсь написать програму отправки смс через этот сайт: отправка смс на IDC
    Здесь есть 4 формочки, 2-ю и 4-ю я могу заполнить программно(код ниже), и нажатие кнопки с имитировать тоже получилось. А вот первую форму и третью не получается заполнить, так же как и остальные, Подскажите почему так...
    Код (Text):
    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 формочки.
     
  6. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.470
    Симпатии:
    27
    Начните с того, что там всего 1 форма. и второе, создайте отдельную тему в правильрном разделею
     
Загрузка...
Похожие Темы - Расслка смс
  1. JohnLemon
    Ответов:
    6
    Просмотров:
    2.116
  2. JohnLemon
    Ответов:
    0
    Просмотров:
    1.055
  3. zokirullo
    Ответов:
    0
    Просмотров:
    1.738
  4. Malua321
    Ответов:
    0
    Просмотров:
    2.323
  5. morpheus
    Ответов:
    14
    Просмотров:
    5.782
Статус темы:
Закрыта.

Поделиться этой страницей