VBScript: сценарий входа, выполнение только 1й программы

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

Проблемы с тем, что пользователь не должен никуда лезть, нет. Есть такая "штука" у Microsoft, под названием SteadyState, запрещает пользователю практически все и есть возможность хранения кэша диска, т.е. при перезагрузке возвращает все на точку создания кэша.

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

Если через этот раздел возможно отменить запуск оболочки, и вставить logon запуск пользовательского приложения, то как раз дает. Если же нельзя, то процесс проводника наверное нужно выключать отдельно - отключен проводник - отключен стандартный интерфейс Windows, кроме мыши и картинки на рабочем столе - и уже никуда нельзя влезть. Осталось лишь запустить наше единственное приложение и работать исключительно с ним.

В принципе можно ограничить запуск нового процесса через скрипт. Скрипт отслеживает появление нового процесса и если его имя не соответствует разрешенному, то процесс уничтожается. Тоже вариант Либо использовать какие-то стандартные возможности системы, например как-то отключить возможность создания новых процессов через окошко диспетчера - заблокировать соответствующую кнопку через реестр или какие-то настройки.

Оболочка — это обычная программа. При чём тут «нестабильная работа с непредсказуемыми последствиями»? Весьма стабильно и вполне предсказуемо. Или в групповую политику этот параметр тоже от нечего делать добавили?
Slav, Poltergeyst: цитировать не буду. Скажу лишь, что окно можно свернуть, изменить размеры, сдвинуть за пределы экрана (и без помощи мыши). Topmost окна не означает наличие фокуса ввода. Влезть можно, как я уже писал, через интерфейс Common Dialog Controls: запускаем Блокнот, закрываем Проводник (\Пуск\Завершение работы, Ctrl-Alt-Shift+ЛКМ на кнопке «Отмена»), в Блокноте делаем \Файл\Открыть(Сохранить как), переходим в нужную папку, запускаем по контекстному меню Проводник или что там будет потребно.
В итоге опять всё сводится к слежению за приложениями, которое делается в данном случае отнюдь не слежением скриптами (что на ать-два с лёгкостью обходится переименованием), а по ссылке, указанной в посте #5.

OFF: Я никак не могу понять, почему именно имеющиеся стандартные средства вызывают такое отвращение и заставляют изобретать велосипед?

Блокнот упоминался только в качестве примера. Использоваться будет именно то приложение, с которым только и планируется работать.

повторю ещё раз: переименованием исполняемого файла в имя того приложения, с которым только и планируется работать.

Именно этот вариант я и предлагаю использовать. С хэшэм бороться на порядок сложнее.

Действительно, этот момент как-то проскользнул в голове, а Вы здесь оказались правы - если приложение использует диалог открытия файла, то такой диалог являясь частью оболочки предоставит все её функции - можно переименовать sol.exe в 1cv77.exe и потихоньку наигрывать в карты, даже если сама оболочка отключена и включен фильтр на запуск определенных процессов. Что делать?

Штука не такая как Вы описали а очень приличная и красивая.
Операционная система Windows XP Pro. Программа СПС ГАРАНТ

В том-то и дело, что программа не терминальная так бы проблем не было...
Слишком много вариантов, чтоб выбрать правильный...

Резюмируя все вышесказанное можно поступить примерно по следующей схеме

- При запуске подавить процесс проводника.
- Проставить ограничение на запуск всех программ кроме заданной, через "Локальные параметры безопасности", как было рекомендовано alexii.
- Поставить СПС ГАРАНТ в автозагрузку
- Если интерфейс проводника отключен и в контексте экрана существует только одно окно, то это окно будет активным в любом случае. Задача сделать так, чтобы его нельзя было свернуть или переместить, дабы попросту не потерять. Для этого нужно изготовить небольшой скрипт, который будет периодически заставлять это окно отображаться в максимизированном состоянии - максимизированное окно занимает весь экран и его невозможно переместить за пределы области экрана. Даже если кто-то решит свернуть или нормализовать окно скрипт восстановит максимизированное состояние и не даст окну потерятся. Никакого TopMost здесь не надо.

Да. Никакого уникального опыта в этом нет. Обычная замена shell'а, коих превеликое множество. Примерно так же во времена Windows 3.1 менялся ProgMan на более удобный DashBoard. Начиная с Windows 95 (когда shell'ы под Windows, собственно, и начали плодиться как кролики) не пользую, поскольку насущной потребности не возникало и хватало стандартного shell'а.

Замену shell'а по рассматриваемому типу (на произвольное приложение) делал в качестве демонстрации.

Reset.

Про шпионов и прочее: при наличии головы, прямых рук, соответствующего оборудования и обеспечения, достаточного количества времени и физического доступа к системному блоку не спасают никакие меры.

alexii,

неинтеллигентно.

По моему — то, которое работает и в котором ты можешь разобраться .

Для терминалов пишутся соответствующие программы, причём использующие стандартные библиотеки в минимальнейшем объёме. Использовать в этом качестве стандартное приложение — это верх глупости или наивности. Надо бить разработчиков.

Это не для терминалов программа. Просто с помощью терминала появляется возможность найти человеку закон или еще что-либо бесплатно.

У меня всего лишь одно единственное окно при отсутствующем проводнике(в чем собственно и заключается смысл). И при сворачивании оно пропадает из поля зрения полностью, восстанавливаясь лишь через Alt+Space, Alt+Tab. Ничего другого кроме курсора мышки и картинки на рабочем столе я не вижу. Резонный вопрос - для чего удалять проводник, если можно просто поддерживать окно приложения в активном состоянии, как это предлагает Slav? Дело в том что речь идет о решении для конечного пользователя, где не должно быть ничего лишнего и должно быть заблокировано все что можно заблокировать, где вся работа сводится к принципу "увидел - нажал". Представьте реакцию пользователя, решившего свернуть окно и на мгновение увидевшего там какие-то значки. "Чо? Это несерьезно! Да они тут дурят нас! Там у них значки, поиграть можно, а здесь все время окно выскакивает!" Поэтому если человек на мгновенье отодвинет окно, то кроме черного экрана с он не должен ничего видеть - тогда будет серьезно.

Poltergeyst,

Ответ 1 (юмористический): Вы может не помните - было время, когда проходили съезды КПСС и по всем программам шла его трансляция. Анек из того времени: Включает чел ТВ - там съезд. Переключает программу - там съезд. Переключает еще - там съезд. Переключает... А там сидит кгбшник и так строго говорит: "Я тебе попереключаю!"
Уберите все иконки с рабочего стола, а на стол положите картинку с лозунгом: "Юзер! Тебе же сказали - работать только в программе!"

Ответ 2 (технический): у меня сложилось впечатление, что Вы неплохо знакомы с API. Значит умеете делать callback на любые действия и производить свою обработку любого wm_ системы. Уж игнорировать wm_minimaze или wm_restore для конкретного окна не проблема.

Коллеги, меня несколько удивляет ваш подход - сделать из Мерса Запорожец. С решением всех проблем кнопкой Reset. Можно, наверно - токо зачем?

alexii,

есть еще один тонкий момент.
Мы на форуме скриптовых языков и в условиях задачи - можно ли написать скрипт, реализующий поставленную цель. Я и обсуждаю возможность создания такого скрипта. В рамках системы, которая этот скрипт сможет выполнять.
А замену оболочки может более логично обсуждать где-нибудь на... OSZONE, например?
Или Вы при замене оболочки предусмотрите в своей интерпритатор VBS?

Можно тогда задам более конкретный вопрос, а то глобальная задача заводит всех в тупик, т.к. имеет одно решение, но разными дорогами и никто не хочет идти одной, как камешек налево пойдешь и т.д. только у камешка вот я стою
я поискал по форуму и нашел только для AHK скрипт позволяющий убрать кнопки закрыть свернуть... как в VBS добиться аналогичного результата? а еще лучше, чтоб даже не было окна заголовка. Спасибо.
P.S.
У меня нет большого опыта и знаний программирования, пользуюсь скриптами и этим форумом для решения локальных прикладных задач.

Я пробовал с помощью скрипта который есть на даном форуме убрать "кнопчки управления окном", но т.к. я в AHK полный нуб, то так и не понял, почему могу реализовать "деактивацию" кнопки "закрыть", но не могу "деактивировать кнопку "свернуть". С AHK мне нужно будет так сломать голову...

Вот пример на АНК, который запускает Блокнот, ждёт появления его окна и деактивирует кнопку "Свернуть".

WS_MINIMIZEBOX = 0x20000

Run, notepad.exe
WinWait, Безымянный - Блокнот
WinSet, Style, -%WS_MINIMIZEBOX%, Безымянный - Блокнот

alexii,

попробовал что именно?
Вы же не предлагаете - пока - ни одного конкретного скрипта, ни инструкции как заменить shell хотя бы обычным notepad.
Кстати, насчет LiveCD - это не мне совет надо давать, а тем, кто пойдет по предложенному Вами пути. Рекомендую включить в комплект еще и вазелин - если что-то серьезно сбойнет, LiveCD не окажется под рукой, и руководство захочет отметить Ваше решение. Шутко.
Да и еще - хотите я скажу как из того же notepad запустить что угодно? Вы эту проблему до сих пор не решили - а ведь уже 3-я страница темы.

Предлагаю перейти к предметному обсуждению.
Вот мой подход. Он состоит из двух частей - VBS-скрипта и маленькой функции на VBA. VBA -функцию можно оформить как динамически формируемую. Полюбому - для реализации моего подхода необходим установленный MS Офис. Это его главное и единственное ограничение.
Как всегда - готов услышать конкретные замечания, советы, конструктивную критику.

VBS-скрипт:

'
' Неубиваемый блокнот
'

appExe = "notepad.exe"     '  старт приложения
appWndSufix = "- Блокнот"  '  суффикс окна приложения

Set objWord = CreateObject("Word.Application")
objWord.Documents.Add()

Set WshShell = WScript.CreateObject("WScript.Shell")

Do While True  '  глобальный цикл - повторный запуск если приложение будет закрыто

' запускаем приложение
WshShell.Run appExe

' ждем первого появления окна - хотя тут возможны нюансы
retVal = False
Do While not retVal
   retVal = objWord.Application.Run("CheckActiveWindow", appWndSufix)
Loop

' определяем наш Task
For Each objTask in objWord.Tasks
    if (InStr(1, objTask.Name, appWndSufix) > 1) then
       objTask.Activate         ' первый раз - нафсякей
       objTask.WindowState = 1  ' wdWindowStateMaximize
       Exit For
    End If
Next

On Error resume next  '  если приложение будет закрыто

' режим мониторинга
Do While True

  retVal = objWord.Application.Run("CheckActiveWindow", appWndSufix)
  if (not retVal) then objTask.Activate
  if (objTask.WindowState <> 1) then objTask.WindowState = 1  ' wdWindowStateMaximize

  if (Err.Number = 5825) then Exit Do  '  приложение было закрыто, номер ошибки для WINDOWS2000
  
  Wscript.Sleep 1000  ' опрос каждую секунду
Loop

Err.Clear
On Error Goto 0

Loop  '  глобальный цикл

' придумать критерий нормального выхода
Set WshShell = Nothing

objWord.Quit
Set objWord = Nothing

WScript.Echo "Приложение закрыто"

WScript.Quit 0

VBA-функция (сохранить в NORMAL.DOT):

Declare Function GetForegroundWindow Lib "user32" () As Long

Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" _
(ByVal hwnd As Long) As Long

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long



Function CheckActiveWindow(ByVal TitleWindow As String) As Boolean
  Dim hwnd As Long
  Dim MyStr As String
  
  CheckActiveWindow = False
  
  hwnd = GetForegroundWindow
  If GetParent(hwnd) = 0 Then
     MyStr = String(GetWindowTextLength(hwnd) + 1, Chr$(0))
     GetWindowText hwnd, MyStr, Len(MyStr)
     If InStr(MyStr, TitleWindow) > 0 Then
        CheckActiveWindow = True
     End If
  End If

End Function

Совсем небольшое дополнение в программе повысит психологическую мотивацию пользователя даже не пытаться запустить что-нибудь, кроме основной проги. В том случае, если активное окно любое отличное от требуемого, то перед переключением название левого окна записывается в лог-файл. Также как и попытки закрыть программу.
На основании лога можно поинтересоваться у пользователя: "А зачем это Вы пытались несколько раз запустить игру?"

По поводу приобрести мс офис только для скрипта не вариант, скрипт на АХК не подходит, т.к. обращается к названию окна, а оно динамичное, т.е. изменяется в процессе работы да и название у него не 2 слова

А что скажете насчёт класса окна (посмотреть можно с помощью «AU3_Spy.exe» из комплекта AutoHotKey или «Au3Info.exe» из комплекта AutoIt, а также многих прочих утилит, включая Microsoft Spy++, WinspectorU и т.п.)? Класс, надеюсь, постоянно не меняется (хотя бывает и так) или, хотя бы, имеет некую постоянную часть?