|
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").Set DataTable("searchitem", dtGlobalSheet)
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").Click
Dim x,y,z,a
x=datatable("expectitem",GlobalSheet)
z=0
While z=0
For i=0 to 9
y=Browser("百度一下,你就知道").Page("百度一下,你就知道").Link("x:=17","index:="&i).GetROProperty("innertext")
msgbox(y)
z=InStr(1,y,x,1)
If z>0 Then
a=Browser("百度一下,你就知道").Page("百度一下,你就知道").Link("x:=17","index:="&i).GetROProperty("url")
DataTable("url",GlobalSheet)=a
Exit for
End If
Next
If z=0 then
Browser("百度一下,你就知道").Page("百度一下,你就知道").Link("下一页").Click
end if
Wend |
|