按键精灵手机助手之实战篇（四）项目源码 |
您所在的位置：网站首页 › 按键精灵重启脚本代码 › 按键精灵手机助手之实战篇（四）项目源码 |
|
前言
本篇直接上源码了，下面是源码主要功能包含主线、师门、日常的乐于助人、除暴安良、刷道等功能 说明1、开发模拟器采用 720 * 1280 的分辨率 DPI 320 来开发，因为做了等比例的分辨率适配所以开发的时候，模拟器采用 720 * 1280 的分辨率开发，具体逻辑看 Call 分辨率初始化() 2、找色方法采用的也是多屏幕适配方案，所以基于 720 * 1280 分辨率的点位找即可，例如： 指定区域颜色是否大于给定值(574,796,634,859, "080C84-050505", 1.0, 225)里面的 坐标范围 用的就是720的屏幕的坐标范围，可以适配一切16：9的屏幕，方法我是封装好了的 源码 Dim 比例系数X,比例系数Y,区域系数,当前分辨率 = "未知" Dim intX,intY,颜色数量,返回值,isLogOpen,识别文字 Call 分辨率初始化() Delay 2000 //Dim 索引值 //识别文字= Ocr(290,1046,555,1157,"F7F7F7-333333",0.9) //Traceprint 识别文字 // //索引值 = FindStr(282,1037,565,1146,"师门|师|门|师门任务","DEE3E7-333333|F7F7F7-333333",0.8,intX,intY) //If intX >= 0 and intY >= 0 Then // TracePrint "找到"& intX & "--一共找到几个--:"&索引值 //Else // TracePrint "没有找到" & 索引值 //End If // //If 清风找图(216,432,593,945, "活动助人为乐|活动助人为乐1", "050505", 0.8, 1) Then // TracePrint "主线对话" & intX & "----" & intY //Else // TracePrint "没有找到" //End If //FindPic 216,432,593,945, "Attachment:活动助人为乐.png|Attachment:活动助人为乐1.png","050505",0, 0.8, intX, intY //If intX >-1 then // TracePrint "找到啦，坐标是"&intX&","&intY //Else // TracePrint "没找到" //End If // //Call 清风师门() Call 清风主线() //Call 清风师门() //Call 日常乐于助人() //Call 日常除暴安良() //Call 日常任务() //Call 日常刷道() EndScript // ****************************************************** 主线 Sub 清风主线() Dim color1,color2,color3 Dim 颜色1坐标 = Array(118,1067) Dim 颜色2坐标 = Array(503,634) Dim 颜色3坐标 = Array(531,210) Dim 颜色内容 = "",人物静止 = 0 Swipe5(495,1152, 309,1149, 500) Delay 2000 点击主线任务("主|主线|线") Do color1 = GetPixelColor(颜色1坐标(0), 颜色1坐标(1), 0) & "-050505" color2 = GetPixelColor(颜色2坐标(0), 颜色2坐标(1), 0) & "-050505" color3 = GetPixelColor(颜色3坐标(0), 颜色3坐标(1), 0) & "-050505" // 人物对话 If 主线与人物对话() Then Delay 1500 If 清风找图(46,796,369,1063, "对话主线|对话主线1", "050505", 0.8, 1) Then TracePrint "主线对话" & intX & "----" & intY TapButton intX, intY + 60 Else TapE 220,1007, 10, 150 End If End If // 跳过对话 主线跳过对话 If 主线跳过对话() Then Tap10 641, 1169 Delay 1500 点击主线任务("主|主线|线") End If // 新手指引使用道具 If 指定区域颜色是否大于给定值(69,1038,186,1186, "EFEFEF-050505", 1.0, 464) Then TapButton 140,1102 End If // 领取宠物 If 指定区域颜色是否大于给定值(574,796,634,859, "080C84-050505", 1.0, 225) and 指定区域颜色是否大于给定值(126,556,168,722, "CED7A5-050505", 1.0, 492) Then TapButton 145,635 End If // 战斗中攻击 If 指定区域颜色是否大于给定值(331,301,457,413, "EFEFEF-050505", 1.0, 441) Then TapButton 409, 356 Delay 1000 TapButton 409,356 End If // 物品使用 If 主线使用道具() Then TapButton 140,1099 End If // 法力选择 If 指定区域颜色是否大于给定值(629,459,666,583, "DEEFF7-050505", 1.0, 672) and 指定区域颜色是否大于给定值(527,250,604,474, "C6D7E7-050505", 1.0, 2709) Then TapButton 565,323 // 高物攻 End If // 新手礼包 If 指定区域颜色是否大于给定值(610,1055,661,1107, "08108C-050505", 1.0, 259) and 指定区域颜色是否大于给定值(462,948,517,1068, "CEDBA5-050505", 1.0, 397) Then TapButton 488,1004 End If // 打开包裹 If 指定区域颜色是否大于给定值(56,1159,160,1266, "EFEFEF-050505", 1.0, 218) Then Tap10 132, 1238 Delay 3000 // 更换武器 Tap10 525,707 Delay 000 For 5 If 指定区域颜色是否大于给定值(177,845,227,986, "CEDFEF-050505", 1.0, 1254) Then TapButton 199,912 End If Delay 1000 Next // 关闭 If 指定区域颜色是否大于给定值(646,1055,701,1107, "08108C-050505", 1.0, 308) Then Tap10 677,1079 End If End If // 确认选择高物伤 If 指定区域颜色是否大于给定值(83,678,136,881, "CED7A5-050505", 1.0, 738) Then TapButton 90, 700 End If // 升级技能 If 指定区域颜色是否大于给定值(634, 1151, 698, 1225, "EFEFEF-050505", 1.0, 284) Then Tap10 677,1173 //点击人物头像 Delay 3000 Tap10 343, 1141 Delay 2000 Tap10 66, 960 Delay 1000 Tap10 66, 960 Tap10 679,1083 // 关闭 End If // 战斗释放技能 If 指定区域颜色是否大于给定值(187,1191,294,1277, "EFEFEF-050505", 1.0, 305) Then Tap10 263, 1218 //点击法术 Delay 3000 Tap10 677, 1173 //选择一个法术 Delay 3000 Tap10 444,350 //选择小兔兔 Delay 5000 Tap10 57,1217 //自动战斗 End If // 技能升级 If 指定区域颜色是否大于给定值(42,711,94,861, "CEDBA5-050505", 1.0, 522) and 指定区域颜色是否大于给定值(43,196,94,350, "CED7A5-050505", 1.0, 527) Then Tap10 615, 259 //物攻 Delay 1000 TapButton 66,968 //升10级 Delay 1000 TapButton 66,968 //升10级 Delay 1000 TapButton 677, 1083 End If // 加相性 If 指定区域颜色是否大于给定值(648,1057,704,1110, "080C8C-050505", 1.0, 290) and 指定区域颜色是否大于给定值(47,214,97,388, "D6DBA5-050505", 1.0, 229) Then TapButton 619, 915 Delay 1000 TapButton 536,1015 //自动 Delay 1000 Tap10 117, 496 Delay 1000 TapButton 126,768 Delay 1500 If 指定区域颜色是否大于给定值(44,906,96,1085, "B5C784-050505", 1.0, 495) Then TapButton 67,996 Delay 1000 Tap10 679,1080 End If End If // 守护 If 指定区域颜色是否大于给定值(7,1145,61,1213, "EFEFEF-050505", 1.0, 271) Then Tap10 56, 1160 Delay 1000 TapButton 66, 1017 Delay 1000 TapButton 289, 748 Delay 1000 // Tap10 675,1093 End If // 召唤守护 木 主线召唤守护() // 打开活动 If 指定区域颜色是否大于给定值(644,258,685,309, "EFEFEF-050505", 1.0, 98) Then Tap10 679, 265 Delay 1500 TapButton 554,659 //做师门 Delay 2000 Call 清风师门() End If // 弹框确认 If 指定区域颜色是否大于给定值(266,452,318,602, "CED7A5-050505", 1.0, 500) and 指定区域颜色是否大于给定值(438,826,494,878, "08108C-050505", 1.0, 226) Then TapButton 288,745 End If // 活动页面出现 If 指定区域颜色是否大于给定值(648,1074,698,1119, "080C84-050505", 1.0, 181) and 指定区域颜色是否大于给定值(542,174,594,315, "CEDFCE-050505", 1.0, 2114) Then Tap10 674,1098 输出 ("主线告一段落~") Exit Do End If 颜色内容 = 颜色1坐标(0)&"|"&颜色1坐标(1)&"|"&color1&","&颜色2坐标(0)&"|"&颜色2坐标(1)&"|"&color2&","&颜色3坐标(0)&"|"&颜色3坐标(1)&"|"&color3 If CmpColorEx(颜色内容,0.9) = 1 Then 人物静止 = 人物静止 + 1 If 人物静止 > 5 and not 是否战斗中()Then 人物静止 = 0 输出 ("检测到人物静止不动了") Call 点击主线任务("主线") End If Else 人物静止 = 0 End If Delay 1000 Loop End Sub Function 点击主线任务(任务) 点击主线任务 = False Dim 索引值 Dim 可以点击吗 = False If Not 是否战斗中() Then 可以点击吗 = True End If // 任务栏是否看到 If 指定区域颜色是否大于给定值(563,1049,606,1159, "B5CFE7-050505", 0.9, 175) Then 可以点击吗 = True Else 可以点击吗 = False End If If 可以点击吗 Then 索引值 = FindStr(315,1049,576,1160, 任务, "DEE3E7-333333|F7F7F7-333333", 0.8, intX, intY) TracePrint "共查找到[ " & 索引值 &" ] 个相关字" & intX If intX >= 0 and intY >= 0 Then TapE intX - 20, intY + 100, 20, 100 点击主线任务 = True Else TracePrint "没有找到" & 任务 End If End If End Function Function 主线与人物对话() 主线与人物对话 = False If 指定区域颜色是否大于给定值(646,1211,702,1258, "6392B5-101010", 1.0, 188) AND 指定区域颜色是否大于给定值(364,885,391,1132, "CEE3EF-050505", 1.0, 619) Then TracePrint "人物对话出现" 主线与人物对话 = True End If End Function Function 主线跳过对话() 主线跳过对话 = False If 指定区域颜色是否大于给定值(620,1098,668,1246, "295173-050505", 1.0, 431) AND 指定区域颜色是否大于给定值(677,10,715,152, "101818-050505", 1.0, 3777) Then 主线跳过对话 = True End If End Function Function 主线使用道具() 主线使用道具 = False If 指定区域颜色是否大于给定值(293,1142,336,1192, "08108C-050505", 1.0, 207) and 指定区域颜色是否大于给定值(112,1040,167,1164, "D6DBAD-050505", 1.0, 246) Then 主线使用道具 = True End If End Function Function 主线召唤守护() If 指定区域颜色是否大于给定值(648,1067,702,1119, "08108C-050505", 1.0, 322) and 指定区域颜色是否大于给定值(43,940,94,1091, "CED7A5-050505", 1.0, 511) Then TapButton 67, 1018 Delay 1000 TapButton 294,746 Delay 1000 Tap10 674, 1094 Delay 1000 If 指定区域颜色是否大于给定值(649,1066,706,1122, "080C84-050505", 1.0, 221) Then Tap10 674, 1094 End If End If End Function Function 是否战斗中() 是否战斗中 = False If 指定区域颜色是否大于给定值(604,10,652,46, "527194-050505", 1.0, 77) and 指定区域颜色是否大于给定值(658,1,689,92, "4A555A-050505", 1.0, 296) Then 是否战斗中 = True 输出("战斗中....") End If End Function // ****************************************************** 师门任务 Sub 清风师门助人任务(任务) Dim color1,color2,color3 Dim 颜色1坐标 = Array(118,1067) Dim 颜色2坐标 = Array(503,634) Dim 颜色3坐标 = Array(531,210) Dim 颜色内容 = "",人物静止 = 0,没找到师门=0 点击主线任务 (任务) Do color1 = GetPixelColor(颜色1坐标(0), 颜色1坐标(1), 0) & "-050505" color2 = GetPixelColor(颜色2坐标(0), 颜色2坐标(1), 0) & "-050505" color3 = GetPixelColor(颜色3坐标(0), 颜色3坐标(1), 0) & "-050505" // 跳过对话 If 主线跳过对话() Then TracePrint "跳过对话" Tap10 641, 1169 Delay 1500 点击主线任务(任务) End If // 人物对话 If 主线与人物对话() Then Delay 1500 If 清风找图(46,796,369,1063, "对话助人", "050505", 0.8, 1) Then TracePrint "主线对话" & intX & "----" & intY TapButton intX, intY + 60 Else TapE 220,1007, 10, 150 End If End If // 物品使用 If 主线使用道具() Then TapButton 140,1099 End If // 驱魔香 If 指定区域颜色是否大于给定值(263,668,322,825, "CEDBA5-050505", 1.0, 495) and 指定区域颜色是否大于给定值(439,825,494,878, "08108C-050505", 1.0, 226) Then TapButton 291,746 End If // 召唤守护 木 主线召唤守护() // 奇怪的路人 If 指定区域颜色是否大于给定值(650,1214,699,1255, "6B9ABD-050505", 1.0, 46) and 指定区域颜色是否大于给定值(190,793,223,935, "B5DBF7-050505", 1.0, 665) Then TapButton 220,1009 End If // 捐助乐善 Call 师门乐善好事() // 领取装备 If 指定区域颜色是否大于给定值(379,952,430,1065, "CED7A5-050505", 1.0, 391) and 指定区域颜色是否大于给定值(609,1055,662,1106, "08108C-050505", 1.0, 256) Then TapButton 401, 1007 Delay 1000 Tap10 640,1076 End If // 购买物品 If 指定区域颜色是否大于给定值(646,1067,703,1121, "080C8C-050505", 1.0, 302) and 指定区域颜色是否大于给定值(58,852,110,1076, "CEDBA5-050505", 1.0, 722) Then TapButton 79,961 End If // 购买 药店 If 指定区域颜色是否大于给定值(643,1069,705,1125, "080C8C-050505", 1.0, 302) and 指定区域颜色是否大于给定值(58,847,108,1084, "CEDBA5-050505", 1.0, 701) Then TapButton 80,958 End If // 集市购买 If 指定区域颜色是否大于给定值(39,965,95,1092, "CEDBA5-050505", 1.0, 436) and 指定区域颜色是否大于给定值(651,1058,700,1108, "08108C-050505", 1.0, 247) Then TapButton 495, 592 Delay 2000 TapButton 63, 1025 If 等待颜色出现(267, 674, 318, 821, "CED7A5-050505", 1.0, 495, 5) Then TapButton 467, 849 Delay 1000 TapButton 676, 1082 TracePrint "没钱~" Exit Do End If End If // 师门完成 颜色内容 = 颜色1坐标(0)&"|"&颜色1坐标(1)&"|"&color1&","&颜色2坐标(0)&"|"&颜色2坐标(1)&"|"&color2&","&颜色3坐标(0)&"|"&颜色3坐标(1)&"|"&color3 If CmpColorEx(颜色内容,0.9) = 1 Then 人物静止 = 人物静止 + 1 If 是否战斗中() Then 人物静止 = 0 Delay 6000 End If If 人物静止 > 5 and not 是否战斗中()Then 人物静止 = 0 输出 ("任务时-检测到人物静止不动了") If Not 点击主线任务(任务) Then TracePrint "没找到任务名称" 没找到师门 = 没找到师门 + 1 If 没找到师门 > 5 Then 输出 ("任务结束") Exit Do End If Else 没找到师门 = 0 End If End If Else 人物静止 = 0 End If Delay 1000 Loop End Sub Sub 清风师门() 输出 ("师门任务") Swipe5(495,1152, 309,1149, 500) Delay 2000 Call 清风师门助人任务("师门|师|门|师门任务") End Sub Function 师门乐善() 师门乐善 = False If 指定区域颜色是否大于给定值(476,804,536,863, "08108C-050505", 1.0, 318) and 指定区域颜色是否大于给定值(230,511,290,767, "CEDBA5-050505", 1.0, 863) Then 师门乐善 = True End If End Function Sub 师门乐善好事() If 师门乐善() Then // 先减到头 For 5 Tap10 381,522 Delay 500 Next TapButton 257,638 //第一次捐助 Delay 3000 For 8 If 师门乐善() Then Tap10 382, 753 Delay 500 TapButton 257,638 //第一次捐助 Delay 500 If 等待颜色出现(623, 1100, 663, 1244, "295173-050505", 1.0, 431, 5) Then TracePrint "居然不行,那就继续了~" Tap10 638, 1132 Else TracePrint "捐钱成功~" Exit For End If End If Delay 1000 Next End If End Sub // ****************************************************** 日常任务 Sub 日常任务() Call 日常乐于助人() End Sub Function 打开活动(活动名称) 打开活动 = False Tap10 679,417 Delay 500 If 等待颜色出现(645, 1077, 699, 1124, "08108C-050505", 1.0, 242, 5) Then If 清风找图(216,432,593,945, 活动名称, "050505", 0.8, 1) Then TracePrint "发现活动位置" & intX & "----" & intY TapButton intX + 10, intY + 225 打开活动 = True Else TracePrint "没有找到" Tap10 673,1099 End If End If End Function // ****************************************************** 日常助人为乐 Sub 日常乐于助人() 输出 ("乐于助人") If 点击主线任务("助人|为乐|助|人") Then Call 清风师门助人任务("助人|为乐|助|人") Else If 打开活动("活动助人为乐|活动助人为乐1|活动助人为乐2|活动助人为乐3") Then If 等待颜色出现(643, 765, 704, 859, "CEDBE7-050505", 1.0, 2039, 20) Then TracePrint "白帮忙对话~" TapButton 218, 1007 Delay 2000 Call 清风师门助人任务("助人|为乐|助|人") Else TracePrint "没有跟白帮忙对话" End If Else Delay 3000 End If End If End Sub // ****************************************************** 日常助人为乐 Sub 日常刷道() Dim 次数 = 0 Do // 查看是否领取任务 If 指定区域颜色是否大于给定值(639,1109,701,1214, "CEDFEF-050505", 1.0, 1234) and 指定区域颜色是否大于给定值(365,883,395,1017, "CEE3EF-050505", 1.0, 487) Then TracePrint "继续领取任务了~" TapButton 221, 1004 Delay 1000 // 看看是否要开vip道具 If 等待颜色出现(254, 672, 305, 821, "CED7A5-050505", 1.0, 498, 5) Then Tap10 478,849 //不开 End If Delay 2000 TapButton 518,1160 //点击第一个任务走起 次数 = 次数 + 1 TracePrint "刷道次数..." & (次数 * 10) If 次数 > 40 Then TracePrint "刷够了..." Exit Do End If End If Delay 5000 If 是否战斗中() Then Delay 10000 End If Loop End Sub // ****************************************************** 除暴安良 Sub 日常除暴安良() Dim 计时=0,可以执行任务=False 输出("除暴安良") 打开活动 ("活动除暴任务|活动除暴任务1") Do Delay 1000 If 指定区域颜色是否大于给定值(361, 886, 399, 1139, "CEE3EF-050505", 1.0, 664) Then 可以执行任务 = True TapButton 219, 1009 Delay 1500 TapE 513, 1161, 20, 100 Exit Do End If If 是否战斗中() Then 可以执行任务 = True Exit Do End If Loop If 可以执行任务 Then Do Delay 3000 If 是否战斗中() Then 计时 = 0 End If 计时 = 计时 + 1 If 计时 > 10 Then 输出("除暴结束") Exit Do End If Loop End If End Sub // ****************************************************** 自用功能 Function 输出(内容) TracePrint 内容 ShowMessage 内容 End Function Sub 分辨率初始化() Dim 屏幕横坐标X,屏幕纵坐标Y SetControlBarPos 0,0 //把悬浮窗移动到屏幕右上角 TracePrint SetDictEx(0, "Attachment:wendao.txt")//设置附件中的s1.txt文档为1号字库 TracePrint UseDict(0)//这里开始切换到2号字库进行识别 屏幕横坐标X=GetScreenX() 屏幕纵坐标Y = GetScreenY() 比例系数X = 屏幕横坐标X / 720 比例系数Y = 屏幕纵坐标Y / 1280 区域系数 = ((100 * 比例系数X) * (100 * 比例系数Y)) / (100 * 100) Thread.SetShareVar "比例系数X", 比例系数X Thread.SetShareVar "比例系数Y", 比例系数Y Thread.SetShareVar "区域系数", 区域系数 TracePrint "比例系数分别为:"&比例系数X&"---"&比例系数Y TracePrint 屏幕横坐标X,屏幕纵坐标Y If 屏幕横坐标X = 720 And 屏幕纵坐标Y = 1280 Then 当前分辨率 = "1280" ElseIf 屏幕横坐标X = 1080 And 屏幕纵坐标Y = 1920 Then 当前分辨率 = "1920" ElseIf 屏幕横坐标X = 1440 And 屏幕纵坐标Y = 2560 Then 当前分辨率 = "2560" End If If Round(屏幕纵坐标Y / 屏幕横坐标X, 1) = 1.8 Then //16:9比例屏幕适配 If 屏幕横坐标X 720 Then TracePrint "设置等比例缩放"&Round(屏幕纵坐标Y / 屏幕横坐标X, 1) SetScreenScale 720,1280,0 End If ShowMessage "欢迎使用清风★问道辅助,您当前屏幕分辨率为"&屏幕横坐标X&"*"&屏幕纵坐标Y&"属于辅助支持范围~" Delay 2000 If 屏幕横坐标X < 720 Then ShowMessage "您的屏幕小于720*1280部分功能无法正常使用~" Delay 2000 End If Else //这里要搞一套 5:3 的比例 ShowMessage "您当前屏幕分辨率为" & 屏幕横坐标X & "*" & 屏幕纵坐标Y & "辅助暂不支持,非常抱歉~!" Delay 2000 ShowMessage "您当前屏幕分辨率为" & 屏幕横坐标X & "*" & 屏幕纵坐标Y & "辅助暂不支持,非常抱歉~!" Delay 3000 EndScript End If End Sub Function 等待颜色出现(x1, y1, x2, y2,色值,相似度,颜色数量,等待时间) 等待颜色出现 = False Dim i For i = 0 To 2*等待时间 Delay 500 If 指定区域颜色是否大于给定值(x1, y1, x2, y2, 色值, 相似度, 颜色数量) Then 等待颜色出现 = True Exit For End If Next End Function //识别数字 Function 清风识别数字(x1,y1,x2,y2,色值,相似度) 清风识别数字 = "" Dim 返回的字,比例x,比例y 比例x = Thread.GetShareVar("比例系数X") 比例y = Thread.GetShareVar("比例系数Y") If GetScreenX() = 720 Then 返回的字 = SmartOcr(x1, y1, x2, y2, 色值) If 返回的字 = "" Then 返回的字=Ocr(x1,y1,x2,y2,色值,相似度) End If Else 返回的字=Ocr(Int(x1*比例x),Int(y1*比例y),Int(x2*比例x),Int(y2*比例y),色值,相似度) End If 清风识别数字 = 返回的字 End Function //按照比例判断給定区域颜色值是否大于多少 Function 指定区域颜色是否大于给定值(x1, y1, x2, y2, 颜色值, 相似度,是否大于xxx) Dim 数量,比例x,比例y,比例区域 比例x = Thread.GetShareVar("比例系数X") 比例y = Thread.GetShareVar("比例系数Y") 比例区域 = Thread.GetShareVar("区域系数") 指定区域颜色是否大于给定值 = False 数量 = GetColorNum(x1*比例x,y1*比例y,x2*比例x,y2*比例y, 颜色值, 相似度) //卷轴开启 // TracePrint "实际数量:"&数量 If 数量 > 0 Then // TracePrint "比例需求数量:"&区域系数 * 是否大于xxx If 数量 > 区域系数 * 是否大于xxx Then 指定区域颜色是否大于给定值 = True End If End If End Function Function 区域读取数字(x1,y1,x2,y2,色值) 区域读取数字 = "无" Dim 字,比例x,比例y 比例x = Thread.GetShareVar("比例系数X") 比例y = Thread.GetShareVar("比例系数Y") 字 = SmartOcr(x1*比例x,y1*比例y,x2*比例x,y2*比例y, 色值) If 字 "" Then 区域读取数字 = 字 End If End Function Function 指定区域找图(x1, y1, x2, y2, 图片名称, 色差, 模式, 相似度) Dim 比例x,比例y,比例区域,返回值 比例x = Thread.GetShareVar("比例系数X") 比例y = Thread.GetShareVar("比例系数Y") 返回值 = FindPic(x1 * 比例x, y1 * 比例y, x2 * 比例x, y2 * 比例y, 图片名称, 色差, 模式, 相似度, intX, intY) 指定区域找图 = 返回值 End Function Function 清风找图(x1, y1, x2, y2, 图片名称,偏色, 相似度,查找时间) //秒为单位 1s查找10次 Dim i,j,pic,图片名称s="" pic = Split(图片名称, "|") If UBOUND(pic) > 0 Then // 说明有两张以上的图片 For j = 0 To UBOUND(pic) 图片名称s = 图片名称s & "Attachment:"&pic(j)&".png" & "|" Next 图片名称s = Left(图片名称s, Len(图片名称s) - 1) Else 图片名称s = 图片名称 End If 清风找图 = False For i = 1 To 查找时间 * 10 FindPic x1, y1, x2, y2, 图片名称s, 偏色, 0, 相似度, intX, intY If intX > -1 Then 清风找图 = True Exit For End If Delay 100 Next End Function Function TapDefult(x, y) TapE x, y, 5, 5 End Function Function Tap10(x,y) TapE x, y, 10, 10 End Function Function TapButton(x,y) TapE x, y, 10, 40 End Function Function TapE(x, y, mx,my) Dim rndX,rndY,de rndX = Int(mx * Rnd() + 1) rndY = Int(my * Rnd() + 1) de = Int(4 * Rnd() + 1) If de = 1 Then x = x - rndX y = y - rndY ElseIf de = 2 Then x = x + rndX y = y + rndY ElseIf de = 3 Then x = x - rndX y = y + rndY ElseIf de = 4 Then x = x + rndX y = y - rndY End If // TracePrint "输出坐标：" &x &"," &y Tap x, y End Function Function Swipe5(x1, y1, x2, y2, t) SwipeE x1, y1, x2, y2, t,5 End Function Function SwipeE(x1, y1, x2, y2, t,mt) Dim rndX,rndY,de rndX = Int(mt * Rnd() + 1) de = Int(4 * Rnd() + 1) If de = 1 Then x1 = x1 - rndX y1 = y1 - rndX x2 = x2 - rndX y2 = y2 - rndX ElseIf de = 2 Then x1 = x1 + rndX y1 = y1 + rndX x2 = x2 + rndX y2 = y2 + rndX ElseIf de = 3 Then x1 = x1 - rndX y1 = y1 - rndX x2 = x2 + rndX y2 = y2 + rndX ElseIf de = 4 Then x1 = x1 + rndX y1 = y1 + rndX x2 = x2 - rndX y2 = y2 - rndX End If Swipe x1, y1, x2, y2, t End Function Function TouchMoveE(x,y,mx,my,mark,t) Dim rndX,rndY,de rndX = Int(mx * Rnd() + 1) rndY = Int(my * Rnd() + 1) de = Int(4 * Rnd() + 1) If de = 1 Then x = x - rndX y = y - rndY ElseIf de = 2 Then x = x + rndX y = y + rndY ElseIf de = 3 Then x = x - rndX y = y + rndY ElseIf de = 4 Then x = x + rndX y = y - rndY End If TouchMove x, y, mark, t End Function Function TouchDownE(x,y,mx,my,mark) Dim rndX,rndY,de rndX = Int(mx * Rnd() + 1) rndY = Int(my * Rnd() + 1) de = Int(4 * Rnd() + 1) If de = 1 Then x = x - rndX y = y - rndY ElseIf de = 2 Then x = x + rndX y = y + rndY ElseIf de = 3 Then x = x - rndX y = y + rndY ElseIf de = 4 Then x = x + rndX y = y - rndY End If TouchDown x,y, mark End Function 源码下载下载地址点这里 解压密码：tommy |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |