--------------------------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。。下拉列表搞定后通知我一声。。。