ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > 非Office软件 > 手把手教你做自动进行投票评分的脚本

手把手教你做自动进行投票评分的脚本

作者:绿色风 分类: 时间:2022-08-18 浏览:235
楼主
轩辕轼轲
看到网站在凤凰网上的打分投票,一天只能评一次,每天都去这个网址,比较麻烦,关键是有可能会忘记,我这个人比较懒,总喜欢“自动”,于是自己写了个脚本进行评分投票。现在把制作评分投票脚本的方法和过程发上来共享一下,如果以后大家再遇到单项投票的时候,可以按照这个方法用脚本投票。如果服务器不限制IP的话,你甚至可以一次性投上几十万票。当然我们还是鼓励正常投票,别因为刷票而被服务器**。我写脚本只是为了避免枯燥重复的操作,当然最关键的还是为了防止那天忘记投票了。
且看如何制作的:
第一步:
打开
第二步:
新建一个记事本文件,将下面的代码复制进去,另存为“投票脚本.vbs”

  1. On Error Resume Next
  2. Const ForWriting = 2
  3. strURL="http://bbs.ifeng.com/api/bbs100/updateScore.php?score=5&bbsid=973"
  4. Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  5. objHTTP.Open "GET", strURL, FALSE
  6. objHTTP.Send
  7. Set objFSO = CreateObject("Scripting.FileSystemObject")
  8. Set objFile = objFSO.CreateTextFile("script_center.htm", ForWriting)
  9. objFile.Write objHTTP.ResponseText
  10. objFile.Close
第三步:
新建一个记事本文件,将下面的代码复制进去,另存为“每天自动评分.bat”

  1. @echo off
  2. ::这是一个可以循环3次的批处理,为了防止网络拥塞,设置重试三次
  3. :loop
  4. set /a num+=1
  5. if %num%==3 (
  6. goto exit
  7. )
  8. 投票脚本.vbs
  9. echo 这是第 %num% 次运行
  10. goto loop
  11. cls
  12. :exit
第四步:
在控制面板的计划任务里面添加新任务,如下图所示:

 

至此,每天上午10点,操作系统就会自动帮我投票,懒人又完成了一件懒事!


PS,如果服务器不限制IP的话,你可以让脚本循环上个上万次,哈哈,友情提示,这样的话要祈祷别被**了哦!
投票.rar
2楼
积少成多
3楼
优优
怎么评分呢
4楼
轩辕轼轲
Feng sha 这两个字原来是会被社区和谐掉的
5楼
海洋之星
教教咋用啊,弄个动画,
6楼
wise
有操作过程了
7楼
轩辕轼轲
 
8楼
kevinchengcw
学习一下php的用法,不会
9楼
liuguansky
学习下。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap