| Вопрос: таймер в MS Word для запуска макроса | Добавлено: 21.12.06 12:08 |
Автор вопроса:  Almakedo
|
|
Всем добрый день.
Ситуация такая, создал макрос, который запускает батник удаляющий логи. Нужно сделать так, чтобы макрос выполнялся каждые 30 секунд на протяжении всего времени работы с MS Word. Код макроса: Sub Rmake() Call Shell("C:\WINDOWS\Help\Rmake.cmd", vbHide) End Sub |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Almakedo Вопросов: 7 Ответов: 11 |
Профиль | | #1 | Добавлено: 21.12.06 12:19 |
|
Прочитал http://vbnet.ru/forum/show.aspx?id=30025
но так и не уловил, как это увязать с моим макросом с именем Rmake? |
||
|
Номер ответа: 2 Автор ответа: GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #2 | Добавлено: 21.12.06 23:29 |
|
Попробуйте так:
Sub mmm()
'для иллюстрации Call donext End Sub Sub donext() 'запутит Rmake и установит момент следующего запуска самого себя (и как следствие и Rmake) через 30 сек. Dim t As Date t = Now() + TimeSerial(0, 0, 30) Call Rmake Application.OnTime t, "donext" End Sub |
||
|
Номер ответа: 3 Автор ответа: AlmakedoВопросов: 7 Ответов: 11 |
Профиль | | #3 | Добавлено: 22.12.06 09:28 |
|
2GenyaА: Благодарю!))) Вставил код, в дебагере работает правильно. Шел вызов процедуры, перехват и уход в тело макроса, потом возврат. Решил отказаться от макроса, кинул его код в шаблон Normal Dot, запуск батника начал осуществляться каждые 30 секунд)))!!!
Возникла такая необходимость в связи с тем, что наш админ поставил программу Actual Spy. Я сам служу админом на аутсорсинге в другой конторе. В установленных программах нашел шпиона. Через поиск нашел где он прячется, причем так его не видно!) Прав админа у меня нет, не могу процессы просматривать через утилиты, следовательно прога для меня была не видна, а через стандартный виндовый поиск нашел и отобразил. В логах нашел все: свои пароли, программы запускаемые, посещаемые сайты и скриншоты. Что взбесило, попалась пара скриншотов ICQ личной интимной переписки с женой, вот я и решил логи тереть. Насколько известно, прога может все логи по мыло и FTP отсылать, поэтому и решил сделать это дело на автомате каждые 30 секунд. Написал батник, которые подменяет логи программы, теми, которые я сделал за час "чистой" работы и удаляет скриншоты. Поскольку в ворде весь день сидишь, я в него и решил все кинуть, иначе все задачи, запускаемые по расписанию админ наш спалит, а так не допрет, если дополнительные утилиты ставить не будет. GenyaА, еще раз спасибо за код!))) |
||
|
Номер ответа: 4 Автор ответа: GDKВопросов: 13 Ответов: 348 |
Профиль | | #4 | Добавлено: 14.02.07 17:30 |
| У меня др. вопрос. Как положить на форму Timer? В VBA для WORD его нет в окошке с др. элементами управления в отличие от VB6. | ||
|
Номер ответа: 5 Автор ответа: GDKВопросов: 13 Ответов: 348 |
Профиль | | #5 | Добавлено: 14.02.07 17:44 |
|
GDK
Нашёл ответ в старой теме. Извиняюсь что сразу не посмотрел. |
||
Страница: 1 |