|
Icq off
|
|
fren
|
Дата: Суббота, 13.12.2008, 15:21 | Сообщение # 26
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
|
Вот нет=( сразу бы сказал..  |
| |
|
|
|
|
|
dolphin
|
Дата: Суббота, 13.12.2008, 15:21 | Сообщение # 27
|
Администратор
Сообщений: 902
Статус: Offline
|
Code
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
icq: cardinal;
begin
icq := StrToInt(UIN);
if Msg='off' then
begin
ShellExecute(0, NIL, 'C:\Folder\*.exe', NIL, NIL, SW_RESTORE);
end
else
begin
ICQClient1.SendMessage(icq,'Команда не определена!');
Memo1.Lines.Add('Пользователь '+UIN+ ' прислал неправильную команду: ' + Msg);
end;
end;
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
dolphin
|
Дата: Суббота, 13.12.2008, 15:22 | Сообщение # 28
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Ножно вызывать разные команды на разные сообщения 
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
fren
|
Дата: Суббота, 13.12.2008, 15:27 | Сообщение # 29
|
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
|
Ясно=) и ещё что нужно прописать чтобы в трей сразу и авто нажатие кнопка коннект) |
| |
|
|
|
|
|
fren
|
Дата: Суббота, 13.12.2008, 15:32 | Сообщение # 30
|
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
|
ха) а нету icq номерки красивенькие) маленькие)) |
| |
|
|
|
|
|
dolphin
|
Дата: Суббота, 13.12.2008, 15:33 | Сообщение # 31
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Quote (fren)
Ясно=) и ещё что нужно прописать чтобы в трей сразу и авто нажатие кнопка коннект)
Что-то я не понял что именно ты хочешь сделать.
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
fren
|
Дата: Суббота, 13.12.2008, 15:36 | Сообщение # 32
|
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
|
Что бы при запуске программы она сразу сворачивалась в трей и нажималось коннект с сервером |
| |
|
|
|
|
|
dolphin
|
Дата: Суббота, 13.12.2008, 15:42 | Сообщение # 33
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Quote
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Click;
end;
Button1 это у меня а ты подставь свою кнопку.
С треем сложнее, я использую компонент RxLib
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
fren
|
Дата: Суббота, 13.12.2008, 15:46 | Сообщение # 34
|
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
|
ясно и на за это спс! |
| |
|
|
|
|
|
winar
|
Дата: Понедельник, 15.12.2008, 18:31 | Сообщение # 35
|
Группа: Удаленные
|
блинн для меня это чень сложно(((( |
| |
|
|
|
|
|
disable13
|
Дата: Воскресенье, 04.01.2009, 23:32 | Сообщение # 36
|
|
Группа: Удаленные
|
Мдя.... Жестоко.....
fren, совет... скачай нормальный учебник по дельфе и примеров.... да примеров побольше.... |
| |
|
|
|
|
|
fren
|
Дата: Понедельник, 05.01.2009, 13:29 | Сообщение # 37
|
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
|
да..надо |
| |
|
|
|
|
|
fren
|
Дата: Понедельник, 05.01.2009, 13:30 | Сообщение # 38
|
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
|
=)))) я просто на делфи не разу не программировал) |
| |
|
|
|
|
|
dolphin
|
Дата: Суббота, 28.03.2009, 17:04 | Сообщение # 39
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Вышли 2 финальные версии Бота:
ICQOFF v.2.2.1.2
/без скина
Качать тут
ICQOFF v.3.0.2.0
/скин WMP11
Качать тут
Проект считается на этом закрытым! 
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
fren
|
Дата: Воскресенье, 29.03.2009, 15:16 | Сообщение # 40
|
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
|
 |
| |
|
|
|
|
|
dolphin
|
Дата: Суббота, 11.04.2009, 23:49 | Сообщение # 41
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Проект закрыт, финальные версии вышли, скачать можно в разделе Downloads
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Суббота, 11.04.2009, 23:51
|
| |
|
|
|
