webbrowser控件代码

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

[vb] view plaincopyprint?

1. Public Class Form1  
2.     Private blnSend As Boolean = False '发送检测  
3.     Private blnCheck As Boolean = False '别人检测  
4.     Private iCountSend As Integer = 0    '发送次数  
5.   
6.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick  
7.         WebBrowser1.Navigate("http://www./yule/")  
8.     End Sub  
9.   
10.     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick  
11.         blnSend = True  
12.         WebBrowser2.Navigate("http://www./yule/b825399/")  
13.   
14.         Timer2.Enabled = False  
15.     End Sub  
16.   
17.     Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted  
18.         If blnCheck = False Then  
19.             Exit Sub  
20.         Else  
21.             If Not WebBrowser1.IsBusy And WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then  
22.                 Dim Table As HtmlElement = WebBrowser1.Document.All("td_825399")  
23.                 WebBrowser1.Document.GetElementById("td_825399").Focus()  
24.                 If Table Is Nothing Then Exit Sub  
25.                 Table = Table.NextSibling  
26.                 Table = Table.NextSibling  
27.                 Table = Table.NextSibling  
28.                 TextBox1.Text = Table.InnerText  
29.   
30.                 If InStr(TextBox1.Text, "dzweather") = 0 Then  
31.                     blnCheck = False  
32.                     Timer1.Enabled = False  
33.                     blnSend = True  
34.                     iCountSend = 0  
35.                     WebBrowser2.Navigate("http://www./yule/b825399/")  
36.                 End If  
37.             End If  
38.         End If  
39.     End Sub  
40.   
41.     Private Sub WebBrowser2_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted  
42.         If blnSend = False Then  
43.             Exit Sub  
44.         Else  
45.             If Not WebBrowser2.IsBusy And WebBrowser2.ReadyState = WebBrowserReadyState.Complete Then  
46.                 blnSend = False  
47.                 WebBrowser2.Document.GetElementById("go_lastpage").Focus()  
48.                 WebBrowser2.Document.All("textarea").InnerText = "新春快乐，马年吉祥" & Int(100 * Rnd()).ToString  
49.                 WebBrowser2.Document.All("Submit").InvokeMember("click")  
50.   
51.                 iCountSend += 1  
52.                 TextBox2.Text = iCountSend  
53.                 If iCountSend = 1 Then  
54.                     Timer2.Enabled = True  
55.                 Else  
56.                     blnSend = False  
57.                     Timer2.Enabled = False  
58.   
59.                     blnCheck = True  
60.                     iCountSend = 0  
61.                     Timer1.Enabled = True  
62.   
63.                     TextBox1.Text = ""  
64.                 End If  
65.             End If  
66.             End If  
67.     End Sub  
68.   
69.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
70.         blnCheck = True  
71.         Timer1.Enabled = Enabled  
72.     End Sub  
73.   
74.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
75.         Randomize()  
76.         WebBrowser1.ScrollBarsEnabled = True  
77.         WebBrowser1.ScriptErrorsSuppressed = True  
78.         WebBrowser1.Navigate("http://www./yule/") '为了登录  
79.   
80.   
81.         WebBrowser2.ScrollBarsEnabled = True  
82.         WebBrowser2.ScriptErrorsSuppressed = True  
83.     End Sub  
84.   
85. End Class