VBS脚本之酷我每日领取积分

乱码

先看图...


下面是VBS代码，简单易懂，我已经处理成最简单的了，
本来还想用VBS处理json的，可是很多系统不支持，
无奈，直接上正则表达式了。

这个脚本的作用是代替手工每天随机听歌领取150积分用的。

user = "酷我音乐帐号"
pass = "酷我音乐密码"

Set http = CreateObject("Msxml2.XMLHTTP")
Set regex = New RegExp
regex.IgnoreCase = True
regex.MultiLine = True
If login Then
    Randomize
    Scores = getScore
    MsgBox "当前积分: " & Scores(0),64+4096,"提示"
    For i = 0 To 2
        If InStr(getChrist,"602") Then
            MsgBox "已经领取过了！",48+4096,"失败"
            WScript.Quit
        End If
    Next
    Scores1 = getScore
    MsgBox "领取完毕！" & vbCrLf & vbCrLf & _
    "当前积分: " & Scores1(0) & " ，增加了: " & Scores1(0) - Scores(0) & vbCrLf & vbCrLf & _
    "还差 " & Scores1(1) & " 分，升到 " & Scores1(2) & " 级。",64+4096,"成功"
Else
    MsgBox "登录失败！",16+4096,"失败"
End If

Function login() '登录
    http.open "POST", "http://kzone.kuwo.cn/mlog/st/LoginBox", False
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    http.send "username=" & user & "&password=" & pass & "&useCookie=1"
    wml = http.responseText
    login = InStr(wml, "登录成功")
End Function

Function getChrist() '听歌赚积分，每日3次
    http.open "GET", "http://kzone.kuwo.cn/mlog/getChrist?_=" & Rnd, False
    http.send
    getChrist = http.responseText
End Function

Function getScore() '读取积分
    http.open "GET", "http://mboxspace.kuwo.cn/ucm/st/userScore?_=" & Rnd, False
    http.send
    html = http.responseText
    regex.Pattern="score':'(\d+)"
    If regex.Test(html) Then score = regex.Execute(html).Item(0).Submatches(0)
    regex.Pattern="scoreToNext':'(\d+)"
    If regex.Test(html) Then scoreToNext = regex.Execute(html).Item(0).Submatches(0)
    regex.Pattern="nextLevel':'(\d+)"
    If regex.Test(html) Then nextLevel = regex.Execute(html).Item(0).Submatches(0)
    getScore = Array(score,scoreToNext,nextLevel)
End Function

cnzyy

沙发啊。脚本不错啊！

nilinweiwo

虽然看不太懂但是肯定是好东西   支持

449219454

酷我？还是酷狗啊？楼主

乱码

449219454 发表于 2012-4-24 22:02
酷我？还是酷狗啊？楼主

酷我音乐盒啊，每天能领取150积分和财富值。

九加一

这个也能这样做？

九加一

还真的可能呀，第一次使用VBS，以前只用VBA

乱码

九加一 发表于 2012-4-25 09:45
还真的可能呀，第一次使用VBS，以前只用VBA

VBS很强大哦，吾爱论坛挂机，115摇奖，酷我空间刷访问量，等等，都很简单就能实现了。
看看我的在线时间，你懂的。

石林子

好东西啊。。

傻b控、

酷我？还是酷狗啊？楼主