webbrowser控件代码

最多连续两回复。10秒内不得发两贴。

Public Class Form1
    Private blnSend As Boolean = False '发送检测
    Private blnCheck As Boolean = False '别人检测
    Private iCountSend As Integer = 0    '发送次数

    Private Sub Timer1_Tick(sender As Object,e As EventArgs) Handles Timer1.Tick
        WebBrowser1.Navigate("http://www.myboyan.com/yule/")
    End Sub

    Private Sub Timer2_Tick(sender As Object,e As EventArgs) Handles Timer2.Tick
        blnSend = True
        WebBrowser2.Navigate("http://www.myboyan.com/yule/b825399/")

        Timer2.Enabled = False
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object,e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If blnCheck = False Then
            Exit Sub
        Else
            If Not WebBrowser1.IsBusy And WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                Dim Table As HtmlElement = WebBrowser1.Document.All("td_825399")
                WebBrowser1.Document.GetElementById("td_825399").Focus()
                If Table Is Nothing Then Exit Sub
                Table = Table.NextSibling
                Table = Table.NextSibling
                Table = Table.NextSibling
                TextBox1.Text = Table.InnerText

                If InStr(TextBox1.Text,"dzweather") = 0 Then
                    blnCheck = False
                    Timer1.Enabled = False
                    blnSend = True
                    iCountSend = 0
                    WebBrowser2.Navigate("http://www.myboyan.com/yule/b825399/")
                End If
            End If
        End If
    End Sub

    Private Sub WebBrowser2_DocumentCompleted(sender As Object,e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted
        If blnSend = False Then
            Exit Sub
        Else
            If Not WebBrowser2.IsBusy And WebBrowser2.ReadyState = WebBrowserReadyState.Complete Then
                blnSend = False
                WebBrowser2.Document.GetElementById("go_lastpage").Focus()
                WebBrowser2.Document.All("textarea").InnerText = "新春快乐，马年吉祥" & Int(100 * Rnd()).ToString
                WebBrowser2.Document.All("Submit").InvokeMember("click")

                iCountSend += 1
                TextBox2.Text = iCountSend
                If iCountSend = 1 Then
                    Timer2.Enabled = True
                Else
                    blnSend = False
                    Timer2.Enabled = False

                    blnCheck = True
                    iCountSend = 0
                    Timer1.Enabled = True

                    TextBox1.Text = ""
                End If
            End If
            End If
    End Sub

    Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
        blnCheck = True
        Timer1.Enabled = Enabled
    End Sub

    Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load
        Randomize()
        WebBrowser1.ScrollBarsEnabled = True
        WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser1.Navigate("http://www.myboyan.com/yule/") '为了登录


        WebBrowser2.ScrollBarsEnabled = True
        WebBrowser2.ScriptErrorsSuppressed = True
    End Sub

End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!