[Bodya.N]

Где-то примерно так

Код:

;#include <Process.au3>

Global $Title='Новая панель инструментов - Выбор папки'
       $String='%appdata%\Microsoft\Internet Explorer\Quick Launch'
;       $file='Windows6.1-KB979155-x86.msu' ;Файл должен находиться рядом со скриптом

;FileCopy ( @ScriptDir & '\' & $file, @WindowsDir & '\Temp',1 )
;_RunDos("start /wait wusa.exe %Windir%\Temp\Windows6.1-KB979155-x86.msu /quiet /norestart")
;FileDelete ( @WindowsDir & '\Temp' & '\' & $file )

MouseClick ( "Right", 0, 6000, 1);Вызываем контекстное меню Панели задач
Send("{DOWN}")
Send("{Right}")
Send("{UP}");Переходим к строчке "Создать панель инструментов"
Send("{Enter}")
WinWait ( $Title)
WinActivate($Title)
WinWaitActive ( $Title);Дожидаемся окна "Выбора папки"
ControlSend($Title, "", "", $String);Вводим путь к "Quick Launch"
ControlClick ( $Title, "", "[CLASS:Button; INSTANCE:1]" );Жмем "Выбрать"
MouseClick ( "Right", 0, 6000, 1);Вызываем контекстное меню Панели задач после создания "Quick Launch"
Send("{UP 2}");Переходим к строчке "закрепить панель задач"
Send("{Enter}");Снимаем галочку
ControlClick ( "", "Quick Launch" , "[CLASSNN:ToolbarWindow323]", "right" );Вызываем контекстное "Quick Launch"
Send("{DOWN 3}");Переходим к строчке "Показывать подписи"
Send("{Enter}");Снимаем галочку
ControlClick ( "", "Quick Launch" , "[CLASSNN:ToolbarWindow323]", "right" )
Send("{DOWN 4}");Переходим к строчке "Показывать заголовок"
Send("{Enter}");Снимаем галочку
ControlClick ( "", "Quick Launch" , "[CLASSNN:ToolbarWindow323]", "right" )
Send("{UP 2}");Переходим к строчке "закрепить панель задач"
Send("{Enter}");Закрепляем Панель задач

[Smarty]

Bodya.N, ОК, панель создается.
Как теперь решить второй этап задачи?
Панель появляется около часов, как и должно быть.
Можно ее переместить к кнопке Пуск и убрать опции "Показывать подписи" и "Показывать заголовок"?

[Bodya.N]

Smarty

убрать опции "Показывать подписи" и "Показывать заголовок" »

в скрипте реализовано(обновил скрипт,добавил коментарии) у меня работает,главное чтобы панель еще небыла создана иначе действия скрипта непредсказуемы.Но так как (я думаю) скрипт будет отрабатывать при первом входе в систему

автоматическое создание панели при установке системы. »

,то проблем возникнуть не должно(для уверенности можно добавить блокировку мыши и клавиатуры).
А вот

переместить к кнопке Пуск »

"пока" под вопросом ,можно ли вообще это сделать средствами AutoIt .Будем думать...

[Smarty]

Bodya.N,

[Bodya.N]

Вообщем Smarty вот такое наколдовал

Код:

#NoTrayIcon

#include <Misc.au3>

Global $Title='Новая панель инструментов - Выбор папки'
       $String=' %appdata%\Microsoft\Internet Explorer\Quick Launch'

If @OSType="WIN32_NT" Then BlockInput(1)

;========================================================================================
;========================== Создание Панели =============================================
;========================================================================================

MouseClick("Right",0,6000,1)
Send("{DOWN}")
Send("{Right}")
Send("{UP}")
Send("{Enter}")
WinWait($Title)
WinActivate($Title)
WinWaitActive($Title)
ControlSend($Title,"","Edit1",$String)
ControlClick($Title,"","[CLASS:Button; INSTANCE:1]")
MouseClick("Right",0,6000,1)
Send("{UP 2}")
Send("{Enter}")

;========================================================================================
;========================== Операции по перемещению Панели ==============================
;========================================================================================

$coords=WinGetPos("","Выполнение приложений")
_MouseTrap($coords[0],$coords[1])
MouseDown("left")
MouseMove($coords[0],$coords[1]-42)
MouseUp("left")
MouseMove(0,0)
Sleep(500)
MouseClick("right")
Send("{DOWN 3}")
Send("{Enter}")
Sleep(500)
$coords2=ControlGetPos("","Выполнение приложений","[CLASS:MSTaskListWClass; INSTANCE:1]")
_MouseTrap($coords2[0]-10,$coords2[1]+@DesktopHeight-70)
Sleep(1000)
MouseDown("left")
Sleep(500)
MouseMove($coords2[0]-10,$coords2[1]+@DesktopHeight,60)
MouseUp("left")
MouseClick("left",$coords2[0]-10,$coords2[1]+@DesktopHeight-70,2)
MouseMove($coords2[0]-10,$coords2[1]+@DesktopHeight-10,60)
MouseDown("left")
MouseMove($coords2[0]+50,$coords2[1]+@DesktopHeight-50,60)
MouseMove($coords2[0]-10,$coords2[1]+@DesktopHeight-70)
MouseUp("left")
MouseDown("left")
MouseMove($coords2[0]-10,$coords2[1]+@DesktopHeight,60)
MouseMove($coords[0],$coords[1]-42)
MouseUp("left")
MouseDown("left")
MouseMove($coords[0],$coords[1])
MouseUp("left")

;========================================================================================
;========================== Настройка Панели ============================================
;========================================================================================

ControlClick("","Quick Launch","[CLASSNN:ToolbarWindow323]","right")
Send("{DOWN 3}")
Send("{Enter}")
ControlClick("","Quick Launch","[CLASSNN:ToolbarWindow323]","right")
Send("{DOWN 4}")
Send("{Enter}")
ControlClick ("","Quick Launch","[CLASSNN:ToolbarWindow323]","right")
Send("{UP 2}")
Send("{Enter}")

;========================================================================================

BlockInput(0)

Тестировал на WIN 7 (7600) при разных разрешениях экрана.

[Smarty]

Bodya.N,

PHP код:

#include <Misc.au3> 

хде?

[Bodya.N]

В папке "Include" каталога с установленной AutoIt (у меня 3.3.6.1).Если вдруг нету прикрепляю (для работы скрипта нужно чтобы лежала либо в "Include" либо рядом со скриптом)

[Smarty]

Bodya.N, получилось что-то типа макроса, да?
Боюсь при установке системы этот скрипт не отработается...
Но, всё равно - спасибо за потраченное время!
Надо искать какой-то другой путь или бросить затею...

В конце концов, отрицательный результат - тоже результат!

[Bodya.N]

при установке системы »

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