| View previous topic :: View next topic |
| Author |
Message |
aLexx
Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк
|
 (Separately) 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] |
|
| Back to top |
|
 |
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Mon Dec 31, 2007 03:09 Post subject: |
|
|
aLexx
Задай небольшую паузу после cm_SearchFor. Вероятно, ты передаешь Delеte, когда окно поиска еще не поднялось.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
aLexx
Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк
|
| (Separately) Posted: Mon Dec 31, 2007 18:30 Post subject: |
|
|
Сказать честно, у меня была пауза в 100 мс.
Поставил в 200, всё поехало как надо! |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
