VBNet - Форум - таймер в MS Word для запуска макроса

Вопрос: таймер в 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-сайт: www.genyaa.nm.ru Профиль \| Цитата \| #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 |