|
Icq off
|
|
| dolphin | Дата: Пятница, 15.08.2008, 10:30 | Сообщение # 1 |
Администратор
Сообщений: 906
Статус: Offline
| Проект ICQ бота выключающего ваш компьютер
|
| |
| |
| dolphin | Дата: Воскресенье, 30.11.2008, 16:44 | Сообщение # 2 |
|
Администратор
Сообщений: 906
Статус: Offline
| Всё просто,если будет не поняно пишите, разясню!
|
| |
| |
| fren | Дата: Пятница, 12.12.2008, 18:47 | Сообщение # 3 |
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| А как вообще это вставлять в Delphi) =) Добавлено (12.12.2008, 18:43)
---------------------------------------------
И куда=)))) и чтобы работало Добавлено (12.12.2008, 18:45)
---------------------------------------------
и вот еще можно например на команду START(знаю можно) запускать определённую программу на моём компе(c определенными параметрами) через ICQ_ Добавлено (12.12.2008, 18:47)
---------------------------------------------
Ну я не знаю) вставил просто в год и ---------------------------
Error
---------------------------
Field Form1.Label2 does not have a corresponding component. Remove the declaration?
---------------------------
Yes No Cancel Help
--------------------------- хм..и так далее...блин подскажит 
|
| |
| |
| dolphin | Дата: Пятница, 12.12.2008, 18:53 | Сообщение # 4 |
|
Администратор
Сообщений: 906
Статус: Offline
| Нужно создать форму, положить на неёё все компоненты, а в процедурах обработки написать
|
| |
| |
| fren | Дата: Пятница, 12.12.2008, 19:06 | Сообщение # 5 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| А какие там компоненты и имена их менять надо?...блин  Добавлено (12.12.2008, 19:06)
---------------------------------------------
А ты мож проект как нить скинуть) пожалуйста  
|
| |
| |
| dolphin | Дата: Пятница, 12.12.2008, 19:14 | Сообщение # 6 |
|
Администратор
Сообщений: 906
Статус: Offline
| Проект я уже удалил, так что, пользуйся текстом, тут прекрасно всё понятно.
|
| |
| |
| fren | Дата: Пятница, 12.12.2008, 19:23 | Сообщение # 7 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Да понятно...но некоторые я не понимаю..пожалуйста составь проект..мне очень надо умоляю
|
| |
| |
| dolphin | Дата: Пятница, 12.12.2008, 19:28 | Сообщение # 8 |
|
Администратор
Сообщений: 906
Статус: Offline
| Ок, щас будет
|
| |
| |
| fren | Дата: Пятница, 12.12.2008, 19:48 | Сообщение # 9 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Спасибо!!! ещё где можно посмотреть процедуры типа ShutdownComputer) для управления...и как звать процедуру запуска файла(как её использовать) Спасибо! Добавлено (12.12.2008, 19:48)
---------------------------------------------
Жду!
|
| |
| |
| dolphin | Дата: Пятница, 12.12.2008, 20:07 | Сообщение # 10 |
|
Администратор
Сообщений: 906
Статус: Offline
| Ничего здесь сложного нет,процедура выключения там есть. Компонент ->
TICQClient
|
| |
| |
| fren | Дата: Пятница, 12.12.2008, 21:54 | Сообщение # 11 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| я имею виду какие ещё процедуры можно вставить? и как пишется процедура открывание того или иного файла
|
| |
| |
| dolphin | Дата: Пятница, 12.12.2008, 21:56 | Сообщение # 12 |
|
Администратор
Сообщений: 906
Статус: Offline
| Какие файлы тебе надо открыть?
|
| |
| |
| fren | Дата: Пятница, 12.12.2008, 22:46 | Сообщение # 13 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| И как сделать чтобы было как 2 админа...чтото у меня не получилось Добавлено (12.12.2008, 22:21)
---------------------------------------------
открыть надо exe файл через аську Добавлено (12.12.2008, 22:23)
---------------------------------------------
О..админов нашел отлично! то там с командой? Добавлено (12.12.2008, 22:46)
---------------------------------------------
Добавь пожалуйста еще процедур...а в самом начале запуск файла)
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:01 | Сообщение # 14 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Спасибо) еще вопрос=) как будет код кнопки в трей, запуск программы сразу в трее, и автоманитеский коннеск при заход в программу(ну она из сохраненного файла прочитает какие вин и пасс)
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:01 | Сообщение # 15 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Quote (dolphin) ShellExecute(0, NIL, 'C:\Folder\file.exe', NIL, NIL, SW_RESTORE); а куда пораметры можно поставть?
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:06 | Сообщение # 16 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Параметры*
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:08 | Сообщение # 17 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Ну и как выключение программы)
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:08 | Сообщение # 18 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| И если можно скажи где можно посмотреть все эти процедуры..
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:10 | Сообщение # 19 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Мда...и как пользоваться..этим запуском 
|
| |
| |
| dolphin | Дата: Суббота, 13.12.2008, 15:13 | Сообщение # 20 |
|
Администратор
Сообщений: 906
Статус: Offline
| Yandex тебе в помощь, могу выложить как убить задачу зная имя exe.
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:15 | Сообщение # 21 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Выложи...ну скажи как пользоваться запуском? как написать процедуру и куда вставить?!
|
| |
| |
| dolphin | Дата: Суббота, 13.12.2008, 15:17 | Сообщение # 22 |
|
Администратор
Сообщений: 906
Статус: Offline
| Убить задачу зная имя EXE Как запустьть я уже писал выше, просто одной строкой
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:17 | Сообщение # 23 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| как использовать ShellExecute(0, NIL, 'C:\Folder\file.exe', NIL, NIL, SW_RESTORE); выдает ошибку...
|
| |
| |
| fren | Дата: Суббота, 13.12.2008, 15:18 | Сообщение # 24 |
|
Частый гость
Зарегистрирован: 12.12.2008
Группа: Пользователи
Сообщений: 34
Статус: Offline
| Code procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
icq: cardinal;
begin
icq := StrToInt(UIN);
if Msg='off' then
begin
ICQClient1.SendMessage(icq,'Выполняется выключение компьютера');
Memo1.Lines.Add('Пользователь '+UIN+ ' прислал верную команду: ' + Msg);
Button3.Click
end
else
begin
ICQClient1.SendMessage(icq,'Команда не определена!');
Memo1.Lines.Add('Пользователь '+UIN+ ' прислал неправильную команду: ' + Msg);
end;
end; как это перепрограммировать под запуск, убитие exe и другие процедуры
|
| |
| |
| dolphin | Дата: Суббота, 13.12.2008, 15:20 | Сообщение # 25 |
|
Администратор
Сообщений: 906
Статус: Offline
| Quote (fren) как использовать ShellExecute(0, NIL, 'C:\Folder\file.exe', NIL, NIL, SW_RESTORE); выдает ошибку... Shellapi подписал в uses?
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
