求教，想写一个贴吧的发贴机，想找一个源码参考。

Question

哪位高手有源码，可以参考下 吗。谢谢

Answer 1

找到了分享下～[email protected]   我这有实现自动填表的源码，我自己编出来一个小软件http://5uxy.com/%e7%a8%8b%e5%ba%8f%e8%ae%be%e8%ae%a1/103/

Answer 2

Private Sub Command10_Click()
 Dim vDoc, vTag
   Dim i As Integer
   Dim bian As Integer
   bian = 0
 Set vDoc = web1.Document
        For i = 0 To vDoc.All.length - 1
            If UCase(vDoc.All(i).tagName) = "INPUT" Or UCase(vDoc.All(i).tagName) = "TEXTAREA" Then
               Set vTag = vDoc.All(i)
                If vTag.Type = "text" Then
                  Select Case vTag.Name
                        Case Text6.Text, "inpName", "author"
                            vTag.Value = Text2.Text
                            bian = bian Or 1
                        Case Text7.Text, "inpEmail", "email"
                            vTag.Value = Text3.Text
                            bian = bian Or 10
                        Case Text8.Text, "inpHomePage", "url"
                            vTag.Value = Text4.Text
                            bian = bian Or 100
                  End Select
               End If
                If (vTag.Name = Text9.Text) Or (vTag.Name = "comment") Or (vTag.Name = "txaArticle") Then
                    
                    vTag.Value = Text5.Text
                    bian = bian Or 1000
                End If
                If (vTag.Type = Text10.Text) Or (vTag.Type = "submit") Then
                   vTag.Click
                   Print bian
                    Exit For
                End If
            End If
        Next i
End Sub
忘了给你源码了····贴出来···bian可以去掉，要引用webbrower