QTP自动打开记事本程序

'创建Wscript的Shell对象
Set  Txt=CreateObject("Wscript.Shell")
'通过shell对象的run方法启动记事本程序
Txt.Run"notepad"
'记事本打开后输入内容：第一个自动化tes
Window("记事本").WinEditor("Edit").Type "第一个自动化test"
'关闭当前窗口
Window("记事本").Close
'不保存
Window("记事本").Dialog("记事本").WinButton("否(N)").Click