Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
18.04.2010, 22:23
|
|
Новичок
Регистрация: 15.01.2010
Сообщений: 28
Провел на форуме:
466864
Репутация:
3
|
|
sms на beeline?
Пытаюсь сделать отправку смс на билайн делаю так:
PHP код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection,
IdHTTP, ExtCtrls, StdCtrls, IdMultipartFormData, OleCtrls, SHDocVw, XPMan,
IdCookieManager;
type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
WebBrowser1: TWebBrowser;
XPManifest1: TXPManifest;
Button2: TButton;
Edit1: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
sms_text: TMemo;
Memo1: TMemo;
Edit6: TEdit;
Edit2: TEdit;
IdCookieManager1: TIdCookieManager;
WebBrowser2: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s: string;
implementation
{$R *.dfm}
function ParserBlock(const Str:string; const Param1,Param2:string):string;
var
BeginPos,
EndPos:integer;
TempStr:string;
Begin
TempStr:=Str;
BeginPos:=AnsiPos(Param1,TempStr)+length(Param1);
delete(TempStr,1,beginPos-1);
BeginPos:=AnsiPos(Param1,TempStr)+length(Param1);
EndPos:=AnsiPos(Param2,TempStr);
Result:=copy(TempStr,1,EndPos-1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str:string; fs:tfilestream;
begin
str:=idhttp1.get('http://www.beeline.ru/sms/index.wbp');
s:=(ParserBlock(Str, 'ddle"><img src="','" alt="Êîä"><'));
webbrowser1.Navigate ('http://www.beeline.ru/'+s+'');
Edit5.Text := s;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
str: string;
data: TStringList;
Http : TidHttp;
CM : TidCookieManager;
sPos: integer;
begin
data := TStringList.Create;
try
Http := TIdHTTP.Create(Self);
Data := TStringList.Create;
CM := TidCookieManager.Create(Http);
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;
data.Add('send=' );
data.Add('smstext='+sms_text.Text);
data.Add('smstoprefix=' +Edit2.Text);
data.Add('smsto=' +edit1.Text);
data.Add('dirtysmstext=' +sms_text.Text);
data.Add('translit=' +Edit6.Text);
data.Add('confirm_key=');
data.Add('confirmcode='+Edit4.Text);
data.Add('x=35');
data.Add('y=11');
str := HTTP.Post('http://www.beeline.ru/sms/index.wbp', data);
finally
Data.Free;
CM.Free;
Http.Free;
end;
end;
end.
Смс не приходит.
Последний раз редактировалось logger; 18.04.2010 в 22:26..
|
|
|
18.04.2010, 22:24
|
|
[bald man]
Регистрация: 13.07.2009
Сообщений: 623
Провел на форуме:
4490909
Репутация:
1167
|
|
оформи код нормально
|
|
|
|
18.04.2010, 23:07
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
Провел на форуме:
475927
Репутация:
12
|
|
ТС,мож DPR слить + прокоментить код было бы оч полезно.Заранее спасибо
|
|
|
|
18.04.2010, 23:38
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от logger
Пытаюсь сделать отправку смс на билайн делаю так:
....
Смс не приходит.
PHP код:
document.forms.sendsms.send.value='send';
Тоесть
Код:
data.Add('send=send');
Лучше запустить сниффер и отправь одинаковые данные с сайта и с программы, и сверяй где недочет может быть.
Я думаю это лишнее, обычно это не обрабатывается в скрипте.
PHP код:
data.Add('x=35');
data.Add('y=11');
P.s. Код лучше почистить, от лишних буковок. Например:
PHP код:
s:=ParserBlock(Str, 'ddle"><img src="','" alt="Êîä"><');
webbrowser1.Navigate ('http://www.beeline.ru/'+s);
Еще я не могу понять какую роль выполняет
Код:
webbrowser1.Navigate ('http://www.beeline.ru/'+s+'');?
Загрузка картинки (капчи)?
<offtop>
Sunstrider, создай новый проект, вот тебе готовый DPR  )
</offtop>
Последний раз редактировалось JnK; 18.04.2010 в 23:41..
|
|
|
|
18.04.2010, 23:51
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от logger
Пытаюсь сделать отправку смс на билайн делаю так:
PHP код:
webbrowser1.Navigate ('http://www.beeline.ru/'+s+'');
капчу так не выводят
|
|
|
|
19.04.2010, 00:41
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
я конечно все понимаю, но TWebBrowser то на уя? не проще ли так?
Код:
uses Jpeg;
...
var
jpg: TJpegImage;
Ms : TMemoryStream;
begin
Ms := TMemoryStream.Create;
jpg := TJpegImage.Create;
HTTP.Get(''http://www.beeline.ru/'+s, Ms);
Ms.Position := 0;
Jpg.LoadFromStream(ms);
Image1.Picture.Graphic := jpg;
jpg.Free;
Ms.Free;
end;
|
|
|
|
19.04.2010, 11:50
|
|
Новичок
Регистрация: 15.01.2010
Сообщений: 28
Провел на форуме:
466864
Репутация:
3
|
|
там капча png
|
|
|
|
19.04.2010, 13:39
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
Сообщение от logger
там капча png
так юзай Pngimage
|
|
|
|
19.04.2010, 17:05
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
Провел на форуме:
475927
Репутация:
12
|
|
Не буду другую тему создовать,народ как юзать гиa animation в делфи,гугль не нашел.Заранее спасибо
|
|
|
|
19.04.2010, 17:19
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Сообщение от Sunstrider
Не буду другую тему создовать,народ как юзать гиa animation в делфи,гугль не нашел.Заранее спасибо
Есть какбэ тема , где можно задать вопрос, а не засирать чужие темы 
Здесь посмотри на счет gif.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
