Tcl & Tk/확장 패키지 (Extension Package)
CWind 1.4
ihmin
2024. 9. 5. 14:03
어플리케이션 자동화 테스트 패키지 '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