автоматизация щелчков мыши для apllication

Я создал скрипт vb для автоматизации щелчков мыши для приложения. Скрипт работает все время, но последняя строка не работает. Я действительно смущен, почему бы это сделать, если все остальное работает. Я хочу нажать CTRL + K, но так или иначе это не работает. Вот код. Нужна какая-то помощь. Thanks.1автоматизация щелчков мыши для apllication

Option Explicit 
Dim x 
set x=createobject("wscript.shell") 

x.run"C:\OnBasewebsite\obclnt32.exe" 
wscript.sleep 2000 

x.sendkeys"MANAGER" 

x.sendkeys"{tab}" 

x.sendkeys"PASSWORD" 

x.sendkeys"{enter}" 

wscript.sleep 2000 

x.sendkeys"{TAB}" 

x.sendkeys"{UP}" 

x.sendkeys"{TAB}" 

x.sendkeys"{TAB}" 

x.sendkeys"{TAB}" 

x.sendkeys"{TAB}" 

x.sendkeys"{TAB}" 

x.sendkeys"{TAB}" 

x.sendkeys"{TAB}" 

x.sendkeys"{TAB}" 

x.sendkeys"{TAB}" 

x.sendkeys"*-*" 

x.sendkeys"{enter}" 

x.sendkeys"{TAB}" 

x.sendkeys"{enter}" 

wscript.sleep 1000 

x.sendkeys"{CLICK LEFT,50,60}" 

x.sendkeys"^k"

источник

2013-12-05 user3071761

В точно каким образом это "не работает"? –

Он просто висит там. технический ctrl + k должен вытащить диалоговое окно в приложении, но это не так. – user3071761

Устраните проблему. Отправляйте приложение что-то другое вместо Control-K. Возможно, приложение уже висело, прежде чем пытаться отправить Control-K. Возможно, в качестве диагностики отправьте Control-K в более ранний момент времени. Посмотрите, можете ли вы вообще отправить его. Попробуйте отправить его в другое приложение - что-то вроде этого. –

использовать:

x.sendkeys("^{k}")

на месте

x.sendkeys"^k"

источник

2015-12-05 04:52:48

автоматизация щелчков мыши для apllication

ответ

Смежные вопросы