Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

Как из своей программы послать 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;


 
Ghost.   (2002-06-17 09:10) [12]

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



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.007 c
1-85094
Nikoss
2002-08-14 23:23
2002.08.26
при запуске на форме нет ни одного компонента


1-84972
Геннадий
2002-08-14 19:03
2002.08.26
Desktop Wallpaper - Как ?


1-85012
Alexey [CDK]
2002-08-16 10:30
2002.08.26
IIS metabase


3-84885
ioRaptor
2002-08-05 10:12
2002.08.26
Использование файла БД IB из программы


1-85082
dim-
2002-08-14 17:29
2002.08.26
Компонент htmllite





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский