|
Dim i,b
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").Set "CCTV"
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").Click
For i=1 to 2
Select Case i
Case 1 b="CCTV.com"
Case 2 b="2008奥运会"
End Select
Browser("百度一下,你就知道").Page("百度搜索_CCTV").Link("中国中央电视台 CCTV.com").SetTOProperty "text","b"
Browser("百度一下,你就知道").Page("百度搜索_CCTV").Link("中国中央电视台 CCTV.com").Click
Browser("中国中央电视台 CCTV.com").Page("中国中央电视台 CCTV.com").Sync
Browser("中国中央电视台 CCTV.com").Close
Next
Browser("百度一下,你就知道").Page("百度搜索_CCTV").Sync
Browser("百度一下,你就知道").Close |
|