webbrowse自动提交表单时select标签怎么给省，市赋值 http://www.yesfashion.cn/register.aspx，谢谢

[qxstock]

WebBrowser1.Document.getElementsByName("ddlState").Item(0).selectedIndex = 1
WebBrowser1.Document.getElementsByName("ddlState").Item(0).onchange
WebBrowser1.Document.getElementsByName("ddlProvince").Item(0).selectedIndex = 1


现在能给国家赋值，省县不知到怎么做了

[zzyong00]

一般来说，选择一个select控件中的一项后，在这个select的onchang事件中会改写其它的select中的项，
哪么你选择一个select，然后调用它的onchang,然后适当地延时，后再去选择其它的select

你给的网址，我打不开

[zzyong00]

WebBrowser1.Document.getElementsByName("ddlState").Item(0).selectedIndex   =   1     
WebBrowser1.Document.getElementsByName("ddlState").Item(0).FireEvent "onchange" 
WebBrowser1.Document.getElementsByName("ddlProvince").Item(0).selectedIndex   =   1 

[zzyong00]

最好引用　Microsoft html object ,哪样容易些
Dim objSel As HTMLSelectElement, objDoc As HTMLDocument, objCol As IHTMLElementCollection
Set objDoc = WebBrowser1.Document
    Set objCol = objDoc.getElementsByName("ddlState")
    Set objSel = objCol.Item(0)
    'objSel.Value = objSel.Options(1).Value
   objSel.selectedIndex = 1
   objSel.FireEvent "onchange"
.....

[蒋晟]

Item(0)是做什么的
ddlState和ddlProvince估计是IHTMLSelectElement，直接设置其value不行么

[daisy8675]

http://www.applevb.com/qa/qa000250.htm
http://www.applevb.com/qa/qa000257.htm

用 webbrowse去自提并不好,如果对方有弹出框就根本没办法处理嘛

所以一般情况最好直接抓包,post数据出去

[qxstock]

地址是 http://www.yesfashion.cn/register.aspx

[zzyong00]

当你选完 ddlState时，网页动态从服务器上取得ddlProvince的内容，所以，在选择ddlProvince之前，必须先得延时等待！

Option Explicit
Dim n As Integer
Private Sub Command1_Click()
Dim objSel As HTMLSelectElement, objDoc As HTMLDocument, objCol As IHTMLElementCollection
Set objDoc = WebBrowser1.Document
    Set objCol = objDoc.getElementsByName("ddlState")
    Set objSel = objCol.Item(0)
    'objSel.Value = objSel.Options(1).Value
   objSel.selectedIndex = 1
   objSel.FireEvent "onchange" 'ddlState
    Dim t As Long
    t = Timer
    Do
        DoEvents
        Set objCol = objDoc.getElementsByName("ddlProvince")
        Set objSel = objCol.Item(0)
    Loop While objSel.Options.length <= 1

    'objSel.Value = objSel.Options(1).Value
   objSel.selectedIndex = 5
   objSel.FireEvent "onchange" 'ddlProvince
   
    Do
        DoEvents
        Set objCol = objDoc.getElementsByName("ddlCity")
        Set objSel = objCol.Item(0)
    Loop While objSel.Options.length <= 1
    'objSel.Value = objSel.Options(1).Value
   objSel.selectedIndex = 9
   objSel.FireEvent "onchange" 'ddlCity

End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.yesfashion.cn/register.aspx"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
n = n + 1
If n = 1 Then
Dim objImg As HTMLImg, objDoc As HTMLDocument, objCol As IHTMLElementCollection
    Set objDoc = WebBrowser1.Document
    Set objCol = objDoc.getElementsByName("ibtnAgree")
    Set objImg = objCol.Item(0)
    objImg.Click
ElseIf n = 2 Then
    Command1_Click
End If
End Sub

[zzyong00]

以上代码测试通过

[zzyong00]

当程序运行时，无须你做任何事！我用了个command，只是在调试时用的！实际上，command_click中的代码完全可以放在。。。
ElseIf n = 2 Then
。。。
End If

[qxstock]

感谢阿勇提供的延时的思路，谢谢

[zzyong00]

呵呵　早知道就不给你写哪么多代码了，只说个思路就行了

[qxstock]

谢谢了，思路和代码都谢谢了

[qxstock]

谢谢，代码感谢提供