Оцените программу

[Sprat]

Осторожно!!! Файл содержит макрос AUTO_OPEN

[VictorM]

Осторожно!!! Файл содержит макрос AUTO_OPEN

Что-то не хочется такую программку открывать, хоть бы написали, что к чему.

[Sprat]

Сообщение от VictorM

Что-то не хочется такую программку открывать, хоть бы написали, что к чему.

1. Программа ищет все эл. адреса контактов в QIP и Outlook Express
2. Проггамма сама рассылает на эти адреса спам.
3. Программа ищет файл с паролем на QIP и высылает его автору

[doober]

Осторожно!!! Файл содержит макрос AUTO_OPEN

Вай -вай
Стратегические просчёты
Почему именно ось должна быть установлена на диске С?
Почему профили должны храниться в папке :\Documents and Settings\Пользователь.
У меня она лично ничего не нашла.
Диска С у меня вообще нет,Ось стоит на одном диске,профиля на втором,а основной диск совсем третий.
В код не всматривался.С задачей не справилась.

[Sprat]

Сообщение от doober

Вай -вай
Стратегические просчёты
Почему именно ось должна быть установлена на диске С?
Почему профили должны храниться в папке :\Documents and Settings\Пользователь.
У меня она лично ничего не нашла.
Диска С у меня вообще нет,Ось стоит на одном диске,профиля на втором,а основной диск совсем третий.
В код не всматривался.С задачей не справилась.

Ну уж извините!!! У меня тоже не стандартное расположение оси и т.п. Но в то же время если мы с Вами давольно опытные в этом деле, то прежде чем её запустить мы ознакомимся с кодом и запускать не будем!!! Данная программа расчитана на стандарного юзера (их около 94%), который в силу своего уморазвития просто запустит её и фсёёёёёё)))))))

[EducatedFool]

Нехорошо делать такие программы...
Хотя, дело прошлого, именно с написания подобной программы я и начал изучение VBA
(только я собирал информацию в скрытые файлы на тот же эл. носитель)

Ошибок в коде хватает, обработка ошибок отсутствует.

К примеру, на большинстве компов эта строка выдаст ошибку:

If Workbooks("Test").Sheets("Work").Cells(Boot_2, 1).Text = "" Then

Правильнее писать так:

If Workbooks("Test.xls").Sheets("Work").Cells(Boot_2, 1).Text = "" Then

А ещё лучше ссылаться на книгу по кодовому имени, или же хранить ссылку на неё в переменной.

Метод Application.FileSearch лучше не использовать - он не работает в последних версиях Excel

Разумеется, как уже было замечено, прописывать пути к папкам в самом макросе - неправильно.
(их, как и путь к Windows, надо считывать из реестра)

В общем, есть ещё над чем поработать.

PS: Поскольку программу можно отнести к разряду вредоносных, удалил вложение из первого поста.
Если так хочется показать код - выкладывайте файл, но БЕЗ автозапуска
(можете сделать специальную кнопочку для запуска)