aLexx
|
 Posted: Mon Dec 31, 2007 00:36 Post subject: Непостоянный баг с окном поиска файлов. |
 |
|
Частенько приходится запускать следующий скрипт:
| 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.SendCommand ("cm_SearchFor")
TCS.SendKeystroke "{DELETE}" 'Очищаем строку "Искать файлы"
TCS.SendKeystroke "^{TAB}" 'Переход на вкладку "Дополнительно"
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
|
Но периодически, непредсказуемо получаю ситуацию - после выполнения команды "cm_SearchFor"
фокус остаётся на главном окне ТС, а не переходит на окно "Поиск файлов". Иллюстрация:
И все последующие команды нажатия клавиш передаются именно главному окну. В итоге выходит
большая лажа. Причём, если случился этот баг, то при следующем запуске скрипта (или на 2-3
раз) он отрабатывает нормально. Закономерность выловить не удаётся...
Где я не прав в написании скрипта? Или он не причём? А тогда кто виноват?
PS. Картинка оптимизированна с помощью "pngout.exe".[/img] |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
