Tol!k
|
 Posted: Fri Jan 22, 2010 16:08 Post subject: |
 |
|
| Code: | ' File: Ico2DLL.vbs
' Description: Упаковывает все *.icо из указанной папки в одну библиотеку
' Parameters: "%P" "D:\Папка с иконками" "C:\Крутая библиотека.dll"
' Installation: Создайте для скрипта, например, кнопку на панели TC
' Requirements: WSH Helper for TC by Volniy + ICLRead by Progman13
' Autor: Tol!k
Option Explicit
Dim TCS, HomeSweetHome, IcoFolder, OutDLL
If WScript.Arguments.Count < 3 Then
MsgBox "Маловато аргументов...", vbExclamation, "Ошибка"
WScript.Quit()
End If
HomeSweetHome = WScript.Arguments(0)
IcoFolder = WScript.Arguments(1)
OutDLL = WScript.Arguments(2)
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendKeystroke "+{RIGHT}"
TCS.SendKeystroke "cd " & IcoFolder & "{ENTER}"
TCS.SendCommand "cm_SpreadSelection", False
TCS.SendKeystroke "*.ico{ENTER}"
TCS.SendCommand "cm_PackFiles", False
TCS.SendKeystroke "icl:" & OutDLL & "{ENTER}"
TCS.Pause=2000
TCS.SendKeystroke "+{RIGHT}"
TCS.Pause=100
TCS.SendKeystroke "cd " & HomeSweetHome & "{ENTER}"
Set TCS = Nothing
WScript.Quit
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
