View previous topic :: View next topic |
Author |
Message |
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 01:26 Post subject: |
|
|
мы про этот скрипт говорим или про этот
у меня второй. Давайте сначала? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 01:38 Post subject: |
|
|
angry_dog
Мы говорим уже, естественно, о последнем. |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 01:53 Post subject: |
|
|
Уф, догнал что куда вставлять.
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\456.vbs
Строка: 12
Символ: 2
Ошибка: Требуется объект: ''
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript
Но я начал "с чистого листа" Замены с предыдущей странице делать? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 01:57 Post subject: |
|
|
12 строка такая: Code: | Set WSH = WScript.CreateObject("WScript.Shell") | См. оригинал.
angry_dog wrote: | Замены с предыдущей странице делать? | А как же? |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 12:40 Post subject: |
|
|
Flasher wrote: | 12 строка такая: |
У меня это 14 строка.
Flasher, не сочтите за наглость посмотрите мой скрипт, что я там наблудил?
http://rghost.ru/22574831 |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 18:15 Post subject: |
|
|
А как же то, с чего начали? Без этого и смысла не имело.
В данном случае уже замена производится, естественно, только на 4 последние строки из 6. |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 18:54 Post subject: |
|
|
1.начало выполнил, заменил блок
2.нашел строку: Dim StartMenuPath, UnknowTypeIcon
3.добавил в неё: , AppData, ProgramData
4.получилось: Dim StartMenuPath, UnknowTypeIcon, AppData, ProgramData
5.Под неё следуя контексту поста поместил:
AppData = WSH.Environment("Process")("APPDATA")
ProgramData = WSH.Environment("Process")("ProgramData")
6.Вроде всё правильно сделал?
7.ошибка:
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 12
Символ: 2
Ошибка: Требуется объект: ''
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
--------------------------- |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 18:58 Post subject: |
|
|
angry_dog
Дык я тут же написал, куда вставлять. А вижу, что не туда. |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 19:45 Post subject: |
|
|
Вытянул кнопку на панель инструментов, нажимаю.... нет ошибок!! Это плюс! Но и не происходит ничего - это минус.))) Подозреваю что d параметрах нужно прописать "0". Прописываю - ошибка |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 20:43 Post subject: |
|
|
Т.е. файл startmenu.bar в каталоге TC не создаётся?
Что за ошибка? |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 21:19 Post subject: |
|
|
если в параметрах прописать "0"
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 66
Символ: 4
Ошибка: Переменная не определена: 'AUMM'
Код: 800A01F4
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
--------------------------- |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 21:27 Post subject: |
|
|
Понял, там он названия переменных поменял.
Нужно было вместо этого
Code: | Set AUSM = FSO.GetFolder(WSH.ExpandEnvironmentStrings("%ALLUSERSPROFILE%") & "\Start Menu")
Set CUSM = FSO.GetFolder(WSH.ExpandEnvironmentStrings("%USERPROFILE%") & "\Start Menu")
Set AUSP = FSO.GetFolder(WSH.ExpandEnvironmentStrings("%ALLUSERSPROFILE%") & "\Start Menu\Programs")
Set CUSP = FSO.GetFolder(WSH.ExpandEnvironmentStrings("%USERPROFILE%") & "\Start Menu\Programs") | вставить
Code: | Set AUSM = FSO.GetFolder(ProgramData & "\Microsoft\Windows\Start Menu")
Set CUSM = FSO.GetFolder(AppData & "\Microsoft\Windows\Start Menu")
Set AUSP = FSO.GetFolder(ProgramData & "\Microsoft\Windows\Start Menu\Programs")
Set CUSP = FSO.GetFolder(AppData & "\Microsoft\Windows\Start Menu\Programs") |
|
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 21:30 Post subject: |
|
|
Поменял. Ошибка
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\789.vbs
Строка: 181
Символ: 4
Ошибка: Разрешение отклонено
Код: 800A0046
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
--------------------------- |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 21:54 Post subject: |
|
|
Quote: | Чтобы были выпадающие подменю, нужно для каждой папки формировать bar-файл. По умолчанию (см. переменную в скрипте) они кладутся в %COMMANDER_PATH%\Bars. |
|
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 21:54 Post subject: |
|
|
Flasher
а у Вас работает? |
|
Back to top |
|
|
|