![]() |
|
|
#1
|
|||
|
|||
|
http://smste.ru/
есть сайт для отравки смс вот хочу написать од него прог чтоб в едит вводить номер в мемо текс влейб ввыодится какой опертор кк на сайте в едит2 полпис от ог ну и едит3 код и еще нада чтоб пказовало код аторый отображен на сайте как вот зделать как бы интерфейс нарисоват 5 минту как вот прописать все ссылки??? |
|
#2
|
|||
|
|||
|
мне тут подкинули ответ на одном форуме
но я незнаю какэто осуществить Код:
вообщем идет ПОСТ ЗАПРОС НА http://smste.ru/
procedure TForm1.Button1Click(Sender: TObject);
var params:Tstringlist;
begin
params:=Tstringlist.Create;
params.Add('number='+number.text);
params.Add('message=babalba');
params.Add('sign=babalba2');
params.Add('event=1911755'); // Константа вроде бы )) хотя возможно и нет я тока 2 запроса проверял
params.Add('codemod=code920760862'); а это что то с кепчем
params.Add('code920760862=4910'); а это что то с кепчем
memo1.text:=Idhttp1.Post('http://smste.ru/',params);
params.Free;
Удачи еще нужно в компонент доварить
Host: smste.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; ru; rv:1.9.1.2) Gecko/20090729 MRA 5.4 (build 02647) Firefox/3.5.2 WebMoney Advisor
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://smste.ru/
Content-Type: application/x-www-form-urlencoded
Content-Length: 96
Удачи )) осталось разобраться с кепчем ))
Точн оне знаю но вродебы кепчи статик тоесть по адресу
http://smste.ru/pix/1912635.jpg (4397)
проверял 2 браузерах ))
params.Add('event=1911755'); возможна эта строччка отвечает за кепч |
|
#4
|
||||
|
||||
|
Там вроде еще нереализован этот функционал
|
|
#5
|
||||
|
||||
|
честно, аськовской отправкой смсок я сам не пользовался, пользуюсь Мэйл агентовской отправкой, но просто описание мэйлового протокола я не встречал
|