我是链接
http://pan.baidu.com/s/15q4D3

代码页不长 待会我贴出来吧

自己不看别人吧规还说别人，呵呵，也够极品。

@_尕柒柒柒柒柒

这也需要发到什么外挂集合？还跑到这里喷楼主？楼上真极品…

大家猜一下四楼什么心态呢，还@' 是羡慕呢，是嫉妒呢，还是恨别人会写代码呢

我早上就下载了。。。。。。谢了

你提示一下说可能犯巴龟了别人也能理解，这样打击楼主的积极性好么？

好吧，我够无聊的，水了这么多，最后一句，楼主好可怜。

麻呀，这不是福利么。精了。。。。话说这个怎么用，天天占星都把我手指点断了。没钱充VIP呀。。。。爱死小连朝了。

这。。。这。。。这。。。。连朝妹妹，这个要怎么用呢。。。。你也附加个使用说明啊。。。。。

整个程序设计思路是这样的
让用户选择需要执行的功能，再根据用户选择执行相应代码块
第一部分：
//将句柄定义为全局变量，使用多线程的时候方便调用
Global Hwnd
Hwnd = Plugin.Window.MousePoint()
If Form1.OptionBox1.Value = 1 Then
充能
End If
If Form1.OptionBox2.Value = 1 Then
If Form1.CheckBox1.Value = 1 Then
一键占星
Else
一个个占星
End If
End If
//这就完了 很简单吧

/*
第二部分：
1、随便找个颜色，确定占星窗口的位置
2、判断第一个星星是不是亮的，如果是亮的久点他，不亮就点后面4个，5-4-3-2这样的顺序
3、一共可以放18个星星，那就for循环上面这个指令17次
4、依次点一键卖出、一键合成、确定、输入yes、确定
4、把这些操作放在一个无限循环里，不停的占，直到没钱
*/
Sub 一个个占星
Dim point
XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 1366, 768, "03103F")
point = Split(XY, "|")
X = Clng(point(0)) : Y = Clng(point(1))
While true
For 17
If Plugin.Bkgnd.GetPixelColor(Hwnd, X - 460, Y + 94) = "6D7C7C" Then
Call Plugin.Bkgnd.LeftClick(Hwnd, X - 60, Y + 94) : Delay 50
Call Plugin.Bkgnd.LeftClick(Hwnd, X - 160, Y + 94) : Delay 50
Call Plugin.Bkgnd.LeftClick(Hwnd, X - 260, Y + 94) : Delay 50
Call Plugin.Bkgnd.LeftClick(Hwnd, X - 360, Y + 94)
Else
Call Plugin.Bkgnd.LeftClick(Hwnd, X - 460, Y + 94)
End If
Delay 500
Next
Call Plugin.Bkgnd.LeftClick(Hwnd, X - 113, Y)
Delay 500
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Delay 700
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 500
Call Plugin.Bkgnd.SendString(Hwnd, "yes")
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 500
Wend
End Sub

/*
第三部分：
1、前面几步跟第二部分一样的，获得占星窗口位置
2、点一键占星--一键合成--确定--输入yes--确定
3、放进无限循环
*/
Sub 一键占星
Dim point
XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 1366, 768, "03103F")
point = Split(XY, "|")
X = Clng(point(0)) : Y = Clng(point(1))
While true
Call Plugin.Bkgnd.LeftClick(Hwnd, X - 179, Y)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Delay 700
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 500
Call Plugin.Bkgnd.SendString(Hwnd, "yes")
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 500
Wend
End Sub