-VB网页自动填表，上拉列表有关问题

--------------------------VB网页自动填表，下拉列表问题！
本帖最后由 Q624674091 于 2011-09-24 14:07:19 编辑 http://gz.ganji.com/common/pub.php?category=event&type=6

这个连接是测试的。


我要做个自动填表的。

Private Sub Form_Load()
  WebBrowser1.Navigate "http://gz.ganji.com/common/pub.php?category=event&type=6"
End Sub


Private Sub command1_Click()
  Dim vDoc, vTag
  Dim i As Integer
  Set vDoc = WebBrowser1.Document
  For i = 0 To vDoc.All.length - 1  
  If UCase(vDoc.All(i).tagName) = "INPUT" Then   
  Set vTag = vDoc.All(i)
  If vTag.Id = "id_title" Then
  vTag.Value = Text1.Text   
  End If
  If vTag.Name = "address" Then
  vTag.Value = "http://jlds.taoba.com "   
  End If
  If vTag.Id = "id_begindate" Then
  vTag.Value = "2011-12-23"
  End If
  If vTag.Id = "id_enddate" Then
  vTag.Value = "2012-10-11"
  End If
  If vTag.Name = "member_num" Then
  vTag.Value = "188"
  End If
WebBrowser1.Document.getelementbyid("id_description").Value = Text4.Text
WebBrowser1.Document.getelementbyid("id_phone").Value = Text3.Text
  End If
  Next i
End Sub
Private Sub command2_Click()
  Dim vDoc, vTag
  Dim i As Integer
  Set vDoc = WebBrowser1.Document
  For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i)
  If vTag.Type = "submit" Then
  vTag.Click   
End If
  End If
  Next i
End Sub



以上基本的 填空搞定了。




现在问题就在于， 下拉列表的选项，我不知道怎么选择，。

还有那个，线上活动，optiom 这个选项我也不会。

比如：默认页是选择：线下活动 ，我怎么能一键让他填成线上活动。


给答案前请先打开测试地址。如果是 百度搜来的答案，请测试完可用再回复，谢谢！
[解决办法]
怎么到处都是搞赶集网的，前几天也有个人找做赶集网的账号自动注册，楼主你的是自动发布啊
[解决办法]
是啊，我现在遇到问题   就是那个   单选框  和  下拉列表   怎么自动选择 3
[解决办法]
你会啊？会的话  教我下
[解决办法]
我也碰到类似的问题但我不是用来注册的，我用的是delphi。。下拉列表搞定后通知我一声。。。