| View previous topic :: View next topic |
| Author |
Message |
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
 (Separately) Posted: Sun Nov 18, 2012 16:05 Post subject: Групповая замена иконок в видео файлах |
 |
|
За время изучения различных тонкостей (программ, настроек и памяток) накопилось много небольших видео роликов, сохраненных в exe формат, - он предпочтителен формату swf, flv, и UVF поскольку не требует установки плееров, и главное занимает небольшой объем.
Интересует возможность замены иконок в видео роликах созданных в программе UVScreenCamera и сохраненных в exe формате.
С помощью программы Resource Hacker можно без проблем изменить иконку в одном файле.
Но для нескольких файлов - без скрипта не обойтись.
Для удобства обработки (например) - их можно переименовать в окончание _01.exe И выделив нужное - разом заменить все иконки, - находящиеся в отдельной папки и имеющие такие же имена (_01.ico, _02.ico и т.д)
В общем, пока это только мечты, - но если это возможно, буду Признателен.
Спасибо |
|
| Back to top |
|
 |
MVV
Joined: 15 Oct 2009
Posts: 4815
Location: Ростов-Дон
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Nov 18, 2012 17:22 Post subject: |
|
|
MVV
Выше была моя наводка, но речь идёт о списке, а не одном файле.
shveicar
В общем, если не особо заморачиваться, то вот: | Code: | '==========================================================================
' Присвоить иконки exe-файлам, созданным программой UVScreenCamera
' Имя обрабатываемого exe-файла: <название>_<базовое имя ico-файла>.exe
' Параметры: "<папка с exe-файлами>" <флаг создания bak-файлов>
' Примеры: "%P" | "C:\Скринкасты" 1
'==========================================================================
With WScript.Arguments
Path = .Item(0) : If .Count > 1 Then NF = .Item(1)
End With : Dim WSH : Set WSH = CreateObject("WScript.Shell")
CP = WSH.Environment("Process")("COMMANDER_PATH")
'=========================== Путь к ResHacker =============================
RH = """" & CP & "\Utils\Resource Hacker\ResHacker.exe"""
'======================== Путь к папке с иконками =========================
ID = CP & "\Icons\UVSC\"
'==========================================================================
With CreateObject("Scripting.FileSystemObject")
For Each F in .GetFolder(Path).Files
BN = .GetBaseName(F) : UL = InStrRev(BN, "_")
If UL Then
PFix = Mid(BN, UL + 1)
If LCase(.GetExtensionName(F)) = "exe" And .FileExists(ID & PFix & ".ico") Then
If NF = 1 Then .CopyFile F, F & ".bak", 1 : WSH.SendKeys "^R" : End If
WSH.Run RH & " -modify """ & F & """,""" & F & """,""" &_
ID & PFix & ".ico"",ICONGROUP,MAINICON,1049",, True
End If
End If
Next
End With : Set WSH = Nothing : WScript.Quit |
|
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Tue Nov 20, 2012 12:39 Post subject: |
|
|
Flasher
Спасибо.
Но при применении скрипта - вообще ничего не происходит(пути проверил), - может дело в версии UVSC?
на всякий случай пользуюсь этой версией .
P.s Попробовал переименовать имена видео файлов в упрощенный вид- например:
видео файл h_1 иконка имеет имя 1.ico
Скрипт стал выдавать ошибку - строка 24 символ 9. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Nov 20, 2012 15:28 Post subject: |
|
|
shveicar
Надо не программу скидывать, а скринкаст (максимально короткий). |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Tue Nov 20, 2012 21:46 Post subject: |
|
|
| Quote: | | Надо не программу скидывать, а скринкаст (максимально короткий) |
Хорошо, вот- результат |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Nov 20, 2012 21:50 Post subject: |
|
|
| Не понял. Это что? |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Tue Nov 20, 2012 23:18 Post subject: |
|
|
| Quote: | | Не понял. Это что? |
Если нужен - сам видео ролик, то он здесь |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed Nov 21, 2012 07:16 Post subject: |
|
|
Сперва хотел сказать, зачем было записывать действия, нужен был любой ролик (хоть в в пол секунды) для теста, увидев же параметры кнопки, понял, что не зря записан. shveicar, уже столько примеров похожих приводилось, и всё объяснять надо?
В след. раз делаем всё по 3-й части памятки (уже поднадоело в час по чайной ложке информацию выуживать), раз самостоятельно не получается найти проблемное направление. Без обид. |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Wed Nov 21, 2012 19:26 Post subject: |
|
|
| Quote: | уже столько примеров похожих приводилось, и всё объяснять надо?
|
Дело не в примерах, до этого - проверял и с параметром "%P"(пунктуальности ради)
подвело то, что нет - авто обновления, после применения, вот и подумал что ничего не происходит, - об этом и сообщал выше. У всех скриптов свои тонкости, - кроме пожалуй параметров...
Спасибо за помощь.
Last edited by shveicar on Thu Nov 22, 2012 03:37; edited 1 time in total |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed Nov 21, 2012 20:32 Post subject: |
|
|
shveicar
Это проблема ТС, увы, Гислеру предлагаю написать.
И указанный параметр, ко всему прочему, в кавычках должен быть. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Nov 22, 2012 18:49 Post subject: |
|
|
shveicar
Если переименовывать результирующие файлы в ТС, то иконки в панели меняются. Я попробовал то же самое делать в скрипте, но иконки почему-то меняются криво, середина на половину. Если менять только у одного файла, то вроде без проблем. В общем, пока не знаю.. |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Thu Nov 22, 2012 19:43 Post subject: |
|
|
| Quote: | но иконки почему-то меняются криво
|
Помогает переименование файла после замены - после этого иконка изменяется. Может дело в именах, - проверял с форматом вида:(h_1, g_2 и т.д). Или все таки, нужны составные иконки? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Nov 22, 2012 20:03 Post subject: |
|
|
| shveicar wrote: | | после замены |
Естественно, после. Иначе - смысл?
| shveicar wrote: | | Или все таки, нужны составные иконки? |
Не суть какие, с любыми так. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
