【asp精品源码栏目提醒】:网学会员asp精品源码为您提供vb_自动填表webbrowser(复制别人的) - 其它资料参考,解决您在vb_自动填表webbrowser(复制别人的) - 其它资料学习中工作中的难题,参考学习。
使用 VB 实现邮箱自动注册(一):表单自动提交前些天在网上看到有人需要邮箱自动注册的程序,于是自己也写了一个,在查资料的过程中我看到一些网友写的类似文章,有一些是基于网络协议,需要了解 sessioncookie 这些东西,对于一个新手来说很繁琐,等到把这些东西搞懂,热情也消耗殆尽。
VB 的优点就在于可以让那些对于计算机底层不是很了解的人迅速实现自己的程序设计,我找到了一种比较简单的办法,要求对 HTML 标记语言有所了解即可,现在把自己的经验写出来于各位网友共享,该方法也许不值一提,也许对您有所帮助。
我的办法就是利用控件 WebBrowser我想很多人对它都很熟悉,在新建一个工程之后您要做的是添加两个控件,一个是 WebBrowser另一个是 Scriptlet,这两个控件配合使用,就可以完成这个任务了,Scriptlet中的 IHTMLDocument2 对象可以用来获得 WebBrowser 控件中的HTML 文档。
这两个控件的名字在组件对话框里分别叫 MicrosoftHTML Object Library 和 Microsoft Internet Controls。
这两个控件添加完成之后,你还需要知道 WebBrowser 的一个事件DocumentComplete,这个事件在整个网页下载完成之后触发,也就是说在页面完成之后这个事件即被执行,有了这些就可以顺利的实现注册了。
下面以 eyou 网站的免费邮箱注册为例来实现我的程序设计新建标准工程后向 Form 中添加一个 WebBrowser 控件。
所有代码如下:Dim ii As IntegerPrivate Sub Form_Load WebBrowser1.Navigate http://freemail.eyou.com/signup.htmlbgp%CE%D2%BD%D3%CA% DCbgp_enableonEnd SubPrivate Sub WebBrowser1_DocumentCompleteByVal pDisp As ObjectURL As Variant Dim doc As IHTMLDocument2 Set doc WebBrowser1.Document Dim tmp As String If InStrdoc.body.innerText 寻找一个新的用户名 0 Then tmp sdfsdf23 TrimStrii doc.All.Itemuid.focus SendKeys tmp SendKeys enter End If If InStrdoc.body.innerText 输入您的个人资料 0 Then doc.All.ItemPassword.Value 123456 doc.All.ItemConfirm.Value 123456 doc.All.ItemFirstName.Value tomcant doc.All.Itemquestion.Value what is your name doc.All.Itemanswer.Value my name is ddd doc.All.Itemyear.Value 80 doc.All.Itemmonth.Value 3 doc.All.Itemday.Value 18 doc.All.Itemday.focus SendKeys enter End If If InStrdoc.body.innerText 申请邮箱成功 0 Then ii ii 1 WebBrowser1.Navigatehttp://freemail.eyou.com/signup.htmlbgp % CE % D2 % BD % D3 %CA%DCbgp_enableon End IfEnd SubEyou 的 免 费 邮 箱 注 册 入 口 地 址 为http://freemail.eyou.com/signup.htmlbgp % CE % D2 % BD % D3 %CA % DCbgp_enableon , 所 以 要 在 Form_load 事 件 中 使 用WebBrowser 控件的 Navigate 方法。
在 eyou 的注册入口页面完成之后 WebBrowser1_DocumentComplete即被执行,在这个函数中主要有三个条件语句,在三个条件语句之前有如下三句:Dim doc As IHTMLDocument2Set doc WebBrowser1.DocumentDim tmp As Stringdoc 定义为 IHTMLDocument2 对象用以取得 WebBrowser1 的文档,tmp字符串是循环注册中的用户名,在程序刚开始定义了 ii 这个 integer变量,在每次注册完成之后 ii 加 1 附于 tmp 之后用以改变用户名。
第一个条件语句如下:If InStrdoc.body.innerText 寻找一个新的用户名 0 Then tmp sdfsdf23 TrimStrii doc.All.Itemuid.focus SendKeys tmp SendKeys enterEnd If首先判断是否是注册入口页面,通过 InStrdoc.body.innerText 寻找一个新的用户名 0 语句实现,doc.body.innerText 即取得了该页面中的所有文字。
如果是则构造一个用户名。
doc.All.Itemuid.focus使用户名文本框取得焦点,其中 uid 是该文本框的 ID,这个 ID 的取得是通