前些天在网上看到有人需要邮箱自动注册的程序，于是自己也写了一个，在查资料的过程中我看到一些网友写的类似文章，有一些是基于网络协议，需要了解 session,cookie 这些东西，对于一个新手来说很繁琐，等到把这些东西搞懂，热情也消耗殆尽。 VB 的优点就在于可以让那些对于计算机底层不是很了解的人迅速实现自己的程序设计，我找到了一种比较简单的办法，要求对 HTML 标记语言有所了解即可，现在把自己的经验写出来于各位网友共享，该方法也许不值一提，也许对您有所帮助。
我的办法就是利用控件 WebBrowser, 我想很多人对它都很熟悉，在新建一个工程之后您要做的是添加两个控件，一个是 WebBrowser, 另一个是 Scriptlet ，这两个控件配合使用，就可以完成这个任务了， Scriptlet 中的 IHTMLDocument2 对象可以用来获得 WebBrowser 控件中的 HTML 文档。这两个控件的名字在组件对话框里分别叫 Microsoft HTML Object Library 和 Microsoft Internet Controls 。
这两个控件添加完成之后，你还需要知道 WebBrowser 的一个事件 DocumentComplete ，这个事件在整个网页下载完成之后触发，也就是说在页面完成之后这个事件即被执行，有了这些就可以顺利的实现注册了。
下面以 eyou 网站的免费邮箱注册为例来实现我的程序设计 , 新建标准工程后向 Form 中添加一个 WebBrowser 控件。所有代码如下：
Dim ii As Integer
Private Sub Form_Load()
WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As IHTMLDocument2
Set doc = WebBrowser1.Document
Dim tmp As String
If InStr(doc.body.innerText, " 寻找一个新的用户名 ") > 0 Then
tmp = "sdfsdf23" + Trim(Str$(ii))
doc.All.Item("uid").focus
SendKeys tmp
SendKeys "{enter}"
End If
If InStr(doc.body.innerText, " 输入您的个人资料 ") > 0 Then
doc.All.Item("Password").Value = "123456"
doc.All.Item("Confirm").Value = "123456"
doc.All.Item("FirstName").Value = "tomcant"
doc.All.Item("question").Value = "what is your name"
doc.All.Item("answer").Value = "my name is ddd"
doc.All.Item("year").Value = "80"
doc.All.Item("month").Value = "3"
doc.All.Item("day").Value = "18"
doc.All.Item("day").focus
SendKeys "{enter}"
End If
If InStr(doc.body.innerText, " 申请邮箱成功 ") > 0 Then
ii = ii + 1
WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"
End If
End Sub
Eyou 的免费邮箱注册入口地址为 http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on ，所以要在 Form_load 事件中使用 WebBrowser 控件的 Navigate 方法。
在 eyou 的注册入口页面完成之后 WebBrowser1_DocumentComplete 即被执行，在这个函数中主要有三个条件语句，在三个条件语句之前有如下三句：
Dim doc As IHTMLDocument2
Set doc = WebBrowser1.Document
Dim tmp As String
doc 定义为 IHTMLDocument2 对象用以取得 WebBrowser1 的文档， tmp 字符串是循环注册中的用户名，在程序刚开始定义了 ii 这个 integer 变量，在每次注册完成之后 ii 加 1 附于 tmp 之后用以改变用户名。
第一个条件语句如下：
If InStr(doc.body.innerText, " 寻找一个新的用户名 ") > 0 Then
tmp = "sdfsdf23" + Trim(Str$(ii))
doc.All.Item("uid").focus
SendKeys tmp
SendKeys "{enter}"
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 加一，然后将页面重新定位到注册入口页面，至此一个循环完成。
以上代码即实现了自动注册提交。