QQ Maill用户可以通过登录、发邮件操作来获取QQ Maill的积分；用户可以通过使用积分换取个性化邮箱功能和服务。为了QQ信箱积分，每天我们要登录20次或者发送邮件才能积满20分。这样即辛苦有浪费时间，为什么步做个Windows脚本程序呢来为我们效劳呢？
Set Wshell=WScript.CreateObject("WScript.Shell")
AppName="QQ邮箱"
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=True
For i=1 To 20 Step 1
ie.navigate "http://m6.mail.qq.com/cgi-bin/login"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.Document.form1.u.value="QQ账号"
ie.Document.form1.p.value="QQ密码"
WShell.SendKeys "~" ' 回车
Wscript.Sleep 5000 ' 根据自己的网速确定等待时间
Wshell.SendKeys "^W" ' 关闭IE窗口
Next
只要将以上的代码复制成记事本中，并把账号，密码作相应修改，另存为QQmail.vbs
双击该文件即可运行，并自动登陆20次，赚取当天所有的QQ信箱积分
