VB发贴机之二

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 

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