Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagname) = "SELECT" Then
Set vTag = vDoc.All(i)
If vTag.Name = "Plugin" Then vTag.Value = 2
End If
Next i
............
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagname) = "SELECT" Then
Set vTag = vDoc.All(i)
If vTag.Name = "Plugin" Then vTag.Value = 2
End If
Next i
............
如果不行就试下
webbrowser1.document.getElementsByName(Plugin).value(2)