载入书上的脚本报错，求指导

shunchen07 · 发表于 2012-7-9 17:36:41

我装的是QTP10，运行一本书上的脚本，发现报错，可能是书上版本不一样。先后报了2个错，很是纠结，请大家看看为什么该如何解决

AntonioNikki · 发表于 2012-7-12 13:52:53

确实缺少插件，第一个是缺少.net

北京测试基地 · 发表于 2012-7-10 09:35:09

你打开的Test这个例子是需要插件的，提示你安装插件。

北京测试基地 · 发表于 2012-7-10 09:34:56

你打开的Test这个例子是需要插件的，提示你安装插件。

打不死的小强 · 发表于 2012-7-9 19:43:38

应该是第二次运行时加载的插件跟第一次不一致导致的吧。。

shunchen07 · 发表于 2012-7-9 17:59:37

回复 2# 云层

书名：QTP自动化测试与框架模型设计
出版者：机械工业出版社
CHINA MACHINE PRESS
http://www.cmpbook.com
黄文高编著
责任编辑：郝建伟
本光盘对应的图书号：ISBN 978-7-111-35003-3
光盘号见盘面
版权所有侵权必究

Dim oShell, oEnvProc, oEnvSys, oItem
Dim arrEnv
Dim nRow : nRow = 1
Set oShell = CreateObject("WScript.Shell")
Set oEnvSys = oShell.Environment("System")
Set oEnvProc = oShell.Environment("Process")
Reporter.ReportEvent micDone, "Sys Count", oEnvSys.Count
Reporter.ReportEvent micDone, "Proc Count", oEnvProc.Count
For Each oItem In oEnvSys
datatable.SetCurrentRow(nRow)
nRow = nRow + 1
arrEnv = Split(oItem, "=")
DataTable("Type", dtGlobalSheet) = "System"
DataTable("Variable", dtGlobalSheet) = arrEnv(0)
DataTable("Value", dtGlobalSheet) = arrEnv(1)
Erase arrEnv
Next
For Each oItem In oEnvProc
datatable.SetCurrentRow(nRow)
nRow = nRow + 1
arrEnv = Split(oItem, "=")
DataTable("Type", dtGlobalSheet) = "Process"
DataTable("Variable", dtGlobalSheet) = arrEnv(0)
DataTable("Value", dtGlobalSheet) = arrEnv(1)
Erase arrEnv
Next
Set oShell = Nothing
Set oEnvProc = Nothing : Set oEnvSys = Nothing

复制代码

shunchen07 · 发表于 2012-7-9 17:56:21

Dim oShell, oEnvProc, oEnvSys, oItem
Dim arrEnv
Dim nRow : nRow = 1
Set oShell = CreateObject("WScript.Shell")
Set oEnvSys = oShell.Environment("System")
Set oEnvProc = oShell.Environment("Process")
Reporter.ReportEvent micDone, "Sys Count", oEnvSys.Count
Reporter.ReportEvent micDone, "Proc Count", oEnvProc.Count
For Each oItem In oEnvSys
datatable.SetCurrentRow(nRow)
nRow = nRow + 1
arrEnv = Split(oItem, "=")
DataTable("Type", dtGlobalSheet) = "System"
DataTable("Variable", dtGlobalSheet) = arrEnv(0)
DataTable("Value", dtGlobalSheet) = arrEnv(1)
Erase arrEnv
Next
For Each oItem In oEnvProc
datatable.SetCurrentRow(nRow)
nRow = nRow + 1
arrEnv = Split(oItem, "=")
DataTable("Type", dtGlobalSheet) = "Process"
DataTable("Variable", dtGlobalSheet) = arrEnv(0)
DataTable("Value", dtGlobalSheet) = arrEnv(1)
Erase arrEnv
Next
Set oShell = Nothing
Set oEnvProc = Nothing : Set oEnvSys = Nothing

复制代码

云层 · 发表于 2012-7-9 17:52:38

第一次看到这样提问题的，真是惊天地泣鬼神，
1.没说啥书
2.没说啥代码
3.就贴了个错误信息

你让别人怎么回答你啊。。。。

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 载入书上的脚本报错，求指导

本帖子中包含更多资源

相关帖子

站长推荐 /1