![]() |
|
#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'); возможна эта строччка отвечает за кепч |
#3
|
||||
|
||||
![]() как альтернативный (менее нудный, но немного не совсем то) юзать ICQ клиент, в нём есть бесплатная отправка СМСок. если надо здесь найдёш компонент ICQ клиента
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#4
|
||||
|
||||
![]() Там вроде еще нереализован этот функционал
|
#5
|
||||
|
||||
![]() честно, аськовской отправкой смсок я сам не пользовался, пользуюсь Мэйл агентовской отправкой, но просто описание мэйлового протокола я не встречал
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |