|
在xiaonan的个人空间发现了这一段代码:
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="11人足球论坛_www.11players.net - Powered By Discuz!"
End Select
Browser("百度一下,你就知道").Page("百度搜索_11").Link("11_百度百科").SetTOProperty"text",b
Browser("百度一下,你就知道").Page("百度搜索_11").Link("11_百度百科").Click
Browser("11_百度百科").Page("11_百度百科").Sync
Browser("11_百度百科").Close
Next
Browser("百度一下,你就知道").Page("百度搜索_11").Sync
Browser("百度一下,你就知道").Close
运行代码时发现如果是在其他网页打开的情况下,就会运行不下去,报错,这是为什么呢? |
|