Вот тут есть подробный мануал по вращению объектов, матрицам, углам Эйлера и кватернионам.
#( Задача_182210112013
\ NoActive
WatchDrive: "X"
SingleInstance
Action:
QUERY: "Режим abc или bcd?"
IF
FOR-FILES: "X:\path\*"
FILE-MOVE: "%FOUND-FULLPATH%" "Z:\path\abc\abc_%FOUND-FILENAME%_%CUR-DATE DATE>S%"
;FOR-FILES
ELSE
FOR-FILES: "X:\path\*"
FILE-MOVE: "%FOUND-FULLPATH%" "Z:\path\bcd\bcd_%FOUND-FILENAME%_%CUR-DATE DATE>S%"
;FOR-FILES
THEN
)##( Задача_131602112013
WatchHotKey: "@F" \ Alt+F
\ NoActive
SingleInstance
: GET-WTEXT \ ( hwnd -- a u ) \ Получить текст окна по его хэндлу. Работает и для дочерних окон
PAD 256 ROT 13 SWAP SendMessageA PAD SWAP
;
Action:
ACTIVE-WINDOW WIN-EXIST? DROP
FOR-CHILD-WINDOWS: "ToolbarWindow32"
WIN-CHILD-HWND GET-WTEXT S" :\" SEARCH IF
1+ SWAP 1- SWAP \ Возвращаем пропущенную букву диска
GET-CUR-TIME \ Обновляем время
WIN-INPUT-TEXT: "Создать файл" "Введите имя файла:" "New_file_%hh%_%mm%_%ss%" 0
IF 2DROP ELSE
S" \" 2SWAP S+ S+ FCREATE
THEN
ELSE 2DROP THEN
;FOR-CHILD-WINDOWS
)##( Задача_131502112013
WatchHotKey: "@F" \ Alt+F
\ NoActive
SingleInstance
: GET-WTEXT \ ( hwnd -- a u ) \ Получить текст окна по его хэндлу. Работает и для дочерних окон
PAD 256 ROT 13 SWAP SendMessageA PAD SWAP
;
Action:
ACTIVE-WINDOW WIN-EXIST? DROP
FOR-CHILD-WINDOWS: "ToolbarWindow32"
WIN-CHILD-HWND GET-WTEXT S" :\" SEARCH IF
1+ SWAP 1- SWAP \ Возвращаем пропущенную букву диска
GET-CUR-TIME \ Обновляем время
FILE-CREATE: "%1 esPICKS%\Newfile_%hh%_%mm%_%ss%"
ELSE 2DROP THEN
;FOR-CHILD-WINDOWS
)#
wusa.exe /uninstall /kb:2882822
wusa.exe /uninstall /kb:2872339
wusa.exe /uninstall /kb:2859537