VB做论坛自动发贴软件（1）

1.用AxWebBrowser控件做论坛自动发贴软件

1。用AxWebBrowser控件做论坛自动发贴软件

　
　　 AxWebBrowser控件即VB6中的WebBrowser控件。
　　 用AxWebBrowser做论坛批量发贴软件，使用时先添加对AxWebBrowser控件和MSHTML的引用。
　　 先Navigate到指定 址。然后用以下代码等待 页加载完毕：

Do While brow.Busy
　　Application.DoEvents()
Loop

　　然后调用发帖过程。

Public Sub fill()
　　On Error Resume Next
　　Do While brow.Busy
Application.DoEvents()
　　Loop

　　Dim webDoc As Object = brow.Document.all
　　Dim webTag As Object
　　Dim lengthTag As Integer = webDoc.length – 1

　　For countTag As Integer= 0 To lengthTag
webTag = webDoc.item(countTag)
Select Case Strings.LCase(webDoc.item(countTag).tagname)
　　Case “textarea”　’ 页中的文本框
Select Case webTag.name
　　Case “body”　　　'”body”来自 页源代码，不同 站很可能不同，你根据实际修改。下同。
webTag.value = strBody 　　’这是预先定义的值,下同。
　End Select

　　Case “select”　　　’ 页中的下拉选择框
Select Case webTag.name
　　Case “month”　　　’选择月份，这里略去年、日的选择，因为原理相同。
webTag.all.item(1).selected = True　　’选择第一个值
End Select

　　 Case “input”　　’ 页中的输入框
Select Case Strings.LCase(webTag.type)
　　Case “text”　’文本
Select Case webTag.name
　　Case “name”, “userid”, “nickname” ‘用户名
　webTag.value = strName
　 Case “subject” ‘标题
　webTag.value = strSubject
　　Case “regid” ‘注册码
　webTag.value = strRegid
　　Case “username”, “realname”
　webTag.value = strUsername
　　Case “cardnumber”
　webTag.value = strCardNumber
　　Case “homephone”
　webTag.value = strHomephone ‘电话
　　Case “url_title” ‘链接名称
　webTag.value = urlTitle
　　Case “url”　　’链接
　webTag.value = url
　　Case “email”　’email地址
　webTag.value = email
　　Case “img” 　’图片　　
　webTag.value = img
　　Case “midi”　　’音乐
　webTag.value = midi
　　Case “year”　　’年
　webTag.value = strYear
　　Case “prompt” ‘找回密码提示问题
　webTag.value = strPrompt
　　Case “answer” ‘找回密码答案
　webTag.value = strAnswer
End Select
　　Case “password”　　’密码
Select Case webTag.name
　　Case “passwd”, “password”, “confirm”, “repasswd” ‘密码，确认密码
　webTag.value = strPass
End Select
　 Case “checkbox”　　’单选框
Select Case webTag.name
　　Case “emailme”　　’email通知tuenhai
　webTag.checked = True　　
End Select

End Select

End Select
　　 Next

　　brow.Document.forms(0).submit()　　’许多 页表单，这一句简单代码即实现自动提交

End Sub

于是，主过程是这样：

Public Sub autoAdd()
　　brow.Silent = True ‘不弹出窗口
　　brow.Navigate(“http://www.Tuenhai.com”;) ‘　tuenhai的小站为例
　　Do While formBrowNetsh.brow.Busy　　’等待 页加载完毕
Application.DoEvents()
　　Loop
　　Call fill()
End Sub

　　以上代码可实现可视化自动注册和论坛自动发帖工具。
　　 还有几个问题有待解决：
　　 一. 有的 站要填上识别码数字才能注册或发言，如何用程序来实现自动识别识别码图片上的数字r>　　 二. 有的 站一进去就会跳出一个欢迎对话框，程序的运行就被暂停。
　　 三. 对于自动注册和发言来说，加载较慢的图片、Flash、音乐等并不是必需的。

相关资源：Stickies(桌面便利贴软件)V8.0c免费安装版-其它代码类资源-CSDN文库