写在前面：这个脚本是我以前在页游《龙狼三国》里用来“双培养”的，当时给它起了个名字叫Xenia
双培工具可以在这个地址下载到：http://pan.baidu.com/s/1eQkt7EU
1.关于双培工具（Xenia）
Xenia是专为游戏《龙狼三国》将领双培养制作的测试工具。龙狼三国的培养界面如下图：
单击“培养”按钮后游戏会随机生成四个数字作为新属性的增加值，由于绝大多数情况下都是减多增少，单项培养（即只提升四个属性中的一个属性）也需要花费不少时间，双培养甚至多培养自不必多说。Xenia的基本思路是根据新属性的颜色判定是否应该培养。游戏中徒手培养的策略是“智力增加值+魅力增加值>0”时培养，否则放弃。由于游戏后期培养需要花费的军功已经高度充裕，且在计算机自动操作时，对时效的要求并不是非常的高，因此Xenia培养时采用了“智力增加值>0且魅力增加值>0”的策略自动培养，判断是否增加则通过颜色来判定。
2.脚本运行流程
Xenia脚本的运行流程如下：
1）鼠标单击武将培养界面“培养”按钮
2）查看待培属性的增减情况
3）通过对比颜色（绿增红减）判断属性增加或减少，如果智力和魅力都不减少则接受本次培养，否则拒绝
3.按键小精灵程序界面
1）上方的测试区，输入一个坐标，单击“测试坐标”按钮，鼠标会自动挪向指定区域，后方会自动捕获该点的颜色。通过这个区域可以测试出操作区需要的点位和培养点的颜色信息。
2）下方操作区，存放的是精灵运行期间程序各个动作的参数。颜色区是两个培养点数值下降色（游戏中为红色），如果两个属性的培养颜色都不吻合下降色，程序就会接受本次培养，反之则不接受。
4.控件布局
5.脚本代码
Delay 500 MoveTo Form1.txtTrainX.Text, Form1.txtTrainY.Text LeftClick 1 Delay 500 If GetPixelColor(Form1.txtPointAX.Text, Form1.txtPointAY.Text) _ = Form1.txtReduceColorA.Text and _ GetPixelColor(Form1.txtPointBX.Text, Form1.txtPointBY.Text) _ = Form1.txtReduceColorB.Text _ Then MoveTo Form1.txtMaintainX.Text, Form1.txtMaintainY.Text LeftClick 1 Else MoveTo Form1.txtAbortX.Text, Form1.txtAbortY.Text LeftClick 1 End If Event Form1.btnSetMouse.Click //X坐标不能为空 If Form1.txtAxisX.Text = "" Then Form1.lblConclusion.Caption = "X坐标不能为空" Exit Event End If //Y坐标不能为空 If Form1.txtAxisY.Text = "" Then Form1.lblConclusion.Caption = "Y坐标不能为空" Exit Event End If //移动鼠标 MoveTo Form1.txtAxisX.Text, Form1.txtAxisY.Text Dim x, y, Color //得到当前鼠标的坐标位置 并保存到变量x,y中 GetCursorPos x, y //得到指定坐标位置的颜色 并保存到变量color中 Color=GetPixelColor(x,y) Form1.lblConclusion.Caption = _ "坐标为:" & x & "," & y & " 颜色为:" & Color End Event
注意：这段脚本可以编译通过，但是在按键精灵的“普通”界面中查看的代码说明中会显示错误（至少我现在用的按键精灵2014还会报错）。该界面5-8行的四个下划线-即BASIC脚本用于将语句分多行书写的下划线-并不能被按键精灵“普通”界面正确翻译，但这并不影响脚本编译和运行。
END