用VB.NET做个自动发帖机
2066 2004-05-12 08:02:06 用VB.NET做个自动发帖机
http://www.csdn.net/Develop/read_article.asp?id=23735
关键字 vb.net,Microsoft Visual Studio .NET 2003,自动发帖,axwebbrowser,httpwebrequest
用VB.NET做个自动发帖机
屠恩海(SunHai)
题记:如果你经常泡各种论坛发表宏论,如果您想把您的软件在极短时间内提交到有关网站,如果您想把您的网站快速登陆各搜索引擎,本篇文章可能对您有所帮助。
开发工具:Microsoft Visual Studio .NET 2003
操作系统:Windows XP
不编程实现自动发帖
不编程也能实现自动发贴?
答案肯定的。2003年10月前,我还未学习编程(VB6),但我已经实现自动发贴。虽然现在我已不用这种方法,但可能对有些朋友有用,还是在此介绍一下实现方法。
实现原理是:借用模拟键盘、鼠标操作的软件,抓取输入框座标,然后模拟移动鼠标到指定座标,模拟键盘输入字符,模拟回车或点击相应位置完成自动发贴。当然,你得编写相应自动化脚本,虽有一点难度,但对于编程来说,应该是简单的。
有三个模拟键盘、鼠标类软件,功能比较好,在《VS.NET学习方法论》已经有所介绍。
一. PCWorker(http://www.pcworker.net)
PCWorker功能极多,更重要的是,PCWorker中的脚本代码都是看得懂的代码:
Press VK_F1 // 模擬按 F1 鍵
Press VK_CTRL+VK_F // 模擬按 Ctrl + F 鍵
是不是不太难?
二. “按键精灵”(http://www.vrbrothers.com/cn/qmacro)
相对来说,按键精灵容易使用,但只有PCWorker的少部分功能。比如PCWorker可输出随机数,按键精灵就不行。
按键精灵的脚本代码不太容易看懂,比如
KeyPress 82 1
您看得出按的是哪个键吗?
三. EzScript(http://ezscript.seed.cx/)
EzScript的功能也很多。但我在Windows XP下试用自动发贴时,没有反应。
初学者建议使用按键精灵,进阶则用PCWorker。使用教程请参考作者网站。
用AxWebBrowser控件实现自动发帖
AxWebBrowser控件即VB6中的WebBrowser控件。
使用时先添加对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通知我
webTag.checked = True
End Select
End Select
End Select
Next
brow.Document.forms(0).submit() '许多网页表单,这一句简单代码即实现自动提交
End Sub