|
1.题目要求:在百度上依次输入指定的关键字(写在DataTable第一列)->搜索->在查找到的结果中找到与预期相匹配的链接(当前页找不到就翻下一页)(预期值写在DataTable第二列)->将链接的url保存在DataTable第三列.
2.实现
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").Set DataTable("keyword", dtGlobalSheet)
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").Click
Dim keyword_value,search_value,result,url
keyword_value = DataTable("keyword", dtGlobalSheet)
result = 0
While result = 0
For i = 0 to 9
search_value = Browser("百度一下,你就知道").Page("百度搜索_四川成都").Link ("x:=17","index:="&i).GetROProperty("innertext")
DataTable.GlobalSheet.AddParameter"搜索结果",search_value
result = instr(1,search_value,keyword_value,1)
If result > 0 Then
url = Browser("百度一下,你就知道").Page("百度搜索_四川成都").Link("x:=17","index:="&i).GetROProperty("url")
DataTable.GlobalSheet.AddParameter"URL",url
Exit for
End If
Next
If result = 0Then
Browser("百度一下,你就知道").Page("百度搜索_四川成都").Link("下一页").Click
End If
Wend
谢谢hsjzfling的引导、谢谢huaxiaowu将结果共享出来,让我学习!
问题:现在是运行时,在第二列显示搜索结果,第三列显示url,但是运行结束就不再显示,怎么运行结束后,上述两列仍然保存在globalsheet表中呢?谢谢!
[ 本帖最后由 wyy83 于 2008-4-28 11:09 编辑 ] |
|