给初学者:VB如何操作WEB页的浏览提交———二:自动填写更多内容
2007-01-14 11:03
344 查看
本例主要介绍:
填写文本,钩选选项框,点击按钮,调用带参数的javascript
使用的网页:
http://member.tiancity.com/Registration/AccountReg.aspx?From=kart&fuid=
注释不全,大家仔细观看上面地址网页的源文件即可理解代码,实在不懂可以留言或联系我。
以下是代码:
'本程序由ZCSOR编写于2007年1月13日
'QQ:47493585
'E-MAIL:shaoyan5@163.com
'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 = "user@server.com"
WBDocument.body.All("agree").Checked = 1
WBDocument.body.All("randcode").Value = "????"
WBDocument.body.All("userReg").onsubmit '下句同本句功能
'WBDocument.parentWindow.execScript "check(userReg)", "javascript"
End Sub
相关文章推荐
- 给初学者:VB如何操作WEB页的浏览提交———一:在百度中自动搜索
- 给初学者:VB如何操作WEB页的浏览提交———三:学会拨号和断开,内容想发就发,别拿IP限制我!
- 给初学者:VB如何操作WEB页的浏览提交———五:如何对网页内容进行解析?
- 给初学者:VB如何操作WEB页的浏览提交———九:给感觉看HTML代码去找对应对象费劲的朋友的工具
- 给初学者:VB如何操作WEB页的浏览提交———八:获取网页上的链接、图片指向地址
- 给初学者:VB如何操作WEB页的浏览提交———七:题外话,关于小甜饼和不打开新IE窗口问题
- 给初学者:VB如何操作WEB页的浏览提交———四:如果是已经打开的IE页怎么办?
- 给初学者:VB如何操作WEB页的浏览提交———六:如何获取发生在网页内部的事件
- [VB][测试技术应用]VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单)
- vb.net操作excel时,如何判断单元格内容为空
- C#/VB.NET 操作Word批注(二)——如何插入图片、读取、回复Word批注内容
- vb.net2005 网页自动填写并提交
- 关于c#的webbrows控件自动填写表单并获取提交后的网页内容
- VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单)
- vb 6 实现网页自动填写自动提交功能
- 提交订单系统自动发送邮件到收件人邮箱优化(邮件正文内容为当天数据,附件内容为当月数据)
- Ajax提交表单时kindeditor编辑器中的内容如何赋值给textarea
- vc遍历网页表单并自动填写提交 .
- PHP提交表单失败后如何保留已经填写的信息
- 如何使IFrame的长宽与内容自动适应大小