论坛灌水脚本 (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

你可能感兴趣的:(vbs)