Перейти к содержимому

 Друзья: Всё для вебмастера | [ Реклама на форуме ]


Rutor
Rutor


[ DDos Услуги. DDos атака. Заказать ДДос ]


Delphi и ICQ, Как подружить


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 8

#1
Xeromant

Xeromant

    Повелитель асек

  • Members
  • Pip
  • 105 сообщений
Сегодня я научу тебя как написать прогу котарая будет менять пасс на твоем 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;
Ну и теперь запускай все это дело и тести=)
Цитата
Я бы хотел......, что бы в сутках было 50 часов!!! или, чтобы я не умел спать!!!

ICQ 966002

]]>{ FORUM.CODER-CLUB.iN }]]>

#2
$iD

$iD

    Админ

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

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

#3
Urbis

Urbis

    EternalStone

  • Moderator
  • PipPip
  • 177 сообщений
неплохо...для самообразования пойдёт =)
Цитата

#4
Xeromant

Xeromant

    Повелитель асек

  • Members
  • Pip
  • 105 сообщений
$iD
Детская всмысле нужно больше разьяснить? или что?
Цитата
Я бы хотел......, что бы в сутках было 50 часов!!! или, чтобы я не умел спать!!!

ICQ 966002

]]>{ FORUM.CODER-CLUB.iN }]]>

#5
$iD

$iD

    Админ

  • root
  • PipPipPipPipPipPip
  • 3785 сообщений
Xeromant
Детская в смысле - простое объясняешь )

#6
Xeromant

Xeromant

    Повелитель асек

  • Members
  • Pip
  • 105 сообщений
$iD
Не спорю это детское. но знаешь сколько я еб**ся с этим когда только начинал? вот такие бы статьи мне бы очень помогли=)
Цитата
Я бы хотел......, что бы в сутках было 50 часов!!! или, чтобы я не умел спать!!!

ICQ 966002

]]>{ FORUM.CODER-CLUB.iN }]]>

#7
xedos

xedos

    пьяный мастер

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

#8
0xID

0xID

    Бит

  • Members
  • 19 сообщений
Xeromant
Самореклама - это круто!! НУ как не написать, что с твоего форума!! :)

#9
Zakladka

Zakladka

    Бит

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


Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных