吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 6640|回复: 12
收起左侧

[其他转载] VBS脚本之酷我每日领取积分

[复制链接]
乱码 发表于 2012-4-24 09:01
本帖最后由 乱码 于 2012-5-17 10:59 编辑

先看图...
酷我领积分.JPG

下面是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

免费评分

参与人数 2热心值 +2 收起 理由
2彩 + 1 我很赞同!
zxqwe + 1 膜拜大牛..专用VBS

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

cnzyy 发表于 2012-4-24 09:07
沙发啊。脚本不错啊!
nilinweiwo 发表于 2012-4-24 09:10
449219454 发表于 2012-4-24 22:02
 楼主| 乱码 发表于 2012-4-25 09:23
449219454 发表于 2012-4-24 22:02
酷我?还是酷狗啊?楼主

酷我音乐盒啊,每天能领取150积分和财富值。
九加一 发表于 2012-4-25 09:36
这个也能这样做?
九加一 发表于 2012-4-25 09:45
还真的可能呀,第一次使用VBS,以前只用VBA
 楼主| 乱码 发表于 2012-4-25 09:57
九加一 发表于 2012-4-25 09:45
还真的可能呀,第一次使用VBS,以前只用VBA

VBS很强大哦,吾爱论坛挂机,115摇奖,酷我空间刷访问量,等等,都很简单就能实现了。
看看我的在线时间,你懂的。
石林子 发表于 2012-4-26 20:46
好东西啊。。
傻b控、 发表于 2013-5-18 10:14
酷我?还是酷狗啊?楼主
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 警告:本版块禁止灌水或回复与主题无关内容,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-3-29 19:43

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表