矿场定时收矿的小脚本

招财猫(holycat@tj)

只能自动定时收一种矿，本想做个收所有矿的，可惜本人非程序猿出身力不能及，凑合用吧。

1. Dim ie,URL
   
2. URL = "http://www.sjever.net/bbs/kuang.php?mod=mining&op=lingqu&mineid=1&formhash=64d1123o" '要点击的链接，请修改为自己的
   
3. 
   
4. Set ie = CreateObject("internetexplorer.application")
   
5. ie.navigate URL
   
6. ie.Visible = True 'false为不显示IE窗口
   
7. wscript.sleep 10000
   
8. ie.quit
   

复制代码

说明：
1、只支持IE浏览器，且必须将IE设置为默认浏览器。
2、事先登录论坛，且选中自动登录，因此这个脚本只能收一个ID的矿。
3、打开IE，进入矿场，右键点击“领取”按钮，选择属性，将地址（URL）复制下来。
4、下载附件，解压后用记事本编辑，修改代码中的变量URL为刚复制的地址。
5、添加计划任务（不会的请自行百度）：添加3个计划任务，以vps常用的win2003系统为例。
打开：开始-程序-附件-系统工具-任务计划，添加任务计划-浏览并选中编辑好的autoclick脚本，选择每天，起始时间随便设置，下一步，然后输入当前vps用户的密码。
重复上述步骤再添加两个计划任务，时间顺延8个小时即可。

最后：哪位大神能做个自动发送LL图片到QQ的东东？

山之不动(budong@tj)

收两种矿还是有意义的。
感谢分享。我都是按键精灵类软件。。。还要自己找时间弄

风小小(zhubang@tj)

高科技啊，我还是随意收比较随意

招财猫(holycat@tj)

budong@tj 发表于 2017-5-13 09:47
收两种矿还是有意义的。
感谢分享。我都是按键精灵类软件。。。还要自己找时间弄

两种矿。。。你错开时间分别挂两个不同的脚本就行啦。。。
只是在一个脚本中完成收矿-返回-收另一个矿，我不会搞

影月风(ggww@tj)

懒得弄这个，想起来就收吧

中石化(wosa@tj)

这个一定要支持，赞   

牛牛牛牛(tzwhen@tj)

懒人有福了                                                        

薛清风(msf@tj)

如果能自动ll就有福了。                       

慕容风(borings@tj)

我去，这个厉害了。。。 还能自动收矿