上一篇
下一篇
VBS自动顶贴代码
作者:刚子 日期:2008-11-15
原理很简单，首先手动登陆论坛，然后配置好顶贴地址（需要开启了快速回复的论坛），运行程序时可自动输入评论内容并提交。没什么技术含量，不过可以应用到更多地方，有两个参数正确就可以，一个是评论内容的文本框表单ID，另外一个是提交按钮的ID。
下面代码是配置好的DZ论坛，请参考
程序代码
下面代码是配置好的DZ论坛，请参考
程序代码On Error Resume Next
Const URL = "http://bbs.admin5.com/thread-2800997-1-1.html"
Const interval = 15
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate2 URL
IE.Visible = True
WScript.Sleep 3000
Do
IE.Document.GetElementById("fastpostmessage").innerHTML = "Hello world"
WScript.Sleep interval \ 2
IE.Document.getElementById("fastpostsubmit").click
WScript.Sleep interval \ 2
Loop
Const URL = "http://bbs.admin5.com/thread-2800997-1-1.html"
Const interval = 15
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate2 URL
IE.Visible = True
WScript.Sleep 3000
Do
IE.Document.GetElementById("fastpostmessage").innerHTML = "Hello world"
WScript.Sleep interval \ 2
IE.Document.getElementById("fastpostsubmit").click
WScript.Sleep interval \ 2
Loop
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论