Как из своей программы послать SMS.

← →
atmospheric © (2002-06-15 00:01) [0]

может кто делал ? :)

← →
Иван (2002-06-15 00:17) [1]

Вобщем на MTS.ru есть страничка для отправления SMS сообщений,
далее берется компонент WinHttp5.0 (msdn.microsoft.com) очень удобный компонент (главное достоинство позволяет работать с прокси серверами), далее постиш на web страницу данные с полями формы, при помощи WinHttp, теперь для чего нужны прокси - на той странице с одного IP можно отправить не более 10 сообщений поэтому работаем с ней через прокси, вот и все, HELP по компоненте как всегда водится у MS очень хороший.

← →
Иван (2002-06-15 00:21) [2]

вот эта пага
http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send

← →
atmospheric © (2002-06-15 00:25) [3]

а если на билайн отправлять, там при обрашение к странице надо данные передать, я передаю, а оно говорит, что доступ закрыт...там куки надо какие то передовать, а вот как это...

← →
Иван (2002-06-15 00:31) [4]

WinHttp и с куками пашет :-)
С билайном не знаю точно, но может в два приема,
что то типа логинишся, WinHttp берет куки,
за второй раз посылаеш, кстати возможно там еще проверка на
поле Referer стоит, тоже надо не забыть поставить.

Вот я в принципе наваял, чтобы смотреть какие параметры передает броузер
http://iburo.ru/test3.asp

← →
atmospheric © (2002-06-15 00:51) [5]

У тебя аська есть ?

← →
Иван (2002-06-15 01:10) [6]

Лови я тут на JavaScript это быстренько наваял, в аську щас попробую выйти, аська 83782707
Посылает сообщения на MTS телефоны, я проверил, у меня МТС, по поводу почему не на делфи - ломает, но код переносится легко :-)
обрати внимание на след строчку в коде
To=ТУТ НОМЕР МОБИЛЫ&Msg=ТУТ СООБЩЕНИЕ&count=ТУТ КОЛВО СИМВОЛОВ

strUrl=" http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send";

var WinHttpReq = new ActiveXObject("WinHttp.WinHttpRequest.5");
WinHttpReq.Option(0)="internet explorer";
WinHttpReq.Open("POST", strUrl, false);
WinHttpReq.setRequestHeader("Referer"," http://iburo.ru");
WinHttpReq.Send("MMObjectType=0&MMObjectID=&To=ТУТ НОМЕР МОБИЛЫ&Msg=ТУТ СООБЩЕНИЕ&count=ТУТ КОЛВО СИМВОЛОВ&Hour=03&Min=19&Day=15&Mon=06&Year=2002&Lang=2");
//WScript.Echo(WinHttpReq.GetAllResponseHeaders());
str=String(WinHttpReq.ResponseText);
//Cookie

var stream=fileObj.OpenTextFile("log2.html",2,true);
stream.write(str);
stream.close();

WScript.Echo(str);

← →
ga3 © (2002-06-15 01:27) [7]

а как с етим winhttp из дельфи работать-то? я скачал себе этот сдк, поставил, а импортировать нечего-((

← →
atmospheric © (2002-06-15 01:29) [8]

2 ga3
а ты не знаешь как на БиЛайн отправлять ? и что там за кука ?

← →
Иван (2002-06-15 01:41) [9]

Project/ImportTypeLibrary/Microsoft WinHttp Service

← →
BVM (2002-06-15 11:18) [10]

На новосибирский номер можно кинуть СМС отправив письмо на 79029xxxxxxx@scs-900.ru (SCS-900 - это местный филиал МТС).
У других операторов сети наверняка что-то подобное.

Ну а как оиправлять е-мейлы из Delphi - вопрос отдельный(ключевые слова MAPI,Indy)

← →
Егоров Николай (2002-06-15 20:44) [11]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var
Source: TStringList;
ResponseContent: TStringStream;
begin
Source := TStringList.Create;
ResponseContent := TStringStream.Create("");
try
HTTP.Request.ProxyServer := "прокси";
HTTP.Request.ProxyPort := "прокси порт";
HTTP.Request.ProxyUsername := "юзернаме";
HTTP.Request.ProxyPassword := "пассворд";
HTTP.Post(" УРЛ ", Source, ResponseContent);
finally
ResponseContent.Free;
Source.Free;
end
end;

//HTTP: TIdHTTP;

Кстати на билайн-то проще простого..вообще я раньше и на МТС и на Билайн делал..и уже не раз обьяснял, лови тол что сайт посылает и делай тоже самое

Как из своей программы послать SMS. Найти похожие ветки