看看下面的代码:Select Case 和SetToproperty
Dim i,b
Browser("百度——全球最大中文搜索引擎").Page("百度——全球最大中文搜索引擎").WebEdit("wd").Set "11"
Browser("百度——全球最大中文搜索引擎").Page("百度——全球最大中文搜索引擎").WebButton("百度搜索").Click
For i=1 to 2
Select Case i
Case 1 b="11 弄-软件弄堂"
Case 2 b="CCTV.com"
End Select
Browser("百度——全球最大中文搜索引擎").Page("百度搜索_11").Link("CCTV.com").SetTOProperty "text",b
Browser("百度——全球最大中文搜索引擎").Page("百度搜索_11").Link("CCTV.com").Click
Browser("CCTV.com").Page("CCTV.com").Sync
Browser("CCTV.com").Close
Next
Browser("百度——全球最大中文搜索引擎").Page("百度搜索_11").Sync
Browser("百度——全球最大中文搜索引擎").Close