[求助]那位大哥可以给这个网页的文本框赋值,初学者

eprom681

小弟是初学VB没多久，所以学到的也就太少了，现在在学做表单自动提交，一般的网页基本都可以解决了，但是到朋友（一个赌徒）家发现了一个网页，这个网页我摸索了五六天还是不可以给里面的密码文本框赋值，到现在还只是知道这个网页是一个框架网页，那为大师可以用VB6给它赋值的请教教小弟，这个网页已经上传，小弟虚心学习愿意拜师学艺。小弟给其他网页做自动提交表单是用WebBrowser控件浏览网页提交的，碰到这个网页就没有了办法了，希望各位大虾指点迷精。 [em7]

xuzzzhen123

请参考下面的代码，有什么问题请联系Msn:xuzzzhen124@hotmail.com

Private Sub cmdNavigate_Click()
    wb1.Stop
    wb1.Navigate "file://E:\VB6\sf_20062814439\WELCOME.files\lt_index.files\mem_data.htm"
End Sub

Private Sub wb1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If pDisp Is wb1.Object Then
        pDisp.Document.body.All("chgpasswd").Value = "****"
        MsgBox pDisp.Document.body.All("chgpasswd").Value
    End If
End Sub