提供3000多款全球软件/控件产品
针对软件研发的各个阶段提供专业培训与技术咨询
根据客户需求提供定制化的软件开发服务
全球知名设计软件,显著提升设计质量
打造以经营为中心,实现生产过程透明化管理
帮助企业合理产能分配,提高资源利用率
快速打造数字化生产线,实现全流程追溯
生产过程精准追溯,满足企业合规要求
以六西格玛为理论基础,实现产品质量全数字化管理
通过大屏电子看板,实现车间透明化管理
对设备进行全生命周期管理,提高设备综合利用率
实现设备数据的实时采集与监控
利用数字化技术提升油气勘探的效率和成功率
钻井计划优化、实时监控和风险评估
提供业务洞察与决策支持实现数据驱动决策
转帖|其它|编辑:郝浩|2010-08-25 14:08:47.000|阅读 907 次
概述:我们曾经在一篇文章中介绍过邮件自动注册中的修改代理服务器的应用。不过要想实现这一功能的话还需要一个应用的实现,那就是VB.NET表单自动提交。在这里我们就会为大家详细介绍这一应用技巧。
# 慧都年终大促·界面/图表报表/文档/IDE等千款热门软控件火热促销中 >>
我们曾经在一篇文章中介绍过邮件自动注册中的修改代理服务器的应用。不过要想实现这一功能的话还需要一个应用的实现,那就是VB.NET表单自动提交。在这里我们就会为大家详细介绍这一应用技巧。
前些天在网上看到有人需要邮箱自动注册的程序,于是自己也写了一个,在查资料的过程中我看到一些网友写的类似文章,有一些是基于网络协议,需要了解session,cookie这些东西,对于一个新手来说很繁琐,等到把这些东西搞懂,热情也消耗殆尽。vb的优点就在于可以让那些对于计算机底层不是很了解的人迅速实现自己的程序设计,我找到了一种比较简单的办法,要求对HTML标记语言有所了解即可,现在把自己的经验写出来于各位网友共享,该方法也许不值一提,也许对您有所帮助。
我的办法就是利用控件WebBrowser,我想很多人对它都很熟悉,在新建一个工程之后您要做的是添加两个控件,一个是WebBrowser,另一个是Scriptlet,这两个控件配合使用,就可以完成这个任务了,Scriptlet中的IHTMLDocument2对象可以用来获得WebBrowser控件中的HTML文档。这两个控件的名字在组件对话框里分别叫Microsoft HTML Object Library和Microsoft Internet Controls。
这两个控件添加完成之后,你还需要知道WebBrowser的一个事件DocumentComplete,这个事件在整个网页下载完成之后触发,也就是说在页面完成之后这个事件即被执行,有了这些就可以顺利的实现注册了。
下面以eyou网站的免费邮箱注册为例来实现我的程序设计,新建标准工程后向Form中添加一个WebBrowser控件。所有代码如下:
1.Dim ii As Integer
2.Private Sub Form_Load()
3.WebBrowser1.Navigate "//freemail.eyou.com/signup.html?
bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"
4.End Sub
5.Private Sub WebBrowser1_DocumentComplete
(ByVal pDisp As Object, URL As Variant)
6.Dim doc As IHTMLDocument2
7.Set doc = WebBrowser1.Document
8.Dim tmp As String
9.If InStr(doc.body.innerText, "寻找一个新的用户名") > 0 Then
10.tmp = "sdfsdf23" + Trim(Str$(ii))
11.doc.All.Item("uid").focus
12.SendKeys tmp
13.SendKeys "{enter}"
14.End If
15.If InStr(doc.body.innerText, "输入您的个人资料") > 0 Then
16.doc.All.Item("Password").Value = "123456"
17.doc.All.Item("Confirm").Value = "123456"
18.doc.All.Item("FirstName").Value = "tomcant"
19.doc.All.Item("question").Value = "what is your name"
20.doc.All.Item("answer").Value = "my name is ddd"
21.doc.All.Item("year").Value = "80"
22.doc.All.Item("month").Value = "3"
23.doc.All.Item("day").Value = "18"
24.doc.All.Item("day").focus
25.SendKeys "{enter}"
26.End If
27.If InStr(doc.body.innerText, "申请邮箱成功") > 0 Then
28.iiii = ii + 1
29.WebBrowser1.Navigate "//freemail.eyou.com/signup.html?
bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"
30.End If
31.End Sub
Eyou的免费邮箱注册入口地址为//freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on,所以要在Form_load事件中使用WebBrowser控件的Navigate方法。
在eyou的注册入口页面完成之后WebBrowser1_DocumentComplete即被执行,在这个函数中主要有三个条件语句,在三个条件语句之前有如下三句:
32.Dim doc As IHTMLDocument2
33.Set doc = WebBrowser1.Document
34.Dim tmp As String
doc定义为IHTMLDocument2对象用以取得WebBrowser1的文档,tmp字符串是循环注册中的用户名,在VB.NET表单自动提交的程序刚开始定义了ii这个integer变量,在每次注册完成之后ii加1附于tmp之后用以改变用户名。
第一个条件语句如下:
35.If InStr(doc.body.innerText, "寻找一个新的用户名") > 0 Then
36.tmp = "sdfsdf23" + Trim(Str$(ii))
37.doc.All.Item("uid").focus
38.SendKeys tmp
39.SendKeys "{enter}"
40.End If
首先判断是否是注册入口页面,通过InStr(doc.body.innerText, "寻找一个新的用户名") > 0语句实现,doc.body.innerText即取得了该页面中的所有文字。如果是则构造一个用户名。
doc.All.Item("uid").focus使用户名文本框取得焦点,其中uid是该文本框的ID,这个ID的取得是通过查看HTML源代码得到的,所以要求对HTML标记语言有所了解。使用户名文本框取得焦点之后通过SendKeys函数模拟键盘向文本框发送tmp字符串,这样用户名即填写完成,之后发送回车键提交表单。关于SendKeys函数的使用大家可查阅MSDN帮助。
第二个条件语句首先判断改页面是否是个人资料填写页面,然后填写个人资料,其方法同填写用户名一致,取得个文本框的ID后填写其值,最后提交表单。
最后一个条件语句判断邮箱注册成功后将ii加一,然后将页面重新定位到注册入口页面,至此一个循环完成。
以上VB.NET表单自动提交的代码即实现了自动注册提交。
本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@pclwef.cn
文章转载自:网络转载面对“数字中国”建设和中国制造2025战略实施的机遇期,中车信息公司紧跟时代的步伐,以“集约化、专业化、标准化、精益化、一体化、平台化”为工作目标,大力推进信息服务、工业软件等核心产品及业务的发展。在慧都3D解决方案的实施下,清软英泰建成了多模型来源的综合轻量化显示平台、实现文件不失真的百倍压缩比、针对模型中的大模型文件,在展示平台上进行流畅展示,提升工作效率,优化了使用体验。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
服务电话
重庆/ 023-68661681
华东/ 13452821722
华南/ 18100878085
华北/ 17347785263
客户支持
技术支持咨询服务
服务热线:400-700-1020
邮箱:sales@pclwef.cn
关注我们
地址 : 重庆市九龙坡区火炬大道69号6幢