求滴滴打车自动抢单脚本！ _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.03软件大小：71.2M更新时间：10-25
软件版本：3.1.7软件大小：52.1M更新时间：12-12
软件版本：1.2.4软件大小：29.2M更新时间：10-28
软件版本：1.0.2软件大小：11.1M更新时间：10-28
查看: 6543|回复: 13
就是能够不用不用手按，出现机场单自己帮忙抢单的脚本！还可以过滤不要的单子1
这个可以有的。
脚本作者商业小精灵作者绑定账号后自动赠送
自己制作一个，我就制作了一个外卖抢单的。先前也买了一个，不行什么单都抢，吓死我了。在官网上买了（零基础学按键精灵）四天就搞定。前面那家伙卖我三百多，书才三十几。脚本还不好用，上老逼当了。自己制作的只抢一公里以内的单子，特有成就感
我也想要这样的脚本啊，楼上的兄弟可否分享一下
gogogosgd 最后编辑于
楼上的能 看看你的抢单脚本不， 提示，提示 怎么写的 是 找色啊 ，还 是用的找图、？？
按键精灵开发者4级可通过提升认证等级来升级勋章：
回复 你要是能提供截图 配合我调试 我可以帮你做个 需要截取有需要的单子的时候的图片 截图得是PNG格式的
aq001qq 最后编辑于
按键精灵开发者1级可通过提升认证等级来升级勋章：天使勋章天使一样的用户土豪勋章（90天）活动期间在淘宝商场购买按键产品体验先锋勋章新版本体验先锋纪念勋章（360天）猴年勋章猴年专属“大圣”勋章过大年勋章俩小福娃给大家拜年啦！
我有个作品,下载地址是滴滴出租滴滴专车
脚本作者商业小精灵作者绑定账号后自动赠送
楼上的高手，能参考你的源码吗
楼上的高手.该怎样联系你才能够交易获取出租车滴滴辅助的授权码呢
回复 你好：你帮楼上制作的滴滴抢单制作好了吗？我也希望你能帮我制作一个，当然也会有偿感谢z
回复 该怎样交易取得授权码呢
按键精灵开发者1级可通过提升认证等级来升级勋章：天使勋章天使一样的用户土豪勋章（90天）活动期间在淘宝商场购买按键产品体验先锋勋章新版本体验先锋纪念勋章（360天）猴年勋章猴年专属“大圣”勋章过大年勋章俩小福娃给大家拜年啦！
回复 我QQ是欢迎做交流
我也去学学按键精灵
回复 我申请加你了，能加我吗？安卓按键怎样调用文本内容 _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.03软件大小：71.2M更新时间：10-25
软件版本：3.1.7软件大小：52.1M更新时间：12-12
软件版本：1.2.4软件大小：29.2M更新时间：10-28
软件版本：1.0.2软件大小：11.1M更新时间：10-28
查看: 11418|回复: 36
天天天黑℃
文本内容是帐号一行一条，不用密码例：123456789456123987如何进行一个一个循环地操作下去，复制第一个走完一遍脚本后，在复制第二个。有源码示例的能不能分享下呢？
按键精灵开发者6级可通过提升认证等级来升级勋章：按键明星按键明星勋章天使勋章天使一样的用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励马年勋章（360天） 马年纪念勋章（360天）黄金之翼黄金之翼勋章
不是有个文本读取插件吗
天天天黑℃
有没有详细示例看看呢。。。。。。。。。。。。。。。。
天天天黑℃
求高手回复。。。。。。。。
按键精灵开发者6级可通过提升认证等级来升级勋章：按键明星按键明星勋章天使勋章天使一样的用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励马年勋章（360天） 马年纪念勋章（360天）黄金之翼黄金之翼勋章
天天天黑℃ 发表于
00:39 有没有详细示例看看呢。。。。。。。。。。。。。。。。那帖子里有完整的文件读取例子和说明.
天天天黑℃
zhou 发表于
20:15 那帖子里有完整的文件读取例子和说明.看到了，但是应该怎样把读取到第一行的字符输入到手机的输入框呢？我dim i，然后在for循环里面写i+1调试错误。
按键精灵开发者6级可通过提升认证等级来升级勋章：按键明星按键明星勋章天使勋章天使一样的用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励马年勋章（360天） 马年纪念勋章（360天）黄金之翼黄金之翼勋章
天天天黑℃ 发表于
00:43 看到了，但是应该怎样把读取到第一行的字符输入到手机的输入框呢？我dim i，然后在for循环里面写i+1调试错 ...有读取文本到数组的函数，你用数组保存读取的文本就行了
天天天黑℃
zhou 发表于
11:01 有读取文本到数组的函数，你用数组保存读取的文本就行了这个不太明白，有现成的脚本例子参考下吗？
天天天黑℃
zhou 发表于
11:01 有读取文本到数组的函数，你用数组保存读取的文本就行了这个不太明白，有现成的脚本例子参考下吗？
按键精灵开发者6级可通过提升认证等级来升级勋章：按键明星按键明星勋章天使勋章天使一样的用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励马年勋章（360天） 马年纪念勋章（360天）黄金之翼黄金之翼勋章
天天天黑℃ 发表于
12:37 这个不太明白，有现成的脚本例子参考下吗？Dim arr(),n,a
import "FileEx.lua"
arr=FileEx.ReadLines("/sdcard/anjian.txt")
TracePrint arr(i)
复制代码1, n=文本行数-12,把文件路径写对。
天天天黑℃
zhou 发表于
13:32 1, n=文本行数-12,把文件路径写对。文本行数不能自己读取出来吗？我用pc版的可以自己读取的行数的
天天天黑℃
zhou 发表于
13:32 1, n=文本行数-12,把文件路径写对。我想把读取到内容输入到登录框，究竟是用：KeyPress arr(i)还是InputText arr(i)？？？
按键精灵开发者3级可通过提升认证等级来升级勋章：学有所成学有所成勋章，新手步入按键学堂的第一枚勋章爱心大使积极帮助新手（可向管理员进行申请）骨灰级按键用户3年以上的按键论坛用户按键明星按键明星勋章月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。
Msgbox lib.文件.读取指定行文本内容("C:\Log.txt", 3)
天天天黑℃
neokgg 发表于
17:12 以上语法
Msgbox lib.文件.读取指定行文本内容("C:\Log.txt", 3)是单纯地读取第三行的吗？
按键精灵开发者6级可通过提升认证等级来升级勋章：按键明星按键明星勋章天使勋章天使一样的用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励马年勋章（360天） 马年纪念勋章（360天）黄金之翼黄金之翼勋章
天天天黑℃ 发表于
16:51 我想把读取到内容输入到登录框，究竟是用：KeyPress arr(i)还是InputText arr(i)？？？这个其实你可以测试的，我觉得先有疑问自己解决才印象深刻。kepress是模拟单个按键，输入的是单个字符，inputText可以输入一串字符。文本行数可通过数组长度来确定。文本行数=N-1上面写了
天天天黑℃
zhou 发表于
17:23 这个其实你可以测试的，我觉得先有疑问自己解决才印象深刻。kepress是模拟单个按键，输入的是单个字符， ...首先感谢你你耐心回答哈。两个命令我有测试了，也是不行。Dim arr(),n,an=8import "FileEx.lua"arr=FileEx.ReadLines("/sdcard/123.txt")//a=Split(arr,"|") For
i=0 to n-1
InputText arr(i)Next源码是这样的，是不是哪里错了？
按键精灵开发者6级可通过提升认证等级来升级勋章：按键明星按键明星勋章天使勋章天使一样的用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励马年勋章（360天） 马年纪念勋章（360天）黄金之翼黄金之翼勋章
天天天黑℃ 发表于
19:30 首先感谢你你耐心回答哈。两个命令我有测试了，也是不行。Dim arr(),n,a调试信息显示错误么，要下载那个插件放到小精灵目录script下
天天天黑℃
zhou 发表于
19:34 调试信息显示错误么，要下载那个插件放到小精灵目录script下Dim arr(),n,an=8import "FileEx.lua"arr=FileEx.ReadLines("/sdcard/123.txt")For
i=0 to n-1
TracePrint arr(i)Next这样调试正常了，但是我该怎样把读取到的值输出到手机输入框呢？pc版的是用SayString 安卓版该用那个？KeyPress arr(i)还是InputTextarr(i)我用了都不行
按键精灵开发者6级可通过提升认证等级来升级勋章：按键明星按键明星勋章天使勋章天使一样的用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励马年勋章（360天） 马年纪念勋章（360天）黄金之翼黄金之翼勋章
InputText 要在有焦点的输入框用，文本焦点一般是“|”。
天天天黑℃
zhou 发表于
19:59 InputText 要在有焦点的输入框用，文本焦点一般是“|”。能手动点出焦点的吗？我之前是这样试的，手动点出焦点了，如我在信息框那里手动点输入框，再运行脚本的，运行后，手机信息输入框那里动了一下，但是没输入内容。这个是怎样搞？分享代码绝对原创（） _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.03软件大小：71.2M更新时间：10-25
软件版本：3.1.7软件大小：52.1M更新时间：12-12
软件版本：1.2.4软件大小：29.2M更新时间：10-28
软件版本：1.0.2软件大小：11.1M更新时间：10-28
查看: 3254|回复: 24
[源码分享]
本帖最后由
19:35 编辑 自己几个月的心血，希望大家一起探讨学习共同进步（欢迎加入，群号码：）加入群，可以分享更多的源码，不拒绝伸手党，只希望大家能无私奉献一些自己的技巧与源码伸手党貌似很多，自私党也不少，无私奉献者请入群：好了，直接上马～1滑动SetScreenScale 720,1280,0For 50Call 滑动(300,500,387,500,7,200,50,0)NextSub 滑动(x1,y1,x2,y2,i,滑动时间,按住延时,随机)'1表示开启随机Dim 每次滑动时间,x(),y(),t(),a(),b(),信息()Delay 2000x2=x2-20x(0)=x1y(0)=y1每次滑动时间=Int(滑动时间/i)a(0)=(x2-x1)/ib(0)=(y2-y1)/ifor i =1 to iIf 随机=1 Then随机=Int((2--1+0)*Rnd())-1Else随机=0End Ift(i)=每次滑动时间+随机a(i)=a(0)+随机b(i)=b(0)+随机NextTouchDown x(0),y(0)Delay 按住延时+5*随机for i =1 to ix(i)=x(i-1)+a(i)y(i)=y(i-1)+b(i)TouchMove x(i),y(i)Delay t(i)NextTouchMove x2,y2Delay 50+5*随机TouchUpDelay 100End Sub2文本分割取色Dim j,k,i,a(50,50),c(),arr,路径,写入Import "Fileex.lua"Import "LuaArray.lua"路径="/sdcard/坐标信息.txt"写入="/sdcard/互动取色组.txt"Call 数组行长(路径)Call 偏移取色(2,2,2,2)'x2,y2必须要大于x1,y1Sub 数组行长(路径)//j列k行c颜色路径 = File.ReadLines(路径)'若文本内容脚本运行中有变化（写入），请将左边路径改为文本，重新声明变量j=0For Each x In 路径arr = Split(x, "@")j=j+1Nextk=LuaArray.UBound(arr)For k=0 to k-1j=-1For Each x In 路径arr = Split(x, "@")j=j+1a(j,k)=arr(k)'可惜一维数组a&k(j)不行，不知道原因，还有，二维数组不能动态'ShowMessage a(j,k)'Delay 400NextNextEnd SubSub 偏移取色(x1,x2,y1,y2)For j=0 To j-1i=0FileEx.WriteEx(写入,a(j,0)&"@"&a(j,1)&"@"&a(j,2)&"@")Call 延时十秒()KeepCaptureFor x=a(j,1)-x1 To a(j,1)+x2For y=a(j,2)-y1 To a(j,2)+y2i=i+1c(i) = GetPixelColor(x,y)If i<(x1+x2+1)*(y1+y2+1) ThenFileEx.WriteEx(写入,x&"|"&y&"|"&c(i)&",")ElseFileEx.WriteEx(写入,x&"|"&y&"|"&c(i)&"\n")End IfNextNextReleaseCaptureNextEnd SubSub 延时十秒()ShowMessage "请将画面停在"&a(j,0)&"界面，十秒后记入识别"Delay 200For s = 8 to 3 Step -1ShowMessage sDelay 100NextShowMessage "请将画面停在"&a(j,0)&"界面，两秒后识别"Delay 100End Sub3屏幕变化检测并点击'Call 屏幕变化(0,0,720,)'全屏一定要这么写，想官方那样，自己写个替换（用返回屏幕长宽函数）Call 屏幕变化(100,100,620,)Sub 屏幕变化(x1,y1,x2,y2,x3,y3)Dim c1(),c2(),x,y,i,jImport "Fileex.lua"Delay 3000For 1800i=0KeepCaptureFor x = x1 To x2 Step x3For y = y1 To y2 Step y3i=i+1c1(i)=GetPixelColor(x,y)'FileEx.WriteEx("/sdcard/对比.txt",c1(i)&"|")NextNextReleaseCaptureDelay 100KeepCapturei=0For x = x1 To x2 Step x3For y = y1 To y2 Step y3i=i+1c2(i)=GetPixelColor(x,y)If c2(i)
c1(i) ThenTap x, yDelay 10End IfNextNextReleaseCaptureNextEnd Sub4屏幕找色SetScreenScale 720,1280,0Import "Fileex.lua"全屏找色(0,0,720,","/sdcard/全屏找色.txt")Sub 全屏找色(x1,y1,x2,y2,c,路径)'为毛找的颜色多了，官方命令数量比我写的要少Dim c1,i,j,x0(),y0(),t,t1Delay 3000i=0t=TickCount()c1=GetColorNum(x1,y1,x2,y2,c,1)t1=TickCount()KeepCaptureFor x = x1 To x2For y = y1 To y2If GetPixelColor(x,y) = c Theni=i+1x0(i)=xy0(i)=y'Tap x, y'FileEx.WriteEx("/sdcard/对比.txt","已找到"&i&"个
第"&i&"个坐标："&x&","&y)End IfNextNextReleaseCaptureFileEx.WriteEx(路径,"官方GetColorNum命令 共找到"&c1&"
耗时"&t1-t&"\n 我写的共找到"&i&"
耗时"&TickCount()-t1&"\n")ShowMessage "GetColorNum命令 共找到"&c1&"
耗时"&t1-t&"\n 我写的共找到"&i&"
耗时"&TickCount()-tDelay 1800for i=1 to iShowMessage " 第"&i&"个坐标："&x0(i)&","&y0(i)Delay 1800nextEnd Sub5抓色偏移并对比Dim 文本,x,a(),b(),c,arr,i,j,k,dImport "Fileex.lua"Import "LuaArray.lua"文本 = File.ReadLines("/sdcard/时间取色组.txt")For Each x In 文本arr = Split(x, ",")nextj=LuaArray.UBound(arr)ShowMessage jDelay 1000for j=0 to j-1i=0k=0c=0d=1For Each x In 文本arr = Split(x, ",")k=k+1i=i+1a(i)=arr(j)a(k)=arr(j)nextfor i=d to ifor k=d to kif a(i) = a(k) thenif i
k thenc=c+1FileEx.WriteEx("/sdcard/抓色结果对比.txt",c&"
"&Mid(arr(j),1,7)&"
"&i&"和"&k&"重复\n")End ifEnd if'ShowMessage j&i&k'Delay 20nextd=d+1nextif c = 0 thenFileEx.WriteEx("/sdcard/抓色结果对比.txt",Mid(arr(j),1,7)&"
无重复\n")End ifnext6检测复制并写入文本'剪切板命令无插件，2.0和2.1支持剪切板命令dim a,b(),i,路径,文本i=0Import "FileEx.lua"路径 = "/sdcard/复制.txt"a=sys.GetClipText()DoIf asys.GetClipText() Thena= sys.GetClipText()//上个错了，需要重置新的，不然变化了一次，就不停的写入FileEx.WriteEx(路径,a&"\n")ShowMessage a//这个最好，不需要读取，显示就表示已写入'ShowMessage File.Read(路径)'Call 读取文本最后一行()'复制多行只能读取最后一行End IfDelay 2000'时间长设置一秒LoopSub 读取文本最后一行()文本 = File.ReadLines(路径)For Each x In 文本i=i+1b(i)=xNextShowMessage b(i)End Sub7区域检测屏幕颜色变化并写入文本（颜色组）Dim c(),x,y,i,j,路径,写入Import "FileEx.lua"Import "LuaArray.lua"路径="/sdcard/坐标信息.txt"写入="/sdcard/时间取色组.txt"j=0'Delay 3000For 100Call 屏幕变化(334,347,533,533,1,1)'NextSub 屏幕变化(x1,y1,x2,y2,x3,y3)i=0KeepCaptureFor x = x1 To x2 Step x3For y = y1 To y2 Step y3i=i+1c(i)=GetPixelColor(x,y)NextNextReleaseCaptureDelay 600KeepCapturei=0For x = x1 To x2 Step x3For y = y1 To y2 Step y3i=i+1If GetPixelColor(x,y)
c(i) Then'Tap x,y'Delay 10'可以放截图代码Call 偏移取色(334,347,533,533)Exit SubEnd IfNextNextReleaseCaptureEnd SubSub 偏移取色(x1,x2,y1,y2)i=0j=j+1ShowMessage jKeepCaptureFor x=x1 To x2For y=y1 To y2i=i+1c(i) = GetPixelColor(x,y)If i<(x2-x1+1)*(y2-y1+1) ThenFileEx.WriteEx(写入,x&"|"&y&"|"&c(i)&",")ElseFileEx.WriteEx(写入,x&"|"&y&"|"&c(i)&"\n")End IfNextNextReleaseCaptureIf j=10 ThenShowMessage "截图或取色"&jDelay 1800EndScriptEnd IfEnd Sub
本帖最后由
09:17 编辑 以下一段文本是我在游戏里根据区域颜色变化取色0~9十个数字的颜色组（不会做字库就投机取巧取一点）334|533|03||533||533||533||533||533||533||533||533||533||533|03||533|0000B8334|533||533||533||533|03||533|03||533||533||533||533||533|03|03|0000CD334|533||533||533|03||533|0000AB,339|533|0000CD,340|533||533||533||533|03||533||533||533|0000A0334|533||533|03|03||533|0000BF,339|533||533||533||533|03|03||533|03||533|0000A7334|533||533||533||533||533||533||533||533|0000BF,342|533||533||533||533||533||533|000079334|533||533||533||533|03|03||533||533|03|03||533||533||533|03|0000A7334|533||533|0000EE,336|533||533|03||533||533||533|03||533||533||533|0000BE,346|533|0000DB,347|533|0000DC334|533||533||533||533||533|03|0000AC,340|533||533|0000BE,342|533||533||533|03|03||533|0000BF334|533||533|03|03|03||533|0000BE,340|533||533||533||533||533|03||533|03|0000C2334|533||533||533||533||533||533||533||533||533||533||533||533||533||533|0000A1大家可以存为时间取色组然后用对比代码对比下看看对比结果如下1
3和8重复338|533
无重复339|533
无重复340|533
无重复341|533
无重复342|533
5和6重复346|533
4和6重复希望有高手可以帮我改良下，写成1,2,5,6重复
以下还分享一个没有颜色的代码SetScreenScale 720,1280,0Dim 颜色(),战斗,x,y,i,a,t,t1Delay 2000t=time()a=0i=0import "DateTime.lua"import "Str.lua"Import "FileEx.lua"FileEx.WriteEx("/sdcard/醉江山"&Mid(Now(), 9, 2)+0&".txt", DateTime.Format()&" 开始刷威望\n")Call 识别1()Call 识别()Call 查看()Sub 识别1()颜色(1)=GetPixelColor(450,850)//查看颜色(8)=GetPixelColor(417,810)战斗 = GetPixelColor(640,640)颜色(100) = GetPixelColor(337,711)//延时Tap 450,850Delay 100If GetPixelColor(337,711)
颜色(100) ThenIf 颜色(5)=null Then颜色(5)=GetPixelColor(337,711)//延时End IfEnd IfTap 600, 1020Delay 300End SubSub 识别()doIf GetPixelColor(450,850) = 颜色(1) Then//查看Tap 450,850Delay 100Call 延时()Delay 500End IfIf 颜色(2)=null Then颜色(2)=GetPixelColor(460,895)End IfKeepCaptureIf GetPixelColor(460,895) = 颜色(2) Then//攻击If 颜色(99)=null Then颜色(99)=GetPixelColor(260,810)//掠夺框End If颜色(98)=GetPixelColor(338,449)//无保护判断颜色(97)=GetPixelColor(339,444)//有保护判断If GetPixelColor(339,444) = 颜色(6) and 颜色(6)null Then//有保护关闭界面a=a+1t1 = Time() - tShowMessage "寻找目标第:"&a+i&"个
共刷"&i&"\n
耗时 : "&t1 If 颜色(3)=null ThenTap 460,895Delay 100Call 延时()Delay 2500颜色(3)=GetPixelColor(260,845)//掠夺框If GetPixelColor(260,845) = 颜色(3) Thena=a+1Tap 260,810Delay 200TouchMoveEvent 603,TouchMoveEvent 735,1330,0TouchUpEvent 0Delay 300End IfElseTap 600, 1020Delay 300TouchMoveEvent 603,TouchMoveEvent 735,1330,0TouchUpEvent 0Delay 300End IfEnd IfElseIf GetPixelColor(338,449) = 颜色(7) and 颜色(7)null Then//无保护关闭界面//无保护i=i+1t1 = Time() - tShowMessage "寻找目标第:"&a+i&"个
共刷"&i&"\n
耗时 : "&t1 Tap 460,895Delay 100Call 延时()Delay 300End IfReleaseCaptureIf CmpColor(339,444,".9) > -1 Then//有保护If 颜色(6)=null Then颜色(6)= 颜色(97)ShowMessage "有保护"&颜色(6)Delay 1000End If'ElseIf CmpColor(338,449,"AAAAAA",0.9) > -1 Then//无保护ElseIf 颜色(7)=null Then颜色(7)=颜色(98)ShowMessage "无保护"&颜色(7)Delay 1000Tap 460,895Delay 100Call 延时()Delay 500If 颜色(4)=null Then颜色(4) =GetPixelColor (640,640)End IfEnd IfReleaseCaptureEnd If'If GetPixelColor (640,640)
战斗 ThenIf GetPixelColor(640,640)=颜色(4) Then//战斗界面'End Ift1 = Time() - tPlaySound "/sdcard/MobileAnJian/刷威望.amr"FileEx.WriteEx("/sdcard/醉江山"&Mid(Now(), 9, 2)+0&".txt", Str.GetTime()&"
第:"&a+i&"个, 共刷"&i&", 耗时 : "&t1&"秒\n")Tap 360,640Delay 200Tap 420, 850Delay 200Tap 420, 640Delay 100Tap 30, 640Delay 100Tap 30, 640Delay 100Tap 150, 895Delay 200TouchMoveEvent 603,TouchMoveEvent 735,1330,0TouchUpEvent 0Delay 500End IfIf GetPixelColor(260,845) = 颜色(3) Thena=a+1Tap 260,810Delay 200TouchMoveEvent 603,TouchMoveEvent 735,1330,0TouchUpEvent 0Delay 300End IfIf 颜色(6)null and 颜色(7)null ThenShowMessage 颜色(6)&颜色(7)Delay 1000Exit DoEnd IfloopEnd SubSub 查看()DoIf GetPixelColor(450,850) = 颜色(1) Then//查看t1 = Time() - tShowMessage "寻找目标第:"&a+i&"个
共刷"&i&"\n
耗时 : "&t1 for intx=450 To 189 Step -87Tap intx,850Delay 100Call 延时()Delay 200Call 刷威望()NextTouchMoveEvent 146*1.,300TouchMoveEvent 494*1.TouchUpEvent 0Delay 200ElseDelay 1000If GetPixelColor(387,810)=颜色(8) Then'最后三个for intx=420 To 246 Step -87Tap intx,850Delay 100Call 延时()Call 刷威望()NextIf i=0 ThenFileEx.WriteEx("/sdcard/醉江山"&Mid(Now(), 9, 2)+0&".txt", "呜呜，一个也没刷到
耗时"&t1&"秒\n")ElseFileEx.WriteEx("/sdcard/醉江山"&Mid(Now(), 9, 2)+0&".txt", "寻找目标共"&a+i&"次
成功"&i&", 耗时"&t1&"秒\n")End IfFileEx.WriteEx("/sdcard/醉江山"&Mid(Now(), 9, 2)+0&".txt", DateTime.Format()&" 刷威望结束\n\n")PlaySound "/sdcard/MobileAnJian/运行完毕.amr"//循环完毕播放音频文件ShowMessage "寻找目标第:"&a+i&"个, 共刷"&i&"\n
耗时 : "&t1 Delay 1800KeyPress "Home"EndScriptElseCall 错位移动()End IfEnd IfLoopEnd SubSub 刷威望()For 6KeepCaptureIf GetPixelColor(339,444) = 颜色(6) Then//有保护//有保护关闭界面a=a+1t1 = Time() - tShowMessage "寻找目标第:"&a+i&"个
共刷"&i&"\n
耗时 : "&t1 Tap 600, 1020Delay 150ElseIf GetPixelColor(338,449) = 颜色(7) Then//无保护i=i+1t1 = Time() - tShowMessage "寻找目标第:"&a+i&"个
共刷"&i&"\n
耗时 : "&t1 Tap 460,895Delay 100Call 延时()Delay 200ElseIf GetPixelColor(260,845) = 颜色(3) Then//关闭掠夺框Tap 245,745Delay 200ElseIf GetPixelColor(640,640) = 颜色(4) Then//战斗界面PlaySound "/sdcard/MobileAnJian/刷威望.amr"FileEx.WriteEx("/sdcard/醉江山"&Mid(Now(), 9, 2)+0&".txt", Str.GetTime()&"
第:"&a+i&"个, 共刷"&i&", 耗时 : "&t1&"秒\n")Tap 360,640Delay 200Tap 420, 850Delay 200Tap 420, 640Delay 100Tap 30, 640Delay 100Tap 30, 640Delay 100Tap 150, 895Delay 500ElseShowMessage "未检测到"Delay 200End IfReleaseCaptureNextEnd SubSub 延时()ReleaseCaptureFor 10If GetPixelColor(337,711) = 颜色(5) Then //网络延时数据传输中Delay 300ElseDelay 200//无数据传输中字样则继续下一步动作Exit SubEnd IfNextDelay 2000End SubSub 错位移动()Dim intX, intYFindColor 460, 810, 374, 810, 颜色(8), 0,0.9, intX, intYIf intX = 417 ThenExit SubElseIf intX > 0 ThenTouchMoveEvent intX*1.,300TouchMoveEvent 417*1.TouchUpEvent 0Delay 1000ElseEnd IfEnd Sub
本帖最后由
00:13 编辑 如果你逻辑思维足够牛叉并熟悉且有规律的画面变化完全可以让脚本运行后边取色识别边执行任务
有时候好几个画面，其实取一点颜色也可以的Sub 主循环()DoSelect Case GetPixelColor(360,860)Case "D5C429"//死战If d=0 ThenCall 死战次数()Delay 1000ElseIf d>0 ThenShowMessage "启动最后一战"For 20Tap 230,900//猛戳奋战按钮//Tap 480,900NextDelay 2000End IfCase "7C7D83"//继续Tap 190,850Delay 100Case "3FA9B3"//加强攻Tap 270,450Delay 100If GetPixelColor(265,640) = "E1E214" Then//确定Tap 265,640Delay 100Tap 270,800Delay 100End IfCall 延时()Case "404649"//领奖Tap 65, 640MyTime1 = Time() - MyTimeShowMessage "已运行："&MyTime1&"秒"Delay 100Call 延时()Case "000000"//确定Tap 265, 640Delay 100Case "372A2C"//下一轮If GetPixelColor(65,640) = "22531D" Thend=d+1Tap 65, 640Delay 100ElseShowMessage "战斗界面"Delay 500End IfCase "422C20"//第三轮ShowMessage "第三轮战斗界面"Delay 1000Case "AA605A"//通天主界面Call 判断爬塔次数()Case "3E464A"//挑战失败ShowMessage "挑战失败"Tap 190,850Delay 100Case ElseDelay 500If GetPixelColor(640,1130) = "94CAFF" Then //若是活动界面则点击关闭按钮Tap 640, 1130Delay 200Call 主界面进入通天()ElseIf GetPixelColor(240,520) = "020A07" Then//重新登陆按钮Tap 240,520Delay 2000End IfShowMessage "没检测到"End SelectLoopEnd Sub
怪不得，怪不得，前辈们的经验，可惜之前我想到了却没用，防尘术
没人交流我自己顶吧，
看来都是拿来主义啊，连交流都免了
挽尊~~~~表示字太多了，没办法细看，杂乱了点。。。。
sk2808a 发表于
19:13挽尊~~~~表示字太多了，没办法细看，杂乱了点。。。。都有标识的哈
按键精灵开发者4级可通过提升认证等级来升级勋章：
干货啊, 支持一下
lm357cn1 发表于
22:18干货啊, 支持一下谢谢，可是干货是啥意思？
按键精灵开发者4级可通过提升认证等级来升级勋章：
<font color="#293772 发表于
23:06 谢谢，可是干货是啥意思？干货就是私藏的比较有价值的货... 评书里有这个词汇,褒义
9对比二维数组Dim 文本,x,a(100,100),b(100,100),c,arr,i,j,k,dImport "Fileex.lua"Import "LuaArray.lua"文本 = File.ReadLines("/sdcard/时间取色组.txt")For Each x In 文本arr = Split(x, ",")nextk=LuaArray.UBound(arr)ShowMessage kDelay 1000for k=0 to k-1i=-1j=-1For Each x In 文本arr = Split(x, ",")i=i+1j=j+1a(j,k)=arr(k)b(i,k)=a(j,k)'郁闷，还好整了多次，ok了，各位试试把 b(i,k)=arr(k)，你会发现二维数组说出来全一样，对比却是正确的'ShowMessage a(j,k)'Delay 2000nextnextfor k=0 to k'需注意，k从0到14-1读取并赋予给二维数组，k=13了c=0d=0for j=d to jfor i=d to iif a(i,k) = b(j,k) thenif i
j thenc=c+1FileEx.WriteEx("/sdcard/对比.txt",c&"
"&Mid(a(j,k),1,7)&"
"&j+1&"和"&i+1&"重复\n")End ifEnd if'ShowMessage j&i&k'Delay 20nextd=d+1nextif c = 0 thenFileEx.WriteEx("/sdcard/对比.txt",Mid(a(j,k),1,7)&"
无重复\n")End ifnext
郁闷，18号到手的华为畅玩4终于在今天被我root了，以前游戏脚本能用，就是滑动出大问题了，
这个才叫源码分享啊 可恨自己水平低了 看的有点乱..
ziqidonglain
这是各方法块，学习了
按键精灵开发者1级可通过提升认证等级来升级勋章：
内容太多，能否写一个文字的教程，尽量少带一些代码。
本帖最后由
23:57 编辑 我只懂最简单的脚本，我这九个新手很容易上手的，第九个封装的代码改下横着也能比，比如论坛出来的双色球序号码，第二列第三列……和第一列对比可惜我一直用手机写脚本学习，其实把教程看个十遍二十遍简单的也学会，复杂的心里有个谱，要是流量够，看下视频教材，那里才是精华，可惜我没耐心，如果直接贴代码和注释和注意要点那该多好
q2080069 发表于
23:35内容太多，能否写一个文字的教程，尽量少带一些代码。内容不多，就九个代码而已，最方便新手，手机党了，初学者间的交流