永硕E盘 刷人气 v1.5 [VBS 类 POST]
本帖最后由 乱码 于 2012-6-13 17:50 编辑刚刚在翻前人的帖子，发现"N-ray"兄弟写了篇文章叫
Ｘy.永硕网盘人气大师 V5.0【新春佳节版】
http://www.52pojie.cn/thread-147578-1-1.html
看了下，应该是IE对象的刷新，2秒刷一次的。
我来凑个热闹，发一篇VBS POST版的"永硕网盘人气大师"
100 人气耗时一般在 6-8 秒，有时候会有掉包，但是还是相当稳定的，
我自己的网盘测试时都刷了 200W ,最快的一次1小时大约 10W 哦。
现在献上源码，希望大家喜欢。。
On Error Resume Next
Set ys = New YSEP
Tstart=Timer
ys.GetzCode
For i=1 To ys.iCount
newSoc = ys.PostYS
If oldSoc = newSoc Then ys.GetzCode
oldSoc = newSoc
WScript.StdOut.Write newSoc & vbTab
Next
Tend=Timer
ys.Pause "当前人气：" & newSoc & ", 共刷了 " & ys.iCount & " 人气,耗时: " & Tend-Tstart & " 秒." & vbCrLf & "按回车键结束..."
Class YSEP'永硕E盘 刷人气类 v1.5
Private user, z, cx, wml, RegEx, http
Public iCount
'主要功能：
'无限刷空间流量,失败自动重新连接...
'更新了服务器选择,以及返回数据的提取
'Author: 乱码
'Website: ******(和谐掉好了，不然算违规怎么办。。。)
'Date: 2012-05-03
Private Sub Class_Initialize'类初始化事件
CmdMode "永硕E盘 动作类 V1.5 测试版.","3f"
Set http = CreateObject("Msxml2.ServerXMLHTTP.3.0")
Set RegEx = New RegExp ' 创建正则表达式(用于匹配网页内容)
RegEx.IgnoreCase = False ' 设置是否区分大小写。
RegEx.Global = True ' 设置是否区分搜索全局。
WScript.StdOut.Write "请输入用户名:"
user = WScript.StdIn.ReadLine
RegEx.Pattern="[\r\n]"
user = RegEx.Replace(user,"")
If user = "" Then WScript.Quit
WScript.Echo ""
WScript.StdOut.Write "刷流量的次数:"
iCount = WScript.StdIn.ReadLine
If iCount = "" Then iCount = 1000
WScript.Echo ""
End Sub
Private Sub Class_Terminate'类结束事件
Set RegEx = Nothing
Set http = Nothing
End Sub
Public Function GetzCode() '读取空间特征码,刷访问量用
wml = HttpGET("http://" & user & ".ys168.com")
RegEx.Pattern = "z=([^""]+)"
z = RegEx.Execute(wml).Item(0).Submatches(0)
RegEx.Pattern = "(.\d)\.ys168"
cx= RegEx.Execute(wml).Item(0).Submatches(0)
End Function
Public Function PostYS() '刷访问量函数并返回当前访问量
HttpGET "http://" & cx & ".ys168.com/Ccenter.aspx?z=" & z & "&tp=http://zy.ys168.com/tp"
html = HttpGET("http://" & cx & ".ys168.com/C_zxsj.aspx?dlmc=" & user & "&a=")
regex.Pattern="(.)\d+"
s = regex.Execute(html).Item(0).Submatches(0)
PostYS = Split(html,s)(2)
End Function
Public Function HttpGET(url) '发送GET请求
http.open "GET", url, False
http.send
HttpGET = http.responseText
End Function
Public Function Pause(msg) '暂停函数
WScript.Echo ""
WScript.Echo msg
WScript.StdIn.ReadLine
End Function
Private Function CmdMode(ByVal title,ByVal color) '强制以命令行模式运行
If LCase(Right(WScript.FullName,11))="wscript.exe" Then
With CreateObject("Wscript.Shell")
.Run "cmd /c title "&title&"&color "&color&"&Cscript//Nologo """ & WScript.ScriptFullName & """"
.Run "taskkill /f /im cmd.exe",0
End With
WScript.Quit
End If
End Function
End Class
排版问题有点严重，明明都是对的格式，搞成UBB代码就导致缩进有点不对了，不管了。。
其实这个是一个未完成的类，本来想搞文件下载，自己的加密文件夹里的文件下载功能的，但是写完刷人气就没再写下去了，等以后有心情再继续。。呵呵。
{:301_987:}喜欢就评分哦。
好东西啊珍藏了 源码都上来了，这是c还是vb啊 不孬·，，，一直在刷来！ 真厉害，学习分享了 真是牛仁一个啊 刷人气 会不会被封？ {:1_900:}膜拜啊、、不过永硕只需刷新就成、所以我以前写的一秒刷8人次 还绑到我破的外挂上 一天几十W啊 Cser2 发表于 2012-6-13 17:19 static/image/common/back.gif
膜拜啊、、不过永硕只需刷新就成、所以我以前写的一秒刷8人次 还绑到我破的外挂上 一天几十W啊
IE对象的话什么都不用考虑，直接刷新就OK了，但是无奈效率太低了。。
POST缺点就是需要提取页面的一些验证数据，然后生成刷访问量的真实地址
最后直接像服务器发送据就好了，所以效率非常高。 支持啊