我的办法就是利用控件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加一，然后将页面重新定位到注册入口页面，至此一个循环完成。
以上代码即实现了自动注册提交。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
