Сообщений в теме: 8

[Xeromant]

Сегодня я научу тебя как написать прогу котарая будет менять пасс на твоем uin'не. Нам потребуется сам делфи и компонент от koban'a. скачать его можно сдесь

Скрытый текст

]]>скачать компонент]]>

распоковывай архив и устанавливай его. После установки у тебя на вкладки компонентов появиться новая. называется она SAMPLE в ней то и будет наш компонент.
теперь открываешь "Project->Options->Dirictories->Search path->...-> Путь до компонента"..\bot\Мега-бот для аськи\TICQclient\Component"->Add->ok"
теперь кидаешь на форму компонет TICQ,3 TEDIT, TMEMO,Tbutton
теперь щелкаешь по button и вписываешь туда не хитрый код  

procedure TForm1.Button1Click(Sender: TObject);
begin
icq1.UIN:=strtoint(edit1.Text);
icq1.Password:=edit2.Text;
icq1.login();
end;

Теперь думаю тут все понятно

procedure TForm1.ICQ1Login(Sender: TObject);
begin
icq1.ChangePassword(edit3.text);
memo1.Lines.Add(' ');
memo1.Lines.Add('-------------');
memo1.Lines.Add(datetostr(date));
memo1.Lines.Add('Connected ñ '+edit1.Text+';'+edit2.text);
memo1.Lines.Add('ChangePassword íà '+ edit3.text);
memo1.Lines.Add('Disconnect');
memo1.Lines.Add('-------------');
end;

ну и еще добавь

procedure TForm1.ICQ1ConnectionFailed(Sender: TObject);
begin
memo1.Lines.Add(' ');
memo1.Lines.Add('-------------');
memo1.Lines.Add('Неправильный  uin/pass');
memo1.Lines.Add('-------------');
end;

Ну и теперь запускай все это дело и тести=)

[$iD]

Xeromant
Для начала не плохо ))) но всеже как-то немного детская статейка получилась )))

P.S. Ну всеравно гут ) Все начинают с малого ^_^

[Urbis]

неплохо...для самообразования пойдёт =)

[Xeromant]

$iD
Детская всмысле нужно больше разьяснить? или что?

[$iD]

Xeromant
Детская в смысле - простое объясняешь )

[Xeromant]

$iD
Не спорю это детское. но знаешь сколько я еб**ся с этим когда только начинал? вот такие бы статьи мне бы очень помогли=)

[xedos]

где скачать нормальный delphi и компилятор скажите а искал в яндексе не нашёл ничего так хочется попробывать,и желательно обьясните как делать компиляцию кода

[0xID]

Xeromant
Самореклама - это круто!! НУ как не написать, что с твоего форума!!

[Zakladka]

написать бы брут более качественный чем IPD