VB做論壇自動發貼軟體

兩種方式：

1.用AxWebBrowser控制元件做論壇自動發貼軟體

2.用HttpWebRequest類做論壇快速發帖器

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(") '　tuenhai的小站為例
　　Do While formBrowNetsh.brow.Busy　　'等待網頁載入完畢
　　　　Application.DoEvents()
　　Loop
　　Call fill()
End Sub

　　以上程式碼可實現視覺化自動註冊和論壇自動發帖工具。
　　 還有幾個問題有待解決：
　　 一. 有的網站要填上識別碼數字才能註冊或發言，如何用程式來實現自動識別識別碼圖片上的數字？
　　 二. 有的網站一進去就會跳出一個歡迎對話方塊，程式的執行就被暫停。
　　 三. 對於自動註冊和發言來說，載入較慢的圖片、Flash、音樂等並不是必需的。