51Testing软件测试论坛

标题: QTP执行完之后怎样自动在执行一个脚本 [打印本页]

作者: qijunhaha 时间: 2008-8-21 16:42
标题: QTP执行完之后怎样自动在执行一个脚本
QTP执行完之后怎样自动在执行一个脚本啊?
我的脚本为temp.vbs
内容是:
dim WshShell
dim s

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "cmd"
WshShell.AppActivate"c:\windows\system32\cmd.exe"
WScript.Sleep 200

WshShell.SendKeys"ftp localhost"
WshShell.SendKeys"{ENTER}"
WshShell.AppActivate"ftp.exe "
WshShell.SendKeys"toptea"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"toptea"
WshShell.SendKeys"{ENTER}"

'读文件
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("D:\QTP\Tests\ChinaMobileBOMC\put.txt", 1)
s = ts.ReadLine
ts.Close

'在远程生成文件夹并改变远程目录到新建文件夹下
WshShell.SendKeys"mkdir "+s
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"cd "+s
WshShell.SendKeys"{ENTER}"

WshShell.SendKeys"put D:\QTP\Tests\ChinaMobileBOMC\"+s+"\Report\Results.xml" '上传本地文件到远程
WshShell.SendKeys"{ENTER}"

WshShell.SendKeys"bye"
WshShell.SendKeys"{ENTER}"

请问应该怎样可以使这个脚本在QTP运行结束的时候自动被调用啊?

作者: zte_boy 时间: 2008-8-21 18:42
那你需要行建立个vbs，用它来启动QTP测试，完成后再调用这个函数

作者: xiaonan 时间: 2008-8-22 09:10
ExecuteFile("F:\temp.vbs")

作者: qijunhaha 时间: 2008-8-22 09:31
标题: aaaa
请问这句ExecuteFile("F:\temp.vbs")应该加在什么地方啊?

作者: zhuyuancan 时间: 2008-8-22 10:29
脚本开头

作者: qijunhaha 时间: 2008-8-22 13:02
你是指写在expert view里吧......

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)