论坛灌水脚本 (vbs)
最近发现vbs脚本好玩,就试着写了一个灌水脚本。异常恢复还没有头绪,查资料中...用这个,害得我的帐号被禁言了郁闷。得做个好公民哦!!仅做测试,不要利用这个做坏事哦!!
'Urls
'strUrl="http://bbs.xunlei.com/thread-1699489-1-1.html"
'strUrl="http://bbs.xunlei.com/forum-83-1.html?frameon=no" 'Root 奇闻
'strUrl="http://bbs.xunlei.com/forum-374-1.html?frameon=no" '社会万象
strUrl="http://bbs.xunlei.com/forum-48-1.html?frameon=no" '军事
'strUrl="http://bbs.xunlei.com/forum-64-2.html?frameon=no" '社会万象
'strUrl="http://bbs.xunlei.com/forum-491-2.html?frameon=no" '明星档案
bOK=false '判定重新刷新页面
tmpUrl=""
tmpcounter=0
logUrl="logs.html"
strLocalUrl=replace(WScript.ScriptFullName,WScript.ScriptName,"") '获取脚本运行路径
If Right(strLocalUrl,1)<>"\" then strLocalUrl=strLocalUrl&"\" End if '修正文件路径
set ieLog=CreateObject("InternetExplorer.application") '日志窗口
set ietaget=CreateObject("InternetExplorer.application") '目标窗口
set opIE=CreateObject("InternetExplorer.application") '操作窗口
ieLog.visible=true
opIE.visible=true
ietaget.visible=true
ietaget.navigate strUrl
ieLog.navigate strLocalUrl&logUrl
Do While (ietaget.Busy Or opIE.Busy Or ieLog.busy)
Wscript.Sleep 3000
Loop
Wlog "定位页面成功..."
OutLinks
'Wlog "填写回复内容..."
'ietaget.Document.getElementByID("message").value="恩,很好。顶顶啦啦..呵呵!"
'Wlog "Sleep 3s..."
'Wscript.Sleep 3000
'ietaget.Document.getElementByID("postform").submit()
'Wlog "提交信息完毕!"
'************************
ieLog.quit
opIE.quit
ietaget.quit
'********************functions
Function Wlog(message)
tmpcounter=tmpcounter+1
If tmpcounter<15 Then
ieLog.Document.getElementByID("logs").innerhtml=ieLog.Document.getElementByID("logs").innerhtml&"<br/>"&Time&"-|-"&message
Else
ieLog.Document.getElementByID("logs").innerhtml="<br/>"&Time&"-|-"&message
tmpcounter=0
End If
End Function
Function OutLinks()
Wlog "开始获取链接......"
set alllink=ietaget.Document.links
Wlog alllink.length
except=ieLog.Document.getElementByID("except").innerText
ids=split(except,",")
exists=false
For Each link in alllink
exists=False
For i=0 to Ubound(ids)
if(Instr(link.href,ids(i))>0) Then
exists=True
End IF
Next
If (Instr(link.href,"thread")>0) and (Instr(link.href,"html")>0) and (link.href<>tmpUrl) and (not exists) Then
Wlog "正在处理链接"&link.href
tmpUrl=link.href
Wlog ">>进入"&link.href
Do While (opIE.Busy)
Wscript.Sleep 3000
Loop
opIE.navigate link.href '
Do While (opIE.Busy)
Wscript.Sleep 3000
Loop
For i=0 to 3
title=Replace(opIE.Document.Title," ","")
title=Replace(title,"InternetExplorer","")
IF (Instr(title,"无法显示")>0) Then
opIE.Refresh
Else
bOK=True
Exit for
End IF
Do While (opIE.Busy)
Wscript.Sleep 3000
Loop
bOK=False
Next
IF bOK Then
Wlog "添加回复信息..."
opIE.Document.getElementByID("message").value= ieLog.Document.getElementByID("outInfo").value
Wscript.Sleep 3000
Wlog "准备提交数据..."
opIE.Document.getElementByID("postform").submit() '提交表单
Wlog "处理完毕...................................."
Wscript.Sleep 3000
End IF
End IF
IF (Instr(link.href,"forum")>0) and (Instr(link.href,"html")>0) Then
Wlog "遇到分页了>>>>>>>>>>>>>"
End IF
Next
Wlog "*******************************操作数据完毕***********************"
End Function