...а оно динамичное, т.е. изменяется в процессе работы да и название у него не 2 слова
Temasik,
а эта программа - Ваша7 Вы можете её модифицировать?
Зачем Вам вообще операционная система, жесткий диск? Переделайте её так, чтобы она загружалась с CD и работала абсолютно автономно.
По поводу приобрести мс офис только для скрипта не вариант...
Temasik,
действительно не стоит - для скрипта приобретать МС Офис. 
Если Вы внимательно посмотрели для чего собственно нужен Офис в моем варианте - то только для легкого и прозрачного вызова API-функций. Вызвать их можно и без Офиса - написать свою DLL, например, на любом известном Вам языке (благо, теперь МС выкладывает бесплатные студии самых популярных языков). Вызов DLL затем производится rundll32.exe.
скрипт на АХК не подходит, т.к. обращается к названию окна, а оно динамичное, т.е. изменяется в процессе работы да и название у него не 2 слова
А что скажете насчёт класса окна (посмотреть можно с помощью «AU3_Spy.exe» из комплекта AutoHotKey или «Au3Info.exe» из комплекта AutoIt, а также многих прочих утилит, включая Microsoft Spy++, WinspectorU и т.п.)? Класс, надеюсь, постоянно не меняется (хотя бывает и так) или, хотя бы, имеет некую постоянную часть?
]]>]]>]]>OneTask.vbs :
'
' Неубиваемый блокнот
'
Dim objTask
Const ForWriting = 2
appExe = "notepad.exe" ' старт приложения
appWndSufix = "- Блокнот" ' суффикс окна приложения
ParentWindow = "ParentWindow:" ' префикс для идентификации что активное окно родительское
myHKCU = "HKEY_CURRENT_USER\Software\Slav\OneTask"
rootDir = Left(WScript.ScriptFullName, instrrev(WScript.ScriptFullName,"\"))
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add()
Set WshShell = WScript.CreateObject("WScript.Shell")
' запрещаем пользователю выход из приложения
WshShell.RegWrite myHKCU & "\StopApplication", "0", "REG_DWORD"
Set objFSO = CreateObject("Scripting.FileSystemObject")
' файл протокола
Set myProtocol = objFSO.OpenTextFile(rootDir & "_Protocol.log", ForWriting, True)
Do While True ' глобальный цикл - повторный запуск если приложение будет закрыто
' запускаем приложение
WshShell.Run appExe
' ждем первого появления окна - хотя тут возможны нюансы
retVal_str = "Start my program"
Do While True
retVal_str = objWord.Application.Run("CheckActiveWindowStr", ParentWindow)
if (InStr(1, retVal_str, ParentWindow) = 1) and (InStr(1, retVal_str, appWndSufix) > 1) then Exit Do
Wscript.Sleep 1000 ' проверка каждую секунду
Loop
' режим мониторинга
Do While True
retVal_str = objWord.Application.Run("CheckActiveWindowStr", ParentWindow)
retVal_bool = MyTask()
if (InStr(1, retVal_str, ParentWindow) = 1) and (InStr(1, retVal_str, appWndSufix) < 1) then
if retVal_bool then
myProtocol.WriteLine Now() & vbTab & retVal_str & vbCrLf
objTask.Activate
else
Exit Do
end if
end if
if retVal_bool then
if (objTask.WindowState <> 1) then objTask.WindowState = 1 ' wdWindowStateMaximize
end if
Wscript.Sleep 1000 ' опрос каждую секунду
Loop
' проверка на разрешенное завершение приложения
retVal = WshShell.RegRead(myHKCU & "\StopApplication")
if (retVal = 0) then
myProtocol.WriteLine Now() & vbTab & "Close application" & vbCrLf
else
Exit Do
end if
Loop ' глобальный цикл
' завершение работы приложения
myProtocol.Close
Set myProtocol = Nothing
Set objFSO = Nothing
Set WshShell = Nothing
objWord.Quit
Set objWord = Nothing
WScript.Echo "Приложение закрыто"
WScript.Quit 0
' *** функция определения нашего задания
Function MyTask()
MyTask = False
For Each objTask in objWord.Tasks
if (InStr(1, objTask.Name, appWndSufix) >= 1) then
MyTask = True
Exit For
End If
Next
End FunctionVBA-функция (включить в 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 CheckActiveWindowStr(ByVal ParentWindow As String) As String
Dim hwnd As Long
Dim MyStr As String
CheckActiveWindowStr = "ChildWindow"
hwnd = GetForegroundWindow
If GetParent(hwnd) = 0 Then
MyStr = String(GetWindowTextLength(hwnd) + 1, Chr$(0))
GetWindowText hwnd, MyStr, Len(MyStr)
CheckActiveWindowStr = ParentWindow + MyStr
End If
End FunctionOneTask.reg : команда на выполнение regedit /s d:\script\onetask.reg.
Если этот reg-файл выполнен, то при закрытии приложения происходит нормальное завершение скрипта.
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Slav\OneTask]
"StopApplication"=dword:00000001Да и еще - хотите я скажу как из того же notepad запустить что угодно? Вы эту проблему до сих пор не решили
Почему не решили, ведь был предложен вариант отключения запуска приложений через локальные политики безопасности плюс проверка размера файла. Тем более на терминальном компьютере можно повыкидывать все лишнее и запускать будет особо нечего
Интересно, а что будет если окно основного приложения сделать дочерним по отношению к окну SysListView32 Рабочего стола (без удаления проводника, конечно-же)?
]]>...
Вы бы сами попробовали что ли, а то Вы пока как-то беспредметно рассуждаете (перед этим желательно заиметь какой-нибудь LiveCD, чтобы вернуть стандартный shell).
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 0VBA-функция (сохранить в 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Если это не совсем оффтоп, то прошу пояснить последнюю мысль. Отнюдь не спора ради, а исключительно с целью самообразования. Что собственно имеется ввиду?
Доберусь до терминала, опишу подробно.
OFF:
если это камешек в мой огород - то напрасно.
Slav, разве я упоминал кого-то конкретно?
Подменяйте на здоровье что угодно чем угодно. Так жизнь приобретет новые краски - особенно для пользователей. Корячиться -то ведь им в конце концов.
Вы бы сами попробовали что ли, а то Вы пока как-то беспредметно рассуждаете (перед этим желательно заиметь какой-нибудь LiveCD, чтобы вернуть стандартный shell).
]]>так и не понял, почему могу реализовать "деактивацию" кнопки "закрыть", но не могу "деактивировать кнопку "свернуть".
Вот пример на АНК, который запускает Блокнот, ждёт появления его окна и деактивирует кнопку "Свернуть".
WS_MINIMIZEBOX = 0x20000
Run, notepad.exe
WinWait, Безымянный - Блокнот
WinSet, Style, -%WS_MINIMIZEBOX%, Безымянный - Блокнот...
P.S. На всякий случай, для любителей поспорить насчёт кривости и глючности «подмены shell'а», добавлю, что аналогичным же образом реализуется сеанс на сервере терминалов с назначенным приложением в качестве задачи.
alexii,
если это камешек в мой огород - то напрасно. Подменяйте на здоровье что угодно чем угодно.
Так жизнь приобретет новые краски - особенно для пользователей. Корячиться -то ведь им в конце концов.
Если это не совсем оффтоп, то прошу пояснить последнюю мысль. Отнюдь не спора ради, а исключительно с целью самообразования. Что собственно имеется ввиду?
Спасибо.
]]>Подход, я думаю, у Вас верный. Я бы так и делал: скомпилированный скрипт на AHK/AutoIt, который загружается в качестве shell'а вместо Проводника. Этот скрипт запускает требуемое приложение, дожидается появления окна запущенного приложения, блокирует функции сворачивания/закрытия (и чего ещё потребуется); далее он следит за запущенным приложением (я не уверен насчёт закрытия, но можно в скрипте предусмотреть, что при закрытии отслеживаемого приложения происходит его повторный запуск из скрипта по вышеописанному варианту).
Правда, опять не очень понятно, что делать, если Ваше приложение (СПС ГАРАНТ) использует вышеуказанные Common Dialog Controls.
P.S. На всякий случай, для любителей поспорить насчёт кривости и глючности «подмены shell'а», добавлю, что аналогичным же образом реализуется сеанс на сервере терминалов с назначенным приложением в качестве задачи.
]]>