CWind 1.4

어플리케이션 자동화 테스트 패키지 'CWind' 1.4 입니다.

package require cwind

exec $env(COMSPEC) /c start wordpad.exe &
::cwind::waitwind {*WordPad} 10
::cwind::send {Hello World!} |RET|
after 1000
::cwind::send |CTRL+| a |CTRL-|
after 1000
::cwind::send |CTRL+| c |CTRL-|
after 1000
set clip [::cwind::getcb]
after 1000
::cwind::send |END| |CTRL+| v |CTRL-|
after 1000
::cwind::send |ALT+| h |ALT-| a
after 1000
::cwind::send |ALT+| |SNAP| |ALT-|

exec $env(COMSPEC) /c start mspaint.exe &
::cwind::waitwind {*Paint} 10
::cwind::send |ALT+| e |ALT-| p

exit

cwind14.zip

0.01MB

cwind14src.zip

0.17MB