永硕E盘 刷人气 v1.5 [VBS 类 POST]

乱码

刚刚在翻前人的帖子，发现"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代码就导致缩进有点不对了，不管了。。

其实这个是一个未完成的类，本来想搞文件下载，自己的加密文件夹里的文件下载功能的，但是写完刷人气就没再写下去了，等以后有心情再继续。。呵呵。

喜欢就评分哦。

onono

好东西啊  珍藏了

m13810859213

源码都上来了，这是c还是vb啊

whirlwind

不孬·，，，一直在刷来！

兔子哥

真厉害，学习分享了

itchings

真是牛仁一个啊

wwcbjs

刷人气 会不会被封？

Cser2

膜拜啊、、不过永硕只需刷新就成、所以我以前写的一秒刷8人次 还绑到我破的外挂上 一天几十W啊

乱码

Cser2 发表于 2012-6-13 17:19
膜拜啊、、不过永硕只需刷新就成、所以我以前写的一秒刷8人次 还绑到我破的外挂上 一天几十W啊

IE对象的话什么都不用考虑，直接刷新就OK了，但是无奈效率太低了。。
POST缺点就是需要提取页面的一些验证数据，然后生成刷访问量的真实地址
最后直接像服务器发送据就好了，所以效率非常高。

凸~~凸

支持啊