来源：蜘蛛抓取(WebSpider)
时间：2015-01-22 10:09
标签：
qtp获取验证码
2995人阅读
QTP支持直接访问DOM（Document Object Model），可以通过DOM来访问HTML标签。在QTP中，访问DOM是通过使用Page测试对象的Object属性来进一步访问的，例如下面的脚本获取到Google主页中的：
On Error Resume Next Set Doc = Browser(&Google&).Page(&Google&).Object ' 循环获取Page中的所有对象For Each Element In Doc.all &&&&&& TagName = Element.TagName '&获取标签名&&&&&&& InnerText = Element.innerText ' 获取inner text. &&&&&& '&把信息写入测试结果&&&&&&& Reporter.ReportEvent 0, TagName, InnerText Next
版权声明：本文为博主原创文章，未经博主允许不得转载。
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：2475718次
积分：36142
积分：36142
排名：第52名
原创：911篇
转载：195篇
译文：96篇
评论：989条
(1)(1)(2)(1)(2)(1)(4)(5)(5)(12)(2)(3)(6)(13)(13)(28)(14)(20)(13)(12)(8)(17)(22)(20)(16)(28)(20)(22)(11)(27)(14)(9)(4)(1)(7)(5)(10)(15)(6)(16)(17)(28)(25)(28)(17)(19)(7)(11)(10)(12)(8)(4)(1)(5)(3)(3)(4)(5)(11)(23)(53)(36)(107)(19)(8)(2)(6)(7)(1)(2)(2)(16)(10)(28)(51)(43)(8)(13)(8)(32)(21)(6)(21)(49)(17)(7)qtp dom获取a标签值_百度知道
qtp dom获取a标签值
&a id=&rp_WorkflowVersion_lkb_Design_0& href=&javascript:__doPostBack('rp_WorkflowVersion$ctl01$lkb_Design','')& WorkflowVersionID=&6d0d7a92-6d00-4086-bf09-3c80020e8ced& Version=&& workflowID=&2b8142dc-16ee-0fb32c4b0f&&
我如何通过dom获取workflowID的值qtp
提问者采纳
先把对象添加到对象库，命名workflow。dom方法如下：Browser(&Browser&).Page(&Page&).Link(&workflow&).Object.getAttribute(&workflowID&)
提问者评价
其他类似问题
为您推荐：
您可能关注的推广
qtp的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁( 16:19:29, 评 0 分)
非常好，很实用由于需要抓起淘宝/天猫 搜索结果的120个宝贝的平均价格，使用qtp来实现。
考虑到可以使用html&
dom&来获取价格和数量元素的属性值。借助firebug查看价格和数量的属性：
再对textcontent 进行字符串处理就可以获取价格了，同理可以获取销售数量的值：
代码如下：
On&error&resume&&next
''Browser(&天猫-尚天猫，就购了&).Page(&天猫-尚天猫，就购了&).WebEdit(&q&).Set&鱼嘴鞋& @@ hightlightid_;_Browser(&天猫-尚天猫，就购了&).Page(&天猫-尚天猫，就购了&).WebEdit(&q&)_;_scriptinfofile_;_ZIP::ssf8.xml_;_
''Browser(&天猫-尚天猫，就购了&).Page(&天猫-尚天猫，就购了&).WebButton(&搜索&).Click@@ hightlightid_;_Browser(&天猫-尚天猫，就购了&).Page(&天猫-尚天猫，就购了&).WebButton(&搜索&)_;_scriptinfofile_;_ZIP::ssf9.xml_;_
'Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了&).Link(&人气&).Click@@ hightlightid_;_Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了&).Link(&人气&)_;_scriptinfofile_;_ZIP::ssf10.xml_;_
'Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了_2&).Link(&下一页&&&).Click@@ hightlightid_;_Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了2&).Link(&下一页&&&)_;_scriptinfofile_;_ZIP::ssf11.xml_;_
iteration&=&environment.value(&TestIteration&)
n&=&cint(iteration)
If&n=<span style="color:#&Then
&&&&reporter.ReportEventmicWarning,&&stop&,&Please stop&
If&n&=&<span style="color:#&Then
Dim&Conn,str,sql,sum,adoRecordsset
Set&outsheet&=&Datatable.AddSheet&(&Output&)'add
a sheet to inport the datawhich&&import fromthe&&DataBase
Set&Conn&=&createObject&(&ADODB.Connection&)
Const&ConnectionString&=&&DSN=@@@@;DATABASE=@@@@@@PWD=@@@@@;PORT=3306;SERVER=@@@@@@.UID=@@@@@@&
Conn.Open ConnectionString
If&Conn.State&&&&<span style="color:#&Then
reporter.ReportEvent micPass,&&link state&,&ConnectSuccess!!&&&&&
reporter.ReportEvent micFail,&&link state&,&Connect Failed!!&
sql&=&&SELECT keyword,tmall_price,date from @@@@@tablewhere keyword in ('女裤','女裤 长裤','女裤裙','哥弟女裤','哈伦女裤','真丝女裤','雪纺女裤')&
Set&adoRecordsset&=&Conn.execute(sql)
For&each&fld&in&adoRecordsset.Fields
datatable.GetSheet(&Output&).AddParameterfld.name,&&
i&=&<span style="color:#
While¬&adoRecordsset.EOF
&&&&For&each&fld&in&adoRecordsset.fields
&&&&&&&&datatable.value(<span style="color:#,&Output&)&=&adoRecordsset(&keyword&).value
&&&&&&&&'atatable.value(2,&Output&)= adoRecordsset(&taobao_price&).value
&&&&&&&&datatable.value(<span style="color:#,&Output&)&=&adoRecordsset(&tmall_price&).value
&&&&&&&&datatable.value(<span style="color:#,&Output&)&=&adoRecordsset(&date&).value
&&&&&adoRecordsset.MoveNext
&&&&&i&=&i&+&<span style="color:#
&&&&&Datatable.SetCurrentRowi&+&<span style="color:#
Set&adoRecordsset&=¬hing
&&&&Conn.Close
Set&Conn&=¬hing
&&&&n&=&cint(iteration)
&&&&k&=&<span style="color:#*n&-&<span style="color:#
&&&&j&=&<span style="color:#*n&-&<span style="color:#
&&&&m&=&<span style="color:#*n
Datatable.SetCurrentRow n
Private&Function&get_Num(a)
b&=&Left(a,len(a)-<span style="color:#)
c&=&right(b,len(b)-<span style="color:#)
get_Num&=&c
End&Function
Browser(&天猫-尚天猫，就购了&).Page(&天猫-尚天猫，就购了&).WebEdit(&q&).Set&DataTable(&keyword&,&&Output&)
inputKW&=&Browser(&天猫-尚天猫，就购了&).Page(&天猫-尚天猫，就购了&).WebEdit(&q&).GetROProperty(&value&)
Browser(&天猫-尚天猫，就购了&).Page(&天猫-尚天猫，就购了&).WebButton(&搜索&).Click
Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了&).Link(&人气&).Click
'iteration =environment(&TestIteration&)
k&=&<span style="color:#*n-<span style="color:#
j&=&<span style="color:#*n-<span style="color:#
m&=&<span style="color:#*n
Datatable.GetSheet(&Action1&).AddParameter&&Price&,&0&
Datatable.GetSheet(&Action1&).AddParameter&&SaleNum&,&0&
Datatable.GetSheet(&Action1&).AddParameter&&Total&,&0&
'SetoDoc2=Browser(&天猫-尚天猫，就购了&).Page(&假发-假发/美容工具-天猫-尚天猫，就购了&).object.getElementsByTagName_r(&em&)
''msgboxoDoc2.length
'For x = 0 TooDoc2.length -1 Step 1
'&&&&text=oDoc2(x).getattribute(&title&)
'&&&&Iftext &&&& Then
'&&&&&&&&z=int(x/2+1)
'&&&&&Datatable.Value(&Price&,&Action1&)=text
'&&&&&&Datatable.SetCurrentRowz
'&&&&EndIf
'' 'msgboxprice
''printprice
Set&oDoc&=&Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了&).object.getElementsByClassName(&productStatus&)
Set&oDoc2&=&Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了&).object.getElementsByClassName(&productPrice&)
fstNum&=&oDoc.length
'msgboxoDoc.lengthget
For&i&=&<span style="color:#&To&oDoc.length-<span style="color:#&Step&<span style="color:#
Datatable.SetCurrentRow i+<span style="color:#&&&&
set&p&=&oDoc(i).firstElementChild
&&&&pp&=&p.textContent
&&&&&pNum&=&get_num(pp)&&'getthe data of the sale numbers
&text&=&oDoc2(i).textContent
&price&=&split(text,&?&)
&rop&=&price(<span style="color:#)
&pop&=&left(rop,len(rop)-<span style="color:#)&'get
the data of theprice
&If&instr(pNum,&万&)&Then
&&&&&pNumsub&=&left(pNum,len(pNum)-<span style="color:#)
&&&&&pNum&=&pNumsub*<span style="color:#000
&sumMoney&=&pop*pNum
Datatable.Value(k,&Action1&)&=&pop
Datatable.Value(j,&Action1&)&=&pNum
Datatable.Value(m,&Action1&)&=&sumMoney
Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了&).Link(&xpath:=/html/body/div[1]/div/div[3]/div/div[4]/p/a&).Click&&'clickthe
link of “下一页” go to the next page
'Browser(&天猫-尚天猫，就购了&).Page(&假发-假发/美容工具-天猫-尚天猫，就购了&).Link(&下一页&&&).Click
'Browser(&天猫-尚天猫，就购了&).Page(&高跟凉鞋 女-时尚女鞋-天猫-尚天猫，就&).Link(&人气&).Click
Set&oDoc3&=&Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了&).object.getElementsByClassName(&productStatus&)
Set&oDoc4&=&Browser(&天猫-尚天猫，就购了&).Page(&鱼嘴鞋-时尚女鞋-天猫-尚天猫，就购了&).object.getElementsByClassName(&productPrice&)
'msgboxoDoc.lengthget
sndNum&=&oDoc3.length
proNumber&=&fstNum&+&sndNum
For&i&=&<span style="color:#&To&oDoc3.length-<span style="color:#&Step&<span style="color:#
Datatable.SetCurrentRow i+<span style="color:#
set&p&=&oDoc3(i).firstElementChild
&&&&pp&=&p.textContent
&&&&&pNum&=&get_num(pp)
&text&=&oDoc4(i).textContent
&price&=&split(text,&?&)
&rop&=&price(<span style="color:#)
&pop&=&left(rop,len(rop)-<span style="color:#)
&&If&instr(pNum,&万&)&Then
&&&&&pNumsub&=&left(pNum,len(pNum)-<span style="color:#)
&&&&&pNum&=&pNumsub*<span style="color:#000
&sum&=&pop*pNum
Datatable.Value(k,&Action1&)&=&pop
Datatable.Value(j,&Action1&)&=&pNum
Datatable.Value(m,&Action1&)&=&sum
&&&&&TotalNum&=&<span style="color:#
&&&&TotalMoney&=&<span style="color:#
For&i&=&<span style="color:#&To&proNumber&Step&<span style="color:#
&&&&rowNum&=&Datatable.GetSheet(&Action1&).GetParameter(j).ValueByRow&(i)
&&&&rowMoney&=&Datatable.GetSheet(&Action1&).GetParameter(m).ValueByRow&(i)
&&&&TotalNum&=&TotalNum&+&rowNum
&&&&TotalMoney&=&TotalMoney&+&rowMoney
Datatable.SetCurrentRow&<span style="color:#2+<span style="color:#*n-<span style="color:#
Datatable.Value&(<span style="color:#,&Action1&)&=&inputKW
Datatable.Value&(<span style="color:#,&Action1&)&=&TotalNum
Datatable.Value&(<span style="color:#,&Action1&)&=&TotalMoney
avgPrice&=&TotalMoney/TotalNum
Datatable.SetCurrentRow&<span style="color:#2+&<span style="color:#*n
Datatable.Value&(<span style="color:#,&Action1&)&=&&TmallAvgPrice&&
Datatable.Value&(<span style="color:#,&Action1&)&=&avgPrice
'下面的代码为淘宝页面商品的价格与数理的抓取
'Browser(&天猫-尚天猫，就购了&).Page(&假发-假发/美容工具-天猫-尚天猫，就购了_2&).Link(&&&).Click@@ hightlightid_;_Browser(&天猫-尚天猫，就购了&).Page(&假发-假发/美容工具-天猫-尚天猫，就购了2&).Link(&&&)_;_script infofile_;_ZIP::ssf4.xml_;_
' Browser(&淘宝网 -淘！我喜欢&).Page(&淘宝网 - 淘！我喜欢&).WebEdit(&q&).Set DataTable(&keyWord&,dtGlobalSheet)
'&&inputword=Browser(&淘宝网- 淘！我喜欢&).Page(&淘宝网 -淘！我喜欢&).WebEdit(&q&).GetROProperty(&value&)
' ' msgboxinputword
'Browser(&淘宝网 -淘！我喜欢&).Page(&淘宝网 - 淘！我喜欢&).WebButton(&&).Click
'iteration=environment.value(&TestIteration&)
'&&&&n=cint(iteration)
'&&&&k=3*n-2
'&&&&j=3*n-1
'&&&&m=3*n
''&&&&KeyWord=DataTable.GetSheet(&Global&).GetParameter(&keyWord&).ValueByRow(n)
''&&&&msgboxKeyWord
'Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索&).Link(&人气&).Click
'Browser(&淘宝网 -淘！我喜欢&).Sync
'SetDoc=Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索&).Object.getElementsByClassName(&colprice&)
'SetDoc2=Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索&).Object.getElementsByClassName(&col enddealing&)
''msgboxDoc2.length
''setprice=Doc.getElementsByClassName(&col price&)
''numberofprice=price.length
''msgboxnumberofprice
''Setp1=Doc.getElementsByClassName(&col price&)(0)
'datatable.getsheet(&Action1&).AddParameter&Price&,&0&
'datatable.getsheet(&Action1&).AddParameter&SaleNum&,&0&
'datatable.getsheet(&Action1&).AddParameterinputword,&0&
' For i=0 toDoc.length -1
'&&&&&&price=Doc(i).textContent
'&&&&&&num=Doc2(i).textContent
'&&&&&&&&&'print price
'&&&&&&a=mid(price,2)&&&
'&&&&&&b=mid(num,1,len(num)-3)
'&&&&&&sum=a*b
'&&&&DataTable.GetSheet(&Action1&).SetCurrentRow i+1
'&&&&DataTable.Value(k, &Action1&)=a
'&&&&DataTable.Value(j, &Action1&)=b
'&&&&DataTable.Value(m, &Action1&)=sum
''&&&&&&ah=DataTable.GetSheet(&Action1&).GetParameter(&Price&).Value
''&&&&&&&&
'&&&&&&&&&&
'Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索#J_relative&).Link(&下一页下一页&).Click
'Browser(&淘宝网 -淘！我喜欢&).Sync
'SetDoc3=Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索#J_relative&).Object.getElementsByClassName(&colprice&)
'SetDoc4=Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索#J_relative&).Object.getElementsByClassName(&colend dealing&)
''msgboxDoc2.length
''setprice=Doc.getElementsByClassName(&col price&)
''numberofprice=price.length
''msgboxnumberofprice
''Setp1=Doc.getElementsByClassName(&col price&)(0)
''datatable.getsheet(&Action1&).AddParameter&Price2&,&0&
''datatable.getsheet(&Action1&).AddParameter&SaleNum2&,&0&
' For i=0 toDoc3.length -1
'&&&&&&DataTable.GetSheet(&Action1&).SetCurrentRow i+49
'&&&&&&price=Doc3(i).textContent
'&&&&&&num=Doc4(i).textContent
'&&&&&&&&&'print price
'&&&&&&&&&a=mid(price,2)
'&&&&&&b=mid(num,1,len(num)-3)
'&&&&&&&&&
'&&&&&&sum=a*b
'&&&&DataTable.Value(k, &Action1&)=a
'&&&&DataTable.Value(j, &Action1&)=b
'&&&&DataTable.Value(m, &Action1&)=sum
''&&&&&&ah=DataTable.GetSheet(&Action1&).GetParameter(&Price&).Value
''&&&&&&&&
''Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索#J_relative&).Link(&下一页下一页&).Click
'Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索_4&).Link(&下一页下一页&).Click
'Browser(&淘宝网 -淘！我喜欢&).Sync
'SetDoc5=Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索#J_relative&).Object.getElementsByClassName(&colprice&)
'SetDoc6=Browser(&淘宝网 -淘！我喜欢&).Page(&鱼嘴鞋_淘宝搜索#J_relative&).Object.getElementsByClassName(&colend dealing&)
''msgboxDoc2.length
''setprice=Doc.getElementsByClassName(&col price&)
''numberofprice=price.length
''msgboxnumberofprice
''Setp1=Doc.getElementsByClassName(&col price&)(0)
''datatable.getsheet(&Action1&).AddParameter&Price2&,&0&
''datatable.getsheet(&Action1&).AddParameter&SaleNum2&,&0&
' For i=0 toDoc5.length -17
'&&&&&&DataTable.GetSheet(&Action1&).SetCurrentRow i+93
'&&&&&&price=Doc5(i).textContent
'&&&&&&num=Doc6(i).textContent
'&&&&&&&&&'print price
'&&&&&&a=mid(price,2)
'&&&&&&b=mid(num,1,len(num)-3)
'&&&&&sum=a*b
'&&&&DataTable.Value(k, &Action1&)=a
'&&&&DataTable.Value(j, &Action1&)=b
'&&&&DataTable.Value(m, &Action1&)=sum
''&&&&&&ah=DataTable.GetSheet(&Action1&).GetParameter(&Price&).Value
'For r = 1 To 120Step 1
'sum_money=datatable.GetSheet(&Action1&).GetParameter(m).ValueByRow (r)
'sum_num=datatable.GetSheet(&Action1&).GetParameter(j).ValueByRow (r)
'allNum=allNum+sum_num
'allSum=allSum+sum_money
'avg_price=allSum/allNum
'datatable.GetSheet(&Action1&).SetCurrentRow123
'datatable.Value(m,&Action1&)=allSum
'datatable.Value(j,&Action1&)=allNum
'datatable.Value(k,&Action1&)=inputword
'datatable.GetSheet(&Action1&).Setcurrentrow124
'datatable.Value(m,&Action1&)=avg_price
'If n mod 7=0Then
'&&&&browser(&淘宝网- 淘！我喜欢&).CloseAllTabs
'&&&&&SystemUtil.CloseProcessByName&iexplore.exe&
&运行的结果：
转载：.cn/s/blog_6c1as.html
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：222065次
积分：3583
积分：3583
排名：第4366名
原创：132篇
转载：39篇
译文：13篇
评论：19条
阅读：2820
(1)(3)(1)(1)(2)(1)(2)(2)(3)(1)(1)(3)(1)(5)(2)(1)(3)(2)(3)(7)(12)(4)(1)(1)(8)(22)(1)(2)(2)(14)(4)(4)(50)(2)(1)(2)(8)
