Set qtapp = CreateObject("QuickTest.Application") qtapp.Launch 启动qtp qtapp.Visible = True 可见状态 qtapp.Test.Actions("Action1").SetScript "msgbox 0" //在action1里写入msgbox 0 代码 qtapp.Test.Run //运行qtp qtapp.Quit //退出qtp Set qtapp = Nothing
以上代码要用vbs来写,文件名也是vbs