Tol!k
|
Posted: Thu Nov 12, 2009 13:44 Post subject: |
|
|
Code: | ' File: FirstThree.vbs
' Description: Фильтр xxx*
' Parameters: %N
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели TC
' Autor: Tol!k
Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
If WScript.Arguments.Count = 0 Then
MsgBox "Смотри, куда курсор ставишь!", vbExclamation, "Окосел?"
WScript.Quit()
End If
TCS.Pause = 100
TCS.SendCommand "cm_SrcUserDef", False
TCS.SendKeystroke Left(WScript.Arguments(0), 3) & "*"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit |
Last edited by Tol!k on Sat Nov 21, 2009 19:21; edited 5 times in total |
|