给初学者:VB如何操作WEB页的浏览提交———二：自动填写更多内容

 

本例主要介绍：

填写文本，钩选选项框，点击按钮，调用带参数的javascript

使用的网页：

http://member.tiancity.com/Registration/AccountReg.aspx?From=kart&fuid=

注释不全，大家仔细观看上面地址网页的源文件即可理解代码，实在不懂可以留言或联系我。

以下是代码：

'本程序由ZCSOR编写于2007年1月13日
'QQ:47493585
'E-MAIL:[email protected]
'Blog:http://blog.csdn.net/zcsor
'转发请保留作者以上信息

'********************************************************************
'DEMO2:填写文本，钩选选项框，点击按钮，调用带参数的javascript
'********************************************************************

'在工程中添加 Microsoft Internet Controls 部件(即WebBrowser控件),命名为mDemoWB

'WebBrowser控件Document对象
Dim WBDocument As Variant

Private Sub cmdAddText_Click()
mDemoWB.Navigate "http://member.tiancity.com/Registration/AccountReg.aspx?From=kart&fuid="
End Sub

Private Sub Form_Load()
'使用空白页初始化浏览
mDemoWB.Navigate "about:blank"
End Sub

Private Sub mDemoWB_DocumentComplete(ByVal pDisp As Object, URL As Variant)

'打开空白页时跳过
If URL <> "http://member.tiancity.com/Registration/AccountReg.aspx?From=kart&fuid=" Then Exit Sub
'等待数据下载完毕
Do
    If Not mDemoWB.Busy Then Exit Do
    DoEvents
Loop

'获取Document对象
Set WBDocument = mDemoWB.Document

Call WBDocument.body.All("userid").focus

WBDocument.body.All("userid").Value = "userid"

WBDocument.body.All("pwd").Value = "mpwd"

WBDocument.body.All("pwd2").Value = "mpwd"

WBDocument.body.All("chkemail").onclick     '以下两句同本句功能
'WBDocument.body.All("chkemail").Checked = 1
'WBDocument.parentWindow.execScript "showEmailOrNot(userReg)", "javascript"

WBDocument.body.All("email2").Value = "[email protected]"

WBDocument.body.All("agree").Checked = 1

WBDocument.body.All("randcode").Value = "????"

WBDocument.body.All("userReg").onsubmit  '下句同本句功能
'WBDocument.parentWindow.execScript "check(userReg)", "javascript"

End Sub