Tol!k
|
 Posted: Wed Jun 09, 2010 23:15 Post subject: |
 |
|
| Mailk wrote: | | какой нибуть автоматизации |
| Code: | ' Description: Выбор шаблона изменения атрибутов
' Parameters: Номер шаблона
' Requirements: WSH Helper for TC by Volniy
Option Explicit
Dim TCS, Preset
Set TCS = CreateObject("TCScript.Helper")
If WScript.Arguments.Count <> 1 Then
MsgBox "Нужен номер шаблона", vbExclamation, "Параметры"
WScript.Quit()
End If
TCS.SendCommand "cm_SetAttrib", False
TCS.SendKeystroke "{F2}"
For Preset=1 To WScript.Arguments(0)
TCS.SendKeystroke "{DOWN}"
Next
TCS.SendKeystroke "{DOWN 3}{ENTER}"
Set TCS = Nothing
WScript.Quit() |
| Flasher wrote: | | Ждёмс ещё.. |
jpg-comment
Media
wdx4i |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
