标题:关于动网论坛灌水机的代码,请能看明白的指教,代码如下。
只看楼主
forest8888
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2004-11-12
 问题点数:0 回复次数:2 
关于动网论坛灌水机的代码,请能看明白的指教,代码如下。

Dim HtmlTempText As String

Private Sub Command1_Click()

Me.WebBrowser1.Navigate Me.Text1.Text

'Form1.Show

' Me.WebBrowser1.SetFocus

End Sub

Private Sub Form_Load()

'Form1.Show

'Me.WebBrowser1.SetFocus

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

WebBrowser1.SetFocus

Dim doc As Object

Set doc = WebBrowser1.Document

If InStr(doc.body.innerText, Text3.Text) > 0 Then

doc.All.Item("FontSize").focus

Dim objHtml As Object

Set objHtml = doc.body.createTextRange()

If Not IsNull(objHtml) Then

HtmlTempText = objHtml.htmlText

Text2.Text = HtmlTempText

End If

Dim tmp As String

tmp = "fasdfasdfsfd"

'Dim aa As Long

'aa = PostMessage(Me.WebBrowser1.hwnd, &H100, 9, 0)

SendKeys "{tab}"

SendKeys tmp

'SendKeys "{tab}"

' SendKeys "{tab}"

' 'doc.All.Item("Submit").focus

'SendKeys "{enter}"

Dim str As String

str = "asdf"

SendKeys "^{enter}"

End If

If InStr(doc.body.innerText, "fasdfasdfsfd") > 0 Then

doc.All.Item("FontSize").focus

tmp = "fasdfasdfsfd"

'Dim aa As Long

'aa = PostMessage(Me.WebBrowser1.hwnd, &H100, 9, 0)

SendKeys "{tab}"

SendKeys tmp

'SendKeys "{tab}"

' SendKeys "{tab}"

' 'doc.All.Item("Submit").focus

'SendKeys "{enter}"

SendKeys "^{enter}"

End If

If InStr(doc.body.innerText, "错误信息") > 0 Then

Me.WebBrowser1.Navigate Me.Text1.Text

End If

End Sub

上面的代码中有许多注释掉的语句,是我调试的时候注释掉的,你将该代码原封不动的拷到VB下就可以用了,注意Text1.Text的内容是你要灌水贴的网址如:

http://bbs.wwenglish.org/dispbbs.asp?boardID=73&ID=39431&page=1

在灌水之前,你要先登陆,取得灌水的权利。还有非常重要的一点是Text3.Text的内容是该帖子页面上典型文字,说白了就是该页面上一行或半行文字,以使程序确认该页面,比如帖子中的文字“考研翻译资料系列”之类的。 ==========不明白的地方有:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

这是一个什么控件? 注意Text1.Text的内容是你要灌水贴的网址如:

http://bbs.wwenglish.org/dispbbs.asp?boardID=73&ID=39431&page=1 这句要怎么改?我把text1.text改成了网站地址却不正确!

搜索更多相关主题的帖子: 水机 代码 指教 
2005-07-01 16:28
Srin
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2005-5-11
得分:0 
WebBrowser1_DocumentComplete
做IE浏览器的控件。。我用他做过浏览器。。
2005-07-04 00:33
静夜思
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:济南的冬天
等 级:管理员
威 望:11
帖 子:8842
专家分:2567
注 册:2004-3-25
得分:0 
论坛的秩序都是你这种人给搅和乱的

畅所欲言
2005-07-04 08:50



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-21968-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.421183 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved