aLexx
|
 Posted: Sat Jun 23, 2007 21:39 Post subject: |
 |
|
OK 
А вот ещё на скорую руку слепил скриптик, осуществляющий поиск файлов, разных по имени,
но одинаковых по содержанию (соответственно, и по размеру):
| Code: |
' File: FindEqual.vbs
' Description: Поиск одинаковых файлов
' Requirements: WSH Helper for TC by Volniy
' Copyright: (c) 2007, aLexx
Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_SearchFor", False
TCS.SendKeystroke "{DELETE}" 'Очищаем строку "Искать файлы"
'TCS.SendKeystroke "{^TAB}"
TCS.SendKeystroke "{TAB 8}" 'Переход на вкладку "Дополнительно"
TCS.SendKeystroke "{RIGHT}"
TCS.SendKeystroke "{TAB 5}" 'Переход на чек-бокс "Поиск дубликатов"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{TAB}" 'Переход на чек-бокс "по имени"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{TAB 2}" 'Переход на чек-бокс "по содержимому"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit
|
По идее, в заремованной строке должно эмулироваться нажатие "CTRL+TAB", но почему-то не пашет... 
Пришлось вводить восемь TAB'ов и вправо, что бы перейти на вкладку "Дополнительно".
Что я делаю не так? |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
