2012年给力新作《精通QTP——自动化测试技术领航》试读以及答疑专用贴

lmj19851117 · 发表于 2012-11-13 17:21:32

YU老师，问个问题，我运行202页那个脚本时，
step1--------------------------------------------
systemutil.Run "www.51testing.com"
Browser("micClass:=Browser").Navigate "bbs.51testing.com"
Browser("micClass:=Browser").Page("micClass:=Page").Sync:Wait 1
checkURL=TRIM(Browser("micClass:=Browser").Object. LocationURL)
msgbox checkURL
If checkURL="http://bbs.51testing.com/" Then
Reporter.ReportEvent micPass,"step 1","pass"
else
Reporter.ReportEvent micFail ,"step 1","faile"
End If
在这一段：checkURL=TRIM(Browser("micClass:=Browser").Object. LocationURL)
报General run error错误。什么地方错了啊？

lmj19851117 · 发表于 2012-11-13 21:32:34

余老师，帮忙看下下面这段代码：
'Step 1--------------------------------------------
systemutil.Run "www.51testing.com"  '启动IE并进入指定网站
Browser("micClass:=Browser").Navigate "http://bbs.51testing.com/" '在当前窗口中直接跳转到其它网页
Browser("micClass:=Browser").Page("micClass:=Page").Sync:Wait 1 '保证当前页面的工作完全结束，然后再去做后续的事情
'checkpoint start -------------------------------------->
'通过自身属性借口获取当前浏览器的URL用于STEP 1的验证
checkURL=TRIM(Browser("micClass:=Browser").Object. LocationURL)
'msgbox checkURL
if  checkURL="http://bbs.51testing.com/" Then
Reporter.ReportEvent micPass,"step 1","pass"
else
Reporter.ReportEvent micFail ,"step 1","faile"
End If
'end of checkpoing <-----------------------------------------

'Step 2---------------------------------------------------------------------------
Browser("micClass:=Browser").OpenNewTab
testHWND=Browser("name:=导航已取消").GetROProperty("hwnd")
'msgbox testHWND
Browser("name:=导航已取消").Navigate "bbs.51testing.com"

'step 3 -------------------------------------------------------------------------------
Browser("51Testing软件测试论坛_首页").Page("51Testing软件测试论坛_首页").Link("登录").Click
With Browser("51Testing软件测试论坛_首页").Page("51Testing软件测试论坛_登陆界面")
         .WebEdit("username").Set "lmj19851117"
         .WebEdit("password").Set "lmj19851117"
         .WebButton("登录").Click
End With
'checkpoint start------------------------------->
oExist=Browser("51Testing软件测试论坛_首页").Page("51Testing软件测试论坛_首页").Link("退出").Exist
If oExist Then
Reporter.ReportEvent micPass ,"step 3","pass"
else
Reporter.ReportEvent micFail,"step 3","faile"
End If
'end of checkpoint  <---------------------------------

'step 4 ---------------------------------------------------
'msgbox testHWND

Browser("hwnd:="&testHWND).Close
Browser("micClass:=Browser").Refresh:wait 1
'checkpoint start------------------------------->
oExist=Browser("51Testing软件测试论坛_首页").Page("51Testing软件测试论坛_首页").Link("退出").Exist
If oExist Then
Reporter.ReportEvent micPass ,"step 4","pass"
else
Reporter.ReportEvent micFail,"step 4","faile"
End If
现在的问题是在执行Step3的登录步骤时，为什么会跑到第一个选项卡去登录，而不是第二个选项卡？

yujie6832 · 发表于 2012-11-14 15:10:36

回复 404# zz45509

好的，我跟小赵商量商量，如何去把最后一章写的更好，下一版本更新上去

yujie6832 · 发表于 2012-11-14 15:20:28

回复 405# malasyan

饿，这个是小赵写的，我跟他说过的，可能他比较忙，没上来看吧，我再跟他说下，不好意思

zzxxbb112 · 发表于 2012-11-14 15:37:20

回复 398# malasyan

我这边试了啊，利用for循环没有任何问题呢，count也是2

脚本如下：

sqlConnection = "DSN=Excel Files;DBQ=D:\1.xlsx"
sqlCommand = "select * from [Sheet1$]"
Set oExcel = CreateObject("adodb.connection")
oExcel.Open sqlConnection
Set oRst= oExcel.Execute(sqlCommand)
For i=1 To oRst.Fields.Count

MsgBox oRst.Fields.Item("username").Value
oRst.MoveNext

Next

yujie6832 · 发表于 2012-11-14 16:11:53

回复 407# lmj19851117

因为你获取的是第一个TAB的HWND，虽然你已经OPEN NEW TAB了，这个OPEN NEW TAB的问题很多人都问过，这边我的确不知道为什么，可能是环境问题，但是我在写代码的时候，在我的机器上是没有问题的，还有关于你之前的问题，我看了下，似乎没有什么问题，有时候报GENERAL ERROR的错误，QTP指向第几行是种假象，不一定就是这句出错

malasyan · 发表于 2012-11-15 11:17:10

本帖最后由 malasyan 于 2012-11-15 11:19 编辑

回复 410# zzxxbb112

老师我明白了,我写的是
sqlCommand = "select username from [Sheet1$]"
我是只想选这一列,然后得出这一列的行数,因为我的表中,每一列的行数都不同.

没想到这样写是无效的...

shenjun · 发表于 2012-11-15 23:25:55

希望此类技术书籍以后能够附赠光盘，谢谢！

yujie6832 · 发表于 2012-11-16 16:58:27

回复 413# shenjun

你好，我们是存心不赠送光盘的，前言里有写了原因，赠送光盘就没人一行行打代码啦，呵呵

Circleyq · 发表于 2012-11-19 11:38:30

下一版本的书籍什么时候更新？

flybird26 · 发表于 2012-11-19 12:03:18

楼主你好，前不久刚买了你的书，目前正在学习中。看到1.4的练习题二，有一点疑问。句8始终报错，提示找不到Link("关闭")，我在网页上也找了很久，也没有找到。是网站改版了吗？
盼回复FLYBIRD26@HOTMAIL.COM

谢谢！

yujie6832 · 发表于 2012-11-20 14:44:08

回复 416# flybird26

更新你的对象库，重新抓下对象

yongfeiuall · 发表于 2012-11-20 16:22:33

回复 yujie6832

杰哥你好，
在“自定义验证点-HTML模式”中，为什么检查enable, visible，checked 属 ...
yongfeiuall 发表于 2012-7-10 09:13

这个问题已经解决， VerifyProperty方法，怎么检查list里边的内容呢？因为实际结果有个换行的显示，预期结果该如何填写呢？我怎么设置都没成功，请提示一下呗？多谢。

yujie6832 · 发表于 2012-11-21 17:06:27

今天意外地收到一则好消息，我们的这本《QTP自动化测试技术领航》居然有幸在CSDN的《2012年最具有技术影响力原创图书评选》里被提名了，一共有30本书进入本次提名的最后一轮。在这里希望广大喜欢这本书的朋友能抽出1分钟的时间帮我们投下票，如果还没注册的朋友可能会花上5分钟的时间，也算是对我们的一种鼓励和支持，多谢！我们没想过得第一，希望能让测试书籍进入前10吧：)
投票地址：http://special.csdn.net/choose2012/yc.html