vb 自动填写表单WebBrowser1

Question

网页内容如下 
<select name="Contry"><option value="default" selected>-Select-</option> <option value="CH">China</option> 
<option value="EN">English</option> 
</select> 当“value为字符”时，用如下代码为什么不能自动选择？
WebBrowser1.Document.getElementsByName("Contry").Item(0).SelectedIndex = "CH"
问题补充：<select name="Contry"><option value="default" selected>-Select-</option> <option value="1">China</option> 
<option value="2">English</option> 
</select> 当“value为数值”时，用如下代码就可以自动选择 
WebBrowser1.Document.getElementsByName("Contry").Item(0).SelectedIndex = 1 
这样的代码可以成功选择表单

Answer 1

当然了,索引要数字的,不过,你可以用循环判断的if ...options[i].value="CH"...selectIndex=i
end if

Answer 2

用你的方法式了怎么不好使
WebBrowser1.Document.getElementsByName("Contry").Item(0).SelectedIndex = 1 这段代码只要付值就出错，提示对象不支持该属性或方法

Answer 3

Dim obj、 As IHTMLselectElement 
Dim objDocument3 As IHTMLDocument3
Set objDocument3 = WebBrowser1.Document
  Set obj = objDocument3.getElementById("Contry")
obj.selectedIndex=XXXXXXX

Answer 4

楼上的方法  IHTMLselectElement 怎么才能定义
需要引用什么？
  
非常感谢！！！！！！

Answer 5

需要那个就用那个代码，包你好用
webbrowser1.Document.getElementsByname("Contry")(0).Value = "CH"
webbrowser1.Document.getElementsByname("Contry")(0).Value = "EN"

Answer 6

偶也是在这句出错～～
WebBrowser1.Document.getElementsByName("Contry").Item(0).SelectedIndex = 1
请问是不是要引用啥组件的？大伙说的该不是VB.net吧？
偶用的是VB6.0～～

Answer 7

Set vDoc = web.Document
vDoc.body.All("Contry").Item(1).Selected = True  1为Index

Answer 8

一个是数值一个是字段啊，可以分开用selected来选择