vbscript应用实例 – 人人网自动收菜功能

死循环的，所以使用前需要开开任务管理器以便在使用结束后杀掉wscript.exe进程

每4分钟一巡，只有收自己家菜的功能，不能除草除虫浇水偷菜种菜，只适用于夜里熟怕人偷的情况。在使用前需要打开一个浏览器并且登陆手机版的人人网http://m.renren.com/，登陆账号以后运行VBS，然后切换到浏览器界面，保证ALT+D操作可以使光标跳转到地址栏。4分钟以后就会开始第一次的自动收菜。

将以下代码保存为.vbs的文件，双击即可开始使用。建议有一定VBS基础的人使用，出问题我不负责……

[cc lang=”vb”]

Dim WshShell
Set WshShell = WScript.CreateObject(“WScript.Shell”)
do
WScript.Sleep 240000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=0”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=1”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=2”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=3”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=4”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=5”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=6”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=7”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=8”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=9”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=10”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=11”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=12”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=13”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=14”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=15”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=16”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
WScript.Sleep 3000
WshShell.SendKeys “%d”
WScript.Sleep 3000
WshShell.SendKeys “http://mapps.renren.com/happyfarm/?act=harvest&place=17”
WScript.Sleep 3000
WshShell.SendKeys “{ENTER}”
loop

[/cc]