收竹子脚本

⑴ 现在做微信挂机项目能赚到钱吗

前段时间有朋友加我微信问到我微信挂机这个项目，既然有人对这个好奇，那我就把它分享出来让大家都可以了解一下。

1. 微信号赚钱的那些方法

在说微信挂机项目之前，我觉得很有必要给大家说一下微信号赚钱的方式，因为有了这个方面的了解之后，大家才能更好的理解微信挂机的盈利在哪里。

① 微信站街

一直关注我们的朋友应该很清楚流量的重要性，虽然关于微信号站街这方面的东西我们基本没怎么说过，但这不代表站街这条路子不可行。所谓微信号站街，其实就是点开附近的人，让用户可以在这个页面看到你。这就跟在站在大街上举个广告牌吸引路过的人群是一个意思。

但实际上，阅读量和关注的价格并没有这么高。在一些专门的平台上，我们可以看到，即使是普通用户都可以拿到比某宝提供的更低的价格。而这些商家实际上就是在利用这个信息差来进行赚钱。

同时我自己也有这样的一个设想，某宝上的这些店铺，是否可能就是这些微信挂机平台的运营者们自己开的呢？他们利用挂机为由，借用用户们的微信号自己来做这个赚钱的项目。

我们初步的算一下，平均每一个微信号，通过站街、漂流瓶获得的收入大概在每天20元钱左右，那么一千个微信号的收入就是20000元。这一千个微信号还能为众多公众号提供1000的粉丝，以及1000的阅读量。假设只有三个公众号购买这样的服务，按照某宝的价格来算，挂机平台还能够盈利125X3=375元以及40X3=120元。

但实际上，通过挂机平台获得这一千个微信号，所需要的成本也仅仅只有1000X3=3000元。那么这样算下来1000个挂机微信号能够为挂机平台提供的收益就达到了20000+375+120-3000=17495元。

这些挂机平台的搭建背后所需要的技术成本并不需要太高。其中比较重要的是微信的授权功能、支付转账功能。同时这些平台也会设置一个提现门槛，例如低于10元不得提现。那么就会存在用户始终有一部分钱无法取出。而这些钱最后也会成为平台的收益。

挂机平台在获得这些微信号之后，完全可以通过群控设备或者脚本与模拟器来进行操作。因此从成本投入上来说，不需要大量的人工，取而代之的更多应该是设备上的投入，以及运营成本和服务器成本。

因此我个人认为，怕麻烦的用户可以自己申请注册大量的微信号，并进行一段时间的养号，然后授权给挂机平台，让他们操作自己来获得他们返利的佣金。

同样的，有一定技术水平以及资金的朋友，可以尝试着自己组建一个团队来运营这样的微信挂机平台，这背后的利润也是相当暴利的。

总的来说，微信挂机赚钱是一个可以去操作的项目，虽然一定程度上是在给别人做嫁衣，但是也确实是一个能够实现少量收入的躺赚项目。对于很多拥有大量微信号，却不知道该如何变现的朋友来说，这同样是一个可以用来赚钱的路子。

赚钱的方式其实很多，一种是用劳动力来获得报酬，成为别人的资源。第二种就是收集这些提供劳动力的人，利用他们的资源来获得更大的收益。第三种就是利用信息差，将同样的货物低价买入，高价卖出。

所以在互联网上面赚钱，一定要思路开阔，不能仅仅只局限于一种方法。同样的一个项目，他可能会是一条产业链，而在这条产业链的每一个环节上，都有可能成为我们可以操作的暴利项目。

⑵ 求明珠三国按键精灵后台脚本

楼主满意否？
[General]
Description=精简采集脚本
BeginHotkey=119
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=0
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
denglu=0
dongzuo=0
Rem 开始
MessageBox "请按数字键选择需执行的种类(鼠标指向需要执行脚本的模拟器画面.).1:玛瑙,2:粗皮3:竹子4:麻布5:铁矿"
WaitKey X
//玛瑙
If X=49
MessageBox " 类型:玛瑙"
Gosub 探测玛瑙
Else
EndIf
//粗皮
If X=50
MessageBox " 类型:粗皮"
Gosub 探测粗皮
Else
EndIf
//竹子
If X=51
MessageBox " 类型:竹子"
Gosub 探测竹子
Else
EndIf
//麻布
If X=52
MessageBox " 类型:麻布"
Gosub 探测麻布
Else
EndIf
//铁矿
If X=53
MessageBox " 类型:铁矿"
Gosub 探测铁矿
Else
EndIf
MessageBox "错误请重选."
Goto 开始
Sub 探测玛瑙
Plugin ABC=Window.MousePoint()
Rem 1
Plugin XY = Bkgnd.FindCenterColor(ABC,10,10,640,480,"93A4AB")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Plugin XY = Bkgnd.FindCenterColor(ABC,10,10,640,480,"8E7865")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Gosub 采集开始
EndIf
EndIf
Gosub 取消邀请
Goto 1
Return
Sub 探测粗皮
Plugin ABC=Window.MousePoint()
Rem 2
Plugin XY = Bkgnd.FindCenterColor(ABC,10,10,640,480,"445FC6")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Plugin XY = Bkgnd.FindCenterColor(ABC,10,10,640,480,"0F122C")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Gosub 采集开始
EndIf
EndIf
Gosub 取消邀请
Goto 2
Return
Sub 探测竹子
Plugin ABC=Window.MousePoint()
Rem 3
Plugin XY = Bkgnd.FindCenterColor(ABC,0,0,240,320,"2FB631")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Plugin XY = Bkgnd.FindCenterColor(ABC,0,0,240,320,"3FE444")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Gosub 采集开始
EndIf
EndIf
Gosub 取消邀请
Goto 3
Return
Sub 探测麻布
Plugin ABC=Window.MousePoint()
Rem 4
Plugin XY = Bkgnd.FindCenterColor(ABC,0,0,240,320,"0E87F8")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Plugin XY = Bkgnd.FindCenterColor(ABC,0,0,240,320,"0452E5")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Gosub 采集开始
EndIf
EndIf
Gosub 取消邀请
Goto 4
Return
Sub 探测铁矿
Plugin ABC=Window.MousePoint()
Rem 5
Plugin XY = Bkgnd.FindCenterColor(ABC,0,0,240,320,"8E7865")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Plugin XY = Bkgnd.FindCenterColor(ABC,0,0,240,320,"82A1E9")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Gosub 采集开始
EndIf
EndIf
Gosub 取消邀请
Goto 5
Return
//共享组件
Sub 采集开始
Plugin Bkgnd.KeyPress(ABC,113)
Delay 50
Plugin Bkgnd.KeyPress(ABC,192)
Delay 50
Plugin Bkgnd.KeyPress(ABC,13)
Delay 20000
Return
Sub 取消邀请
Plugin YAOQING = Bkgnd.GetPixelColor(ABC,11,151)
If YAOQING="6DD7FF"
Plugin XY = Bkgnd.FindCenterColor(ABC,10,100,60,140,"0000FF")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Plugin XY = Bkgnd.FindCenterColor(ABC,10,100,60,140,"FF0000")
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X=-1
Else
Delay 1000
Plugin Window.SendKeyPress(ABC,40)
Delay 1000
Plugin Window.SendKeyPress(ABC,13)
Delay 2000
EndIf
Else
Delay 1000
Plugin Window.SendKeyPress(ABC,13)
Delay 2000
EndIf
Else
EndIf
Delay 800
Return