死循环的,所以使用前需要开开任务管理器以便在使用结束后杀掉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]