【黑基原创】GUI哥教你写DVBBS自能化程序一
作者:Gui哥
来源:www.hackbase.com
第一步自动注册编程分析日志
注册帐号
name 用户名
quesion 密码问题
answer 问题答案
e_mail Email邮箱
psw 论坛密码
pswc 确认密码
.支持库 MSHTML
.支持库 shdocvw
.程序集 窗口程序集1
.程序集变量 a, IHTMLDocument2
.程序集变量 b, IHTMLElementCollection
.子程序 _按钮2_被单击
a.获取 (WebBrowser1.GetDocument ())
b ＝ a.Getall ()
写表单 (“name”, “laoguier”)
写表单 (“psw”, “1234567”)
写表单 (“pswc”, “1234567”)
写表单 (“quesion”, “你知道我是誰吗？哈哈”)
写表单 (“answer”, “我是Gui哥，哈，这是我写的测试表单填写程序自动完成的”)
写表单 (“e_mail”, “Gui@hackbase.com”)
.子程序 _按钮1_被单击
WebBrowser1.跳转 (编辑框1.内容, , , , )
.子程序 写表单
.参数 表单名, 文本型
.参数 内容, 文本型
b.item (表单名, 0).写属性 (“value”, 内容)
.子程序 __启动窗口_创建完毕
如果你想实现自动提交表单可以加上这一段
1）提交的方法
.支持库 MSHTML
.子程序 _按钮3_被单击
b.item (“submit”, 0).方法 (“Click”, )
2）写表单方法
.支持库 MSHTML
.子程序 写表单
.参数 表单名, 文本型
.参数 内容, 文本型
b.item (表单名, 0).写属性 (“value”, 内容)
3）读表单方法
.支持库 MSHTML
.子程序 读表单, 文本型
.参数 表单名, 文本型
返回 (b.item (表单名, 0).读属性 (“value”, ).取文本 ())