VB 网页 下拉框联动问题，老虾请进。。。。
VB 网页 下拉框联动问题，老问题了，但每次遇到的情况都不一样了，请大侠帮解决一下谢谢了。。。用户名：时空新版
密码：opo123
论坛登录链接：http://bbs.gxsky.com/index_login.php?action=login
论坛发帖链接：http://bbs.gxsky.com/forum.php?mod=post&action=newthread&fid=1683&extra=page%3D1%26filter%3Dsortid%26sortid%3D49%26sortid%3D49&sortid=50
实现两个部分自动填写下拉框，其中“所在区域：”部分是联动的，第二是“类型：”下拉的，都要求实现自动填写功能，谢谢。。。。
辛苦了，各位大侠，，，谢谢啦，，，要求贴源码，，，谢谢。。。。。 --------------------编程问答-------------------- 我们的大侠在哪里呢？？？？？ --------------------编程问答--------------------
--------------------编程问答--------------------
谢谢帮顶。。。。
--------------------编程问答--------------------
学过VB，全忘了。。。
--------------------编程问答--------------------
谢谢帮顶。。。。。
--------------------编程问答--------------------
找大侠。。。。。。。
--------------------编程问答--------------------
顶，，，，，，
--------------------编程问答--------------------
我有个笨方法，直接使用控制鼠标键盘的API 模拟鼠标点吧 ^^
--------------------编程问答--------------------
Private Sub Command1_Click() ' 网页_下拉框联动问题--------------------编程问答-------------------- 除
On Error Resume Next
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate "http://bbs.gxsky.com/forum.php?mod=post&action=newthread&fid=1683&extra=page%3D1%26filter%3Dsortid%26sortid%3D49%26sortid%3D49&sortid=50"
Do Until .ReadyState = 4
DoEvents
Loop
.document.All("select_GG_cqsq").All.tags("option")(3).Selected = True '选择“江南 >”
t1 = Timer
Do Until Timer > t1 + 2 '等待2秒钟，主要是为了看看效果。
DoEvents
Loop
.document.All("select_GG_cqsq").All.tags("select")(0).onchange '这就是所谓的“联动”
'.Quit
End With
End Sub
补充：VB , 网络编程
