Четверг, 28.03.2024, 17:51 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: Anton93, Волк-1024, xXxSh@dowxXx  
delphicode » Delphi » Программы на Delphi » Icq off (Удалённо выключает компьютер)
Icq off
frenДата: Суббота, 13.12.2008, 15:21 | Сообщение # 26
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
Вот нет=( сразу бы сказал.. wink
 
dolphinДата: Суббота, 13.12.2008, 15:21 | Сообщение # 27
Администратор
Сообщений: 906
Статус: 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, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
dolphinДата: Суббота, 13.12.2008, 15:22 | Сообщение # 28
Администратор
Сообщений: 906
Статус: Offline
Ножно вызывать разные команды на разные сообщения happy

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
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
Администратор
Сообщений: 906
Статус: Offline
Quote (fren)
Ясно=) и ещё что нужно прописать чтобы в трей сразу и авто нажатие кнопка коннект)

Что-то я не понял что именно ты хочешь сделать.


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
frenДата: Суббота, 13.12.2008, 15:36 | Сообщение # 32
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
Что бы при запуске программы она сразу сворачивалась в трей и нажималось коннект с сервером
 
dolphinДата: Суббота, 13.12.2008, 15:42 | Сообщение # 33
Администратор
Сообщений: 906
Статус: Offline
Quote
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Click;
end;

Button1 это у меня а ты подставь свою кнопку.
С треем сложнее, я использую компонент RxLib


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
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
да..надо happy
 
frenДата: Понедельник, 05.01.2009, 13:30 | Сообщение # 38
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
=)))) я просто на делфи не разу не программировал)
 
dolphinДата: Суббота, 28.03.2009, 17:04 | Сообщение # 39
Администратор
Сообщений: 906
Статус: Offline
Вышли 2 финальные версии Бота:

ICQOFF v.2.2.1.2
/без скина
Качать тут

ICQOFF v.3.0.2.0
/скин WMP11
Качать тут

Проект считается на этом закрытым! smok


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
frenДата: Воскресенье, 29.03.2009, 15:16 | Сообщение # 40
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
cool
 
dolphinДата: Суббота, 11.04.2009, 23:49 | Сообщение # 41
Администратор
Сообщений: 906
Статус: Offline
Проект закрыт, финальные версии вышли, скачать можно в разделе Downloads

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик


Сообщение отредактировал dolphin - Суббота, 11.04.2009, 23:51
 
delphicode » Delphi » Программы на Delphi » Icq off (Удалённо выключает компьютер)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz