纯属自己写的, 玩同一个游戏的朋友,需要送将的, 把需要送的将改名为送, 然后启动辅助即可
本辅助只支持1024x576 191dpi
附上源码
//本源码初始化分辨率1024x576[夏天]
Dim longX="1024"
Dim longY="576"
//本源码初始化分辨率1024x576[夏天]
//////////////////////获取屏幕分辨率[strat]//////////////////////
Dim MaxX, MaxY
MaxX = GetScreenX()
MaxY = GetScreenY() eg
Function eg
//使用于720*1280分辨率
Dim longX="720"
Dim longY="1280" Dim MaxX, MaxY
MaxX = GetScreenX()
MaxY = GetScreenY() //TracePrint MaxX, MaxY //360,239
Dim lianX, lianY
lianX = MaxX / (longX / 360)
lianY = MaxY / (longY / 239) //TracePrint "获取到联系人图标"
//TracePrint lianX,lianY
//点击
Tap lianX,lianY
End Function
//////////////////////获取屏幕分辨率[end]//////////////////////// Dim time100="100"
Dim time300="300"
Dim time500="500"
Dim time1000="1000"
Dim time1500="1500"
Dim time2000="2000" Function test()
//点击进入浏览器
Touch 216,237, 100
Delay 2000
//点击输入框
Touch 183,77, 100
Delay time300
//循环
For 5
KeyPress "del"
Delay 50
Next
//填入兵种
InputText ReadUIConfig("Barbarian")
Delay time300
//X坐标
TracePrint ReadUIConfig("x-coordinate")
Delay time300
//Y坐标
TracePrint ReadUIConfig("y-coordinate")
Delay time300
//兵种
TracePrint ReadUIConfig("Barbarian")
Delay time300 End Function //进入将领列表
Function 开始运作()
Dim JingLingX, JingLingY
ShowMessage "进入将领列表"
Delay time300
JingLingX = MaxX / (longX / 851)
JingLingY = MaxY / (longY / 542)
//Touch 851,542, 100
Touch JingLingX,JingLingY, 100
Delay time300
End Function ///////////////////////////////////////////////////////////////测试开始//////////////////////////////////////////////////////////////////
//筛选带有[送]字的将领[白色]
Function 大筛选()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:送-白色2.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "找到优良类型"
TracePrint "找到优良类型"
Delay time300
//选中
Touch intX, intY, 100
Delay time300
//配兵
Call 配兵()
Delay time300
Call 调整()
Delay time300
End If
//筛选带有[送]字的将领[白色2]
Dim intA,intB
FindPic 0,0,0,0,"Attachment:送-白色.png","000000",1,0.9,intA,intB
If intA > -1 And intB > -1 Then
TracePrint intA
TracePrint intB
ShowMessage "找到优良类型"
TracePrint "找到优良类型"
Delay time300
//选中
Touch intA, intB, 100
Delay time300
//配兵
Call 配兵()
Delay time300
Call 调整()
Delay time300
End If
//筛选带有[送]字的将领[黄色]
Dim intC,intD
FindPic 0,0,0,0,"Attachment:送-黄色2.png","000000",1,0.9,intC,intD
If intC > -1 And intD > -1 Then
TracePrint intC
TracePrint intD
ShowMessage "找到成长80-84类型"
TracePrint "找到成长80-84类型"
Delay time300
//选中
Touch intC, intD, 100
Delay time300
//配兵
Call 配兵()
Delay time300
Call 调整()
Delay time300
End If
//筛选带有[送]字的将领[黄色2]
Dim intE,intF
FindPic 0,0,0,0,"Attachment:送-黄色.png","000000",1,0.9,intE,intF
If intE > -1 And intF > -1 Then
TracePrint intE
TracePrint intF
ShowMessage "找到成长80-84类型"
TracePrint "找到成长80-84类型"
Delay time300
//选中
Touch intE, intF, 100
Delay time300
//配兵
Call 配兵()
Delay time300
Call 调整()
Delay time300
End If
//筛选带有[送]字的将领[红色]
Dim intH,intI
FindPic 0,0,0,0,"Attachment:送-红色2.png","000000",1,0.9,intH,intI
If intH > -1 And intI > -1 Then
TracePrint intH
TracePrint intI
ShowMessage "找到成长85-89类型"
TracePrint "找到成长85-89类型"
Delay time300
//选中
Touch intH, intI, 100
Delay time300
//配兵
Call 配兵()
Delay time300
Call 调整()
Delay time300
End If
//筛选带有[送]字的将领[红色2]
Dim intJ,intK
FindPic 0,0,0,0,"Attachment:送-红色.png","000000",1,0.9,intJ,intK
If intJ > -1 And intK > -1 Then
TracePrint intJ
TracePrint intK
ShowMessage "找到成长85-89类型"
TracePrint "找到成长85-89类型"
Delay time300
//选中
Touch intJ, intK, 100
Delay time300
//配兵
Call 配兵()
Delay time300
Call 调整()
Delay time300
Else
TracePrint "Error!"
End If
End Function
///////////////////////////////////////////////////////////////测试结束////////////////////////////////////////////////////////////////// //出征带有[送]字的将领[白色]
Function 大出征()
//默认出征编队5这一组
Dim FineX,FineY
FineX = MaxX / (longX / 805)
FineY = MaxY / (longY / 153)
ShowMessage "选中第五编队"
Delay time300
Touch FineX, FineY, 100
Delay time100
//805,153
End Function //关闭将领列表窗口
Function 关闭将领列表窗口()
Dim CloseX,CloseY
CloseX = MaxX / (longX / 840)
CloseY = MaxY / (longY / 69)
//840,69
Touch CloseX, CloseY, 100
Delay time100
End Function //////////////////////////////////配置调用[start]////////////////////////////////////
//配兵
Function 配兵()
Dim PeiBingX, PeiBingY
//点击配兵
//Touch 678, 152, 100
PeiBingX = MaxX / (longX / 678)
PeiBingY = MaxY / (longY / 152)
Touch PeiBingX, PeiBingY, 100
Delay time300
//选择兵种
Call 总兵种()
Delay time100
End Function //调整
Function 调整()
Dim TiaoZhengX, TiaoZhengY
TiaoZhengX = MaxX / (longX / 627)
TiaoZhengY = MaxY / (longY / 285)
//Touch 627,285, 100
Touch TiaoZhengX, TiaoZhengY, 100
Delay time300
//点击兵力
Dim DianJiBingliX,DianJiBingliY
DianJiBingliX = MaxX / (longX / 481)
DianJiBingliY = MaxY / (longY / 354)
//Touch 481, 354, 100
Touch DianJiBingliX, DianJiBingliY, 100
Delay time500
//输入兵力
For 5
KeyPress "del"
Delay 50
Next
ShowMessage "输入兵力1"
InputText "1"
//点击确定
Dim QueDingX,QueDingY
QueDingX = MaxX / (longX / 477)
QueDingY = MaxY / (longY / 107)
Touch QueDingX, QueDingY, 100
//Touch 477, 107, 100
Delay time300
//再次确定
Dim ZaiCiQueDingX,ZaiCiQueDingY
ZaiCiQueDingX = MaxX / (longX / 337)
ZaiCiQueDingY = MaxY / (longY / 488)
//Touch 337, 488, 100
Touch ZaiCiQueDingX, ZaiCiQueDingY, 100
Delay time1500
ShowMessage "配兵完成"
End Function //向下翻页
Function 向下翻页()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:向下翻页.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "下翻"
Touch intX, intY, 100
Delay time100
End If
End Function //向上翻页
Function 向上翻页()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:向上翻页.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "上翻"
Touch intX, intY, 100
Delay time100
End If
End Function
//////////////////////////////////配置调用[end]////////////////////////////////////// //////////////////////////////////兵种调用[start]////////////////////////////////////
//轻骑兵
Function 轻骑兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:轻骑兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "找到轻骑兵"
TracePrint "找到轻骑兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//重骑兵
Function 重骑兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:重骑兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "找到重骑兵"
TracePrint "找到重骑兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//铁骑兵
Function 铁骑兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:铁骑兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "找到铁骑兵"
TracePrint "找到铁骑兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//骁骑兵
Function 骁骑兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:骁骑兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "找到骁骑兵"
TracePrint "找到骁骑兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//弓兵
Function 弓兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:弓兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "找到弓兵"
ShowMessage "找到弓兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//弩兵
Function 弩兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:弩兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "找到弩兵"
ShowMessage "找到弩兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//强弩兵
Function 强弩兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:强弩兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "找到强弩兵"
ShowMessage "找到强弩兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//弩骑兵
Function 弩骑兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:弩骑兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "找到弩骑兵"
ShowMessage "找到弩骑兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//民兵
Function 民兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:民兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "找到民兵"
ShowMessage "找到民兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//轻步兵
Function 轻步兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:轻步兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "找到轻步兵"
ShowMessage "找到轻步兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//重步兵
Function 重步兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:重步兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "找到重步兵"
ShowMessage "找到重步兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//近卫兵
Function 近卫兵()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:近卫兵.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "找到近卫兵"
ShowMessage "找到近卫兵"
Touch intX, intY, 100
Delay time1000
End If
End Function
//////////////////////////////////兵种调用[end]////////////////////////////////////// //出征资点
Function 出征按钮()
Dim ChuZhengX,ChuZhengY
ChuZhengX = MaxX / (longX / 786)
ChuZhengY = MaxY / (longY / 48)
Touch ChuZhengX, ChuZhengY, 100
Delay time100
//786,48 End Function
//占领资源点按钮
Function 占领资源点按钮()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:占领资源点按钮.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Touch intX, intY, 100
Delay time100
End If
End Function
//查找按钮
Function 查找()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:查找按钮.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Touch intX, intY, 100
Delay time100
End If
End Function
//坐标输入
Function 资点坐标()
//点击X坐标输入框
Dim ZiDianZuoBiaoX,ZiDianZuoBiaoY
ZiDianZuoBiaoX = MaxX / (longX / 378)
ZiDianZuoBiaoY = MaxY / (longY / 192)
//Touch 378, 192, 100
Touch ZiDianZuoBiaoX, ZiDianZuoBiaoY, 100
Delay time500
//删除原有数字
For 5
KeyPress "del"
Delay 50
Next
//填入新X坐标
ShowMessage "输入X坐标"
Delay time500
InputText ReadUIConfig("x-coordinate")
Delay time1500
/////////////////////////////////完美分割线////////////////////////////////////
Call 确定坐标()
Delay time100
/////////////////////////////////完美分割线////////////////////////////////////
//点击Y坐标输入框
Dim ZiDianZuoBiao2X,ZiDianZuoBiao2Y
ZiDianZuoBiao2X = MaxX / (longX / 546)
ZiDianZuoBiao2Y = MaxY / (longY / 192)
//Touch 546, 192, 100
Touch ZiDianZuoBiao2X, ZiDianZuoBiao2Y, 100
Delay time500
//删除原有数字
For 5
KeyPress "del"
Delay 50
Next
//填入新Y坐标
ShowMessage "输入Y坐标"
Delay time500
InputText ReadUIConfig("y-coordinate")
Delay time1500
/////////////////////////////////完美分割线////////////////////////////////////
Call 确定坐标()
Delay time100
/////////////////////////////////完美分割线////////////////////////////////////
End Function
//确定坐标按钮
Function 确定坐标()
Dim OkX,OkY
OkX = MaxX / (longX / 480)
OkY = MaxY / (longY / 108)
//480,108
Touch OkX, OkY, 100
Delay time100
End Function //资点输入完成确定按钮
Function 资点确定()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:资点确定按钮.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Touch intX, intY, 100
Delay time1000
End If
End Function
//占领按钮
Function 占领()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:占领按钮.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "占领"
Delay time500
Touch intX, intY, 100
Delay time1000
End If
End Function
////////////////////////////////////////////////////////////////////////////////// //滑动!!!!!!!!!!有待测试
Function 滑动()
//用300毫秒的时间，从点100,100划动到点200,200
Dim XiaX,XiaY,ShangX,ShangY
XiaX = MaxX / (longX / 649)
XiaY = MaxY / (longY / 439)
ShangX = MaxX / (longX / 666)
ShangY = MaxY / (longY / 206)
//Swipe 649,439,666,206,300
Swipe XiaX, XiaY, ShangX, ShangY, 300
Delay time500
End Function //资点出征按钮
Function 出征按钮2()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:出征按钮2.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "出征"
Delay time300
Touch intX, intY, 100
Delay time500
End If
End Function
//关闭资点窗口
Function 关闭资点窗口()
Dim GuanBiX,GuanBiY
GuanBiX = MaxX / (longX / 726)
GuanBiY = MaxY / (longY / 107)
//726,107
Touch GuanBiX, GuanBiY, 100
Delay time100
End Function Function 总兵种()
//Dim iname=0
Dim iname=ReadUIConfig("Barbarian") Select Case iname
Case 0
TracePrint "轻骑兵"
Call 轻骑兵()
Delay time100
Case 1
TracePrint "重骑兵"
Call 重骑兵()
Delay time100
Case 2
TracePrint "铁骑兵"
Call 铁骑兵()
Delay time100
Case 3
TracePrint "骁骑兵"
Call 骁骑兵()
Delay time100
Case 4
TracePrint "弓兵"
Call 弓兵()
Delay time100
Case 5
TracePrint "弩兵"
Call 弩兵()
Delay time100
Case 6
TracePrint "强弩兵"
Call 强弩兵()
Delay time100
Case 7
TracePrint "弩骑兵"
Call 弩骑兵()
Delay time100
Case 8
TracePrint "民兵"
Call 民兵()
Delay time100
Case 9
TracePrint "轻步兵"
Call 轻步兵()
Delay time100
Case 10
TracePrint "重步兵"
Call 重步兵()
Delay time100
Case 11
TracePrint "近卫兵"
Call 近卫兵()
Delay time100
Case Else
TracePrint "选择错误!即将退出,请重新选择!!"
//强制停止脚本运行
EndScript
End Select End Function
//检测将领出征状态
Function 出征状态()
//打开军情
Dim JunQingX,JunQingY
JunQingX = MaxX / (longX / 25)
JunQingY = MaxY / (longY / 347)
//25,347
Touch JunQingX, JunQingY, 100
Delay time2000
//////////////////////////////华丽分割线//////////////////////////////
Dim intX,intY
FindPic 0,0,0,0,"Attachment:送攻占.png","000000",1,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
TracePrint "出征状态"
ShowMessage "将领属于出征状态,等待返回"
Delay time300
Call 刷新军情()
Delay time1000
Else
//测试是否是返回状态
Call 返回状态()
Delay time1000
End If
End Function
//检测将领返回状态
Function 返回状态()
Dim intE,intF
FindPic 0,0,0,0,"Attachment:送返回.png","000000",1,0.9,intE,intF
If intE > -1 And intF > -1 Then
TracePrint intE
TracePrint intF
TracePrint "返回状态"
ShowMessage "将领属于返回状态,等待返回"
Delay time300
Call 刷新军情()
Delay time1000
Else
TracePrint "悠闲状态"
ShowMessage "将领属于悠闲状态,开始重新配兵出征"
Delay time300
Call 关闭军情()
Delay time100
//调用主程序
Call Main()
Delay time300
End If
End Function //关闭军情窗口
Function 关闭军情
Dim CloseJQX,CloseJQY
CloseJQX = MaxX / (longX / 839)
CloseJQY = MaxY / (longY / 69)
//839,69
Touch CloseJQX, CloseJQY, 100
Delay time100
End Function
//刷新军情状态
Function 刷新军情()
Dim ShuaiXinJQX,ShuaiXinJQY
ShuaiXinJQX = MaxX / (longX / 220)
ShuaiXinJQY = MaxY / (longY / 491)
ShowMessage "刷新军情状态"
Delay time300
//220,491
Touch ShuaiXinJQX, ShuaiXinJQY, 100
Delay time2000
End Function ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////Main Thread Start//////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Function Main()
//开始
Call 开始运作()
Delay time300
//配兵
For 4
Call 大筛选()
Delay time100
Call 向下翻页()
Delay time300
Next
ShowMessage "到尽头了..."
//关闭将领列表窗口
Call 关闭将领列表窗口()
Delay time300
//出征
Call 出征按钮()
Delay time300
//进入资点
Call 占领资源点按钮()
Delay time2000
//查找
Call 查找()
Delay time300
//输入X和Y坐标
Call 资点坐标()
Delay time1000
//确定资点
Call 资点确定()
Delay time300
//占领按钮
Call 占领()
Delay time300
//出征第五编队
Call 大出征()
Delay time300
//出征攻打
Call 出征按钮2()
Delay time300
//再次确定出征
Call 资点确定()
Delay time2000
//关闭窗口
Call 关闭资点窗口()
Delay time300 End Function Do
//检测将领状态
Call 出征状态()
Delay 10000
Loop ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////Main Thread End////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
附上apk
链接：https://pan.baidu.com/s/1BGn0icX5Fe-fyCKylz34Tg
提取码：t2mf