|
我使用的网站是:www.szcredit.com.cn
比如我要把红框的中注册号和地址的内容输入到C:\result.txt中去,代码如下:
-------------------------------------------------------------------------------------------------------------------------
Browser("深圳信用网").Page("深圳信用网").WebEdit("txtNameKey").Set "先知者企业管理顾问"
Browser("深圳信用网").Page("深圳信用网").WebButton("查询").Click
Browser("深圳信用网").Page("frmQueryList").Link("详细资料").Click
Browser("深圳信用网").Page("frmDeptItemList").WebButton("查询").Click
b= Browser("深圳信用网").Page("详细信息").WebElement("注册号").GetROProperty ("innertext")
a=Browser("深圳信用网").Page("详细信息").WebElement("地址").GetRoproperty("innertext")
writefile a+";"+b
Function writefile(text)
Dim fso, myfile
Set fso=CreateObject("Scripting.FileSystemObject")
Set myfile=fso.openTextFile("C:\result.txt",8,false)
myfile.writeline text
myfile.close
End Function
----------------------------------------------------------------------------------------------------------------------------
第一个次我能把信息输入到C:\result.txt中去,当我参数化WebEdit("txtNameKey").Set "先知者企业管理顾问" 后,比如一个是:先知者企业管理顾问,第2个是亚德慕企业管理咨询,当使用第2个参数时就得不到GetRoproperty("innertext")的值了.提示大概是说找不到对象.
请问有高手知道是怎么回事吗?万分感谢!!!!! |
|